cookies.asp

来自「很漂亮」· ASP 代码 · 共 24 行

<%
select case Request("menu")

case "skins"
Response.Cookies("skins")=""&Request("no")&""
Response.Cookies("skins").Expires=date+365

case "eremite"
Response.Cookies("eremite")="1"
Response.Cookies("eremite").Expires=date+365

case "online"
Response.Cookies("eremite")="0"
Response.Cookies("eremite").Expires=date+365

end select

url=Request.ServerVariables("http_referer")
if url<>empty then
response.redirect url
else
response.write "<SCRIPT>top.location='Default.htm';</SCRIPT>"
end if
%>