Style.asp
上传用户:yunfeng252
上传日期:2022-07-23
资源大小:12403k
文件大小:1k
- <%
- if Trim(Request.QueryString("SN"))<>"" then
- StyleName=Trim(Request.QueryString("SN"))
- Response.Cookies("GuLREcnArticleStyle")=""&StyleName&""
- Response.Cookies("GuLREcnArticleStyle").Expires=date+365
- WebSiteURL_User=Request.ServerVariables("http_referer")
- if WebSiteURL_User<>empty and instr(WebSiteURL_User,"left.asp")=0 then
- Response.redirect WebSiteURL_User
- else
- Response.redirect WebSiteURL
- end if
- end if
- dim WebSiteStyle
- WebSiteStyle=Request.Cookies("GuLREcnArticleStyle")
- if WebSiteStyle<>"" then
- WebSiteStyle=WebSiteStyle
- else
- WebSiteStyle=WebSiteStyleDefault
- end if
- %>