<%
classcls_main
PublicScriptName, sqlquerynum, savelog, sistem, reslicence, restype, reslanguage, userclass, strmsg, refererpage
PublicAdminname, AdminPass, System_sn, Usertrueip
PublicReloadtime, MaxCount, Cachename, Cache_data, Spath
Privatelocalcachename, Cachedata, Delcount, Arrsetting
PublicmemberuserName, MemberUserID, anggotaSerPassword, MemberUserClass, anggotavipType
'类初始化
Privatesubclass_initialize ()
savelog = 0 '设置为 1 的时候会记录攻击或错误错信息。
Sqlquerynum = 0
DIMTMPSTR, i
Tmpstr = request.serverVariable ("path_info")
Tmpstr = split (tmprstr, "/")
i = ubound (tmpstr)
ScriptName = lcase (tmpstr (i))
RefererPage = request.serverVariable ("http_referer")
adminName = sesi ("adminName")
adminPass = sesi ("adminPass")
Reloadtime = 14400
Cachename = ganti (ganti (ganti (server.mappath ("index.asp"), "index.asp", ""), ":", ""), "/", "")
System_sn = lcase (ganti (request.serverVariable ("server_name") & request.serverVariable ("url"), split (request.servarible ("script_name"), "/") (ubound (split (request.serverVariable ("script_name"), "/")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Usertrueip = request.serverVariable ("http_x_forwarded_for")
IfUserTrueIp = "" ThenEserTrueIp = Request.ServerVariables ("Remote_Addr")
Usertrueip = checkstr (usertrueip)
Ifsystemedition = 3then
Spath = "../"
Kalau tidak