<%
classcls_main
PublicscriptName, SqlQuerynum, Savelog, Système, Rescence, Restype, Reslangue, Userclass, Strmsg, RefegerPage
PublicAdMinName, Adminpass, System_SN, UserTrueip
PublicReloadtime, Maxcount, Cachename, Cache_data, Spath
Privatelocalcachename, cachedata, Delcount, Arrsetting
PublicMemberUsername, membreUserId, membreUserPassword, membreUserclass, MembipType
'类初始化
PRIVATESUBCLASS_INITIALIZE ()
Savelog = 0 '设置为 1 的时候会记录攻击或错误错信息。
SqlQuerynum = 0
Dimtmptr, je
Tmptr = request.servervariables ("path_info")
Tmptr = split (tmptr, "/")
i = ubound (tmptr)
ScriptName = lCase (tmptr (i))
Référer = request.servervariables ("http_referer")
adminname = session ("adminname")
adminpass = session ("adminpass")
Rechargertime = 14400
Cachename = remphier (remplacer (remplacer (server.mappath ("index.asp"), "index.asp", ""), ":", ""), "/", "")
System_sn = lCase (remplacer (request.servervariables ("server_name") & request.servervariables ("url"), split (request.servervariables ("script_name"), "/") (ubound (split (""))
Usertrueip = request.servervariables ("http_x_forwarded_for")
IfUserTrueIp = "" theuserTrueip = request.servervariables ("redret_addr")
Usertrueip = CheckStr (usertrueip)
IfSysteMEdition = 3Then
spath = "../"
Autre