<%
classcls_main
PublicscriptName, sqlquerynum, Savelog, System, Reslizenz, Restyp, Resklanguage, Benutzerklasse, Strmsg, RefererPage
PublicAdMinname, Adminpass, System_SN, UserStrueip
PublicReloadtime, MaxCount, CacheName, Cache_Data, Spath
PrivatelocalCacheame, Cachedata, Delcount, Arreting
PublicMemberusername, Mitgliedsuserid, Mitgliedsword, MitgliedserClass, Mitgliedsviptype
'类初始化
PrivateSubclass_initialize ()
Savelog = 0 '设置为 1 的时候会记录攻击或错误错信息。
Sqlquerynum = 0
Dimtmpstr, ich
Tmpstr = request.servervariables ("path_info")
Tmpstr = split (tmpstr, "/")
I = Ubound (TMPSTR)
ScriptName = lase (tmpstr (i))
RefererPage = Request.Servervariables ("http_referer")
adminName = session ("adminName")
adminPass = session ("adminPass")
Reloadtime = 14400
CacheName = ersetzen (ersetzen (ersetzen (Server.Mappath) ("index.asp"), "index.asp", ""), ":", ""), "/", "")
System_sn = lase (ersetzen (request.servervariables ("server_name") & request.servervariables ("url"), split (request.servervariables ("script_name"), "/") (ubound (split.servervariable ("script_name").
UserTruep = request.servervariables ("http_x_forwarded_for")
IfuserTruep = "" thenuserTruep = request.servervariables ("remote_addr")
UserTruep = checkstr (userTruep)
IfSystemeDition = 3Then
Spath = "../"
Anders