style.asp

来自「一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用C」· ASP 代码 · 共 38 行

<!--#include file="conn.asp"-->
<%response.buffer=true
comeurl=Request.ServerVariables("HTTP_REFERER")
response.cookies(cn&"2")("bbsup")=0
if instr(comeurl,"bd=")>0 then
bd=check2(request.querystring("bd"))
sty="bbs"&bd
else
sty="all"
end if
skin=request.querystring("skin")
select case skin
case"a"
c1="#bcd0ed"
c2="#006699"
case"b"
c1="#BBD7C6"
c2="#009966"
case"c"
c1="#DBBFBB"
c2="#A22828"
case"d"
c1="#E7D8C5"
c2="#A27A28"
case"e"
c1="#D4D4D4"
c2="#666666"
case"f"
c1="#F7E1EB"
c2="#FF6295"
end select
Response.Cookies(cn&"1")(sty)=skin
Response.Cookies(cn&"1")(sty&"c1")=c1
Response.Cookies(cn&"1")(sty&"c2")=c2
Response.Cookies(cn&"1")(sty&"c3")=c3
Response.Cookies(cn&"1").Expires=date+365
response.redirect""&comeurl&""
%>