如何提示用户打开Cookie？

 　　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