<%
classcls_main
PublicscriptName, SQLQUERYNUM, Savelog, System, Reslicence, Restype, Reslanguage, Userclass, STRMSG, Реферат
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, я
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")
Время перезагрузки = 14400
Cachename = replace (reply (reply (server.mappath ("index.asp"), "index.asp", ""), ":", ""), "/", "")
System_sn = lcase (reply (request.servervariables ("server_name") & request.servervariables ("url"), split (request.servervariables ("script_name"), "/") (ubound (split.servervariables ("script_name"), "),"), "),"), "),"), "),"), "),"), "),"), "),"), "),"), "),"), "),"), "),"), "),")
Usertrueip = request.servervariables ("http_x_forwarded_for")
IfuserTrueip = "" thenUserTrueip = request.servervariables ("remote_addr")
Usertrueip = checkstr (usertrueip)
Ifsystemedition = 3Then
spath = "../"
Еще