cookies.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<%Dim Url,Action,Temp,CacheName,CookiesName
CookiesName=LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"),Split(request.ServerVariables("SCRIPT_NAME"),"/")(ubound(Split(request.ServerVariables("SCRIPT_NAME"),"/"))),""))
CacheName="94KKBBS"&Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")

Response.buffer=true
Url=Request.ServerVariables("HTTP_REFERER")
Action=Lcase(Request.Querystring("Action"))
Temp=Request.Cookies(CookiesName)("CookiesDate")
If Temp>0 Then Response.Cookies(CookiesName).Expires=date+Temp
Select Case action
Case"style"
	Style()
Case"font"
	BbsFont
Case"online"
	MyOnline
End Select
Set BBS94KK=Nothing
If isnull(Url) or Url="" Then Url="index.asp"
Response.Redirect Url

Sub Style()
	Response.Cookies(CookiesName&"SkinID").Expires= Date+7
	If Not Isnumeric(Request("SkinID")) Then BBS94KK.GotoErr(1)
	Response.Cookies(CookiesName&"SkinID")=Request("SkinID")
End Sub
Sub BbsFont()
	Dim FontSize
	FontSize=Request("Size")
	If FontSize="9" or FontSize="10" or FontSize="12" Then
	Response.Cookies(CookiesName)("FontSize")=FontSize
	End If
End Sub
Sub MyOnline
	Dim MyHidden
	Myhidden=Request.cookies(CookiesName)("MyHidden")
	If Myhidden="2" Then 
		Response.Cookies(CookiesName)("MyHidden")=1
	ElseIf MyHidden="" or MyHidden="1" Then
		Response.Cookies(CookiesName)("MyHidden")=2
	End If
	Session(CacheName & "Stats")="94KKBBS"
End Sub
%>