<%@ Language=VBScript %>

<%

Option Explicit

response.buffer=true

Dim objCookie

Response.Write "春风精彩之不可告人删除CookieS<BR>"

For Each objCookie In Request.Cookies

Response.Cookies(objCookie).Expires = "1，1，2001"

' 设置时间删除.

Next

Response.Write "恭喜,删除成功!"

%>