const.asp

来自「一个asp写的论坛源代码,论坛所需要的功能都有」· ASP 代码 · 共 17 行

<!--#Include File="ClsMain.asp"-->
<!--#Include File="UbbCode.asp"-->
<!--#Include File="Function.asp"-->
<%
	Dim TK_UserName,TK_Userpass,RemoteAddr,Pages,Forum_sn,CacheName
	CacheName = "team_"& Lcase(Replace(Replace(Replace(Server.MapPath("Default.asp"),"Default.asp","",1,-1,1),":",""),"\",""))
	Forum_sn = Replace(CacheName,"_","")
	Set Cache = New Cls_Cache
	Set team = New Cls_Forum
	TK_UserName = DecodeCookie(team.Checkstr(Trim(Request.Cookies(Forum_sn)("UserName"))))
	TK_Userpass = team.Checkstr(Trim(Request.Cookies(Forum_sn)("Userpass")))
	RemoteAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If RemoteAddr = "" Then RemoteAddr = Request.ServerVariables("REMOTE_ADDR")
	RemoteAddr = team.Checkstr(RemoteAddr)
	team.GetForum_Setting
	team.CheckUserLogin
%>