<%
classcls_main
PublicScriptName,SqlQueryNum,savelog,system,ResLicence,ResType,ResLanguage,UserClass,strMsg,RefererPage
PublicadminName,adminPass,System_Sn,UserTrueIP
PublicReloadtime,MaxCount,CacheName,Cache_Data,sPath
PrivateLocalCacheName,CacheData,DelCount,ArrSetting
PublicMemberUserName,MemberUserID,MemberUserPassword,MemberUserClass,MemberVipType
'类初始化
PrivateSubClass_Initialize()
savelog=0'设置为1的时候会记录攻击或错误错信息。
SqlQueryNum=0
DimTmpstr,i
Tmpstr=Request.ServerVariables("PATH_INFO")
Tmpstr=Split(Tmpstr,"/")
i=UBound(Tmpstr)
ScriptName=LCase(Tmpstr(i))
RefererPage=Request.ServerVariables("HTTP_REFERER")
adminName=Session("adminName")
adminPass=Session("adminPass")
Reloadtime=14400
CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"/","")
System_Sn=LCase(Replace(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"),Split(Request.ServerVariables("SCRIPT_NAME"),"/")(UBound(Split(Request.ServerVariables("SCRIPT_NAME"),"/"))),""))
UserTrueIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfUserTrueIP=""ThenUserTrueIP=Request.ServerVariables("REMOTE_ADDR")
UserTrueIP=checkStr(UserTrueIP)
IfSystemEdition=3Then
sPath="../"
Else