cookies.asp

一个超市管理系统

<%
select case Request("menu")

case "skins"
Response.Cookies("skins")=""&Request("no")&""
Response.Cookies("skins").Expires=date+3650
response.redirect "Default.asp?menu=listtitle"

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
%>