cookies.asp

多风格网站管理系统 进行网站的综合管理 后台数据库系统

<%
select case Request("menu")

case "BsSkins"
Response.Cookies("BsSkins")=""&Request("no")&""
Response.Cookies("BsSkins").Expires=date+3650


url=Request.ServerVariables("http_referer")
if url<>empty and instr(url,"left.asp")=0 then
response.redirect url
else
response.write "<SCRIPT>location='index.asp';</SCRIPT>"
end if

case "eremite"
Response.Cookies("eremite")="1"
Response.Cookies("eremite").Expires=date+3650
response.redirect Request.ServerVariables("http_referer")


case "online"
Response.Cookies("eremite")="0"
Response.Cookies("eremite").Expires=date+3650
response.redirect Request.ServerVariables("http_referer")


end select
%>
<%
'=========================================================
'
'产品名称： 公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有：www.web300.cn
'程序制作：[e-mail]
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'========================================================
%>