-收缩VBScript代码
ifrequest.QueryString("del")="1"then'删除操作,删除顶级域名cookie一定要带上path,domain参数
response.Cookies("rnd")=""'如果是内存cookie,既未设置过expires的cookie,最好是设置cookie对象值为空,内存cookie无法删除,只能等浏览器关闭后自动删除
response.Cookies("rnd").path="/"
response.Cookies("rnd").domain="w3dev.cn"
response.Cookies("rnd").expires=now-2'设置cookie失效
response.Write"deletecookie"
endif
ifrequest.querystring("set")="1"then
response.Cookies("rnd")="123"
response.Cookies("rnd").path="/"
response.Cookies("rnd").domain="w3dev.cn"
response.Cookies("rnd").expires=now+7'cookie有效期为7天
response.Write"setcookie"
endif
response.Write"rnd="&request.Cookies("rnd")
|