style.asp

来自「用ASP语言开发的一个不错的留言本。 升级时注册先只上传upgrade.asp」· ASP 代码 · 共 21 行

<%
response.buffer=true
dim style,referer
referer=request.servervariables("http_referer")
if referer="" then
	referer="index.asp"
end if
style=request.querystring("style")
if style="" or not isNumeric(style) then
	style=1
else
	style=int(style)
end if

if cookiePath<>"" then
	response.cookies("style").Path=cookiePath
end if
response.cookies("style")=cstr(style)
response.cookies("style").expires=dateadd("m",1,now())
response.redirect referer
%>