sub ClearnCookie()
Dim Cookie, Subkey
For Each Cookie in Request.Cookies
if Not(Request.Cookies(Cookie).HasKeys) then
Response.Cookies(Cookie).expires = now()-1'使得相应cookie过期
else
For Each Subkey in Request.Cookies(Cookie)
Response.Cookies(Cookie)(Subkey).expires = ""使得相应cookie过期
Next
end if
Next
End Sub