Dim strCookie, strTry strCookie = Request.Cookies("MyCookie") strTry = Request.QueryString("Try") If strCookie = "" Then ' 检测否是设置了Cookie. If strTry = "" Then Response.Cookies("MyCookie") = "Set" ' 重定向到这一页面再试. Response.Redirect(Request.ServerVariables("script_NAME") & "?Try=Yes") Else ' 如果没有开启Cookie. End If Else ' 客户端正在接受Cookie. Response.Cookies("MyCookie").Expires = "April 15, 2001" End If |