-
classcls_main
PublicscriptName, SqlQuerynum, Savelog, ระบบ, การ reslicence, Respy, Reslanguage, USERCLASS, Strmsg, refererPage
publicadminname, adminpass, system_sn, usertrueip
PublicReloadtime, MaxCount, Cachename, CACHE_DATA, Spath
Privatelocalcachename, cachedata, delcount, arretting
PublicMemberUsername, MemberUserId, MemberUserPassword, MemberUserClass, MemberViPType
'类初始化
Privatesubclass_initialize ()
savelog = 0 '设置为 1 的时候会记录攻击或错误错信息。
sqlQueryNum = 0
dimtmpsttr, i
TMPSTR = request.ServerVariables ("path_info")
TMPSTR = SPLIT (TMPSTR, "/")
i = ubound (TMPSTR)
scriptName = lcase (TMPSTR (i))
refererPage = request.serverVariables ("http_referer"))
adminName = เซสชัน ("adminName")
AdminPass = เซสชัน ("AdminPass")
reloadtime = 14400
cachename = แทนที่ (แทนที่ (แทนที่ (server.mappath ("index.asp"), "index.asp", ""), ":", ""), "/", "")
system_sn = lcase (แทนที่ (request.serverVariables ("server_name") & request.serverVariables ("url"), แยก (request.serverVariables ("script_name"), "/")
userTrueIP = request.ServerVariables ("http_x_forwarded_for")
ifuserTrueIp = "" thingUserTrueIp = request.ServerVariables ("remote_addr")
userTrUeIP = checkstr (userTrueIP)
ifsystemedition = 3 แล้ว
spath = "../"
อื่น