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
%>
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - All Rights Reserved.
'
'========================================================
%>