skin.asp

来自「本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内」· ASP 代码 · 共 25 行

<%@ Language=VBScript %>
<%
dim skin
if request.querystring("skin")="" then
skin=""
elseif request.querystring("skin")="green" then
skin="green"
elseif request.querystring("skin")="orange" then
skin="orange"
elseif request.querystring("skin")="blue" then
skin="blue"
elseif request.querystring("skin")="black" then
skin="black"
elseif request.querystring("skin")="yellow" then
skin="yellow"
elseif request.querystring("skin")="hei" then
skin="hei"
elseif request.querystring("skin")="fh" then
skin="fh"
end if
Response.Cookies("Usercolor")("lanyu")=skin
response.Cookies("Usercolor").expires=now()+100
response.redirect Request.ServerVariables("HTTP_REFERER")
%>