<%
ClassCls_Main
PublicsCriptName, SQLQuerynum, Savelog, System, Reslicence, Restype, Relenguage, UserClass, STRMSG, Referencepage
PublicAdMinName, AdminPass, System_SN, UserTRugEip
PublicReloadTime, MaxCount, Cachename, Cache_Data, Spath
Privatelocalcachename, Cachedata, Delcount, Arrsetting
PublicMemberusername, MemberUserID, MembroSerPassword, 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))
Referencepage = request.Servervariables ("http_referer")
adminName = session ("adminName")
adminpass = session ("adminpass")
ReloadTime = 14400
Cachename = substituir (substituir (substituir (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 = "../"
Outro