cls_main.asp صفحة 1/3

<٪

classcls_main

PublicscriptName ، Sqlquerynum ، Savelog ، System ، Resicence ، Restype ، Reslanguage ، userclass ، StrMsg ، endarerPage

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 = تقسيم (TMPSTR ، "/")

i = ubound (TMPSTR)

ScriptName = LCASE (TMPSTR (I))

endarpage = request.servervariables ("http_referer")

adminname = جلسة ("adminname")

adminpass = جلسة ("adminpass")

إعادة التحميل = 14400

cachename = استبدال (استبدال (استبدال (server.mappath ("index.asp") ، "index.asp" ، "") ، ":" ، "") ، "/" ، "")

System_sn = lcase (استبدال (request.servervariables ("server_name") & request.servervariables ("url") ، split (request.servervariables ("script_name") ، "/") (ubound (split (request.servervariables ("script_name"

userTrueip = request.servervariables ("http_x_forwarded_for")

ifUserTrueip = "" theruserTrueip = request.ServerVariables ("REMOTE_ADDR")

userTrueip = checkstr (usertrueip)

IfSystemedition = 3then

Spath = "../"

آخر