skin.asp

用ASP语言开发的一个不错的留言本。 升级时注册先只上传upgrade.asp并浏览升级

<%
response.buffer=true
dim skin, referer
referer=request.servervariables("http_referer")
if referer="" then
	referer="index.asp"
end if
skin=request.querystring("skin")
if skin="" or not isNumeric(skin) then
	skin="1"
end if
if cookiePath<>"" then
	response.cookies("gbookskin").Path=cookiePath
end if
response.cookies("gbookskin")=cstr(skin)
response.cookies("gbookskin").expires=dateadd("m",1,date)
response.redirect referer
%>