<%
classCls_Main
PublicscriptName, SQLQuerynum, Savelog, System, Resicence, Restype, Reslanguage, UserClass, STRMSG, RefererPage
Publicadminname, adminpass, system_sn, usertrueip
PublicReloadtime, Maxcount, Cachename, Cache_Data, Spath
Privatelocalcachename, Cachedata, Delcount, Arrssetting
PublicMemberUsername, MemberUserID, MemberUserPassword, MemberUserClass, MemberViptype
'类初始化
Privatesubclass_initialize ()
savelog = 0 '设置为 1 的时候会记录攻击或错误错信息。
SqlQuerynum = 0
DimtMpStr, yo
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 = reemplazar (reemplazar (reemplazar (server.mappath ("index.asp"), "index.asp", ""), ":", "),"/"," ")
System_sn = lcase (reemplazar (request.serverVariables ("server_name") y request.serverVariables ("url"), split (request.serverVariAbles ("script_name"), "/") (Ubound (split.serverVariables ("script_name"), "))))))"))) "))))")))
UserTrueip = request.ServerVariAbles ("http_x_forwarded_for")
IfuserTrueIP = "" entoncesUserTrueIP = request.ServerVariables ("remota_addr")
Usertrueip = checkstr (userTrueip)
IfSystemEdition = 3
spath = "../"
Demás