cookies.asp

ASP整套的建站源代码

<%
select case Request("menu")


case "openlinelist"
if Request.Cookies("openlinelist")="1" then
Response.Cookies("openlinelist")=""
else
Response.Cookies("openlinelist")="1"
end if
response.redirect ""&Request.ServerVariables("http_referer")&""


case "eremite"
Response.Cookies("eremite")="1"
Response.Cookies("eremite").Expires=date+3650
response.write "<script>alert('您当前的状态为：隐身');history.back();</script>"

case "online"
Response.Cookies("eremite")="0"
Response.Cookies("eremite").Expires=date+3650
response.write "<script>alert('您当前的状态为：在线');history.back();</script>"

end select
%>