cookies.asp

来自「秘密网源代码 传闻拉了 100W风投」· ASP 代码 · 共 30 行

<!-- #include file="setup.asp" -->
<%
if ReturnUrl="" then ReturnUrl=""&SiteURL&"Default.asp"

select case Request("menu")

	case "skin"
		if SiteConfig("AllowUserToSelectTheme")=0 then error("系统已禁止窝友选择个性风格。")
		Style=HTMLEncode(Request("Style"))
		
	If IsObjInstalled("Scripting.FileSystemObject") Then
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		if not fso.folderexists(Server.MapPath("skin/"&Style&"")) then Alert("skin/"&Style&" 目录不存在！")
		Set fso = nothing
	end if
		
		ResponseCookies "skin",Style,"9999"

	case "Invisible"
		ResponseCookies "Invisible","1","9999"

	case "Online"
		ResponseCookies "Invisible","0","9999"


end select

	response.redirect ReturnUrl

%>