<％
classCls_Main
PublicScriptName，Sqlquerynum，Savelog，System，reslicence，restype，Reslanguage，userclass，strmsg，refererPage
PublicAdminname，AdminPass，System_SN，UserTrueip
PublicReloadtime，MaxCount，Cachename，Cache_data，Spath
PrivateLocalCachename，Cachedata，delcount，Arrsetting
PublicMemberUsername，MextionSerid，MembiluserPassword，MemberUserClass，MemberVipType
'类初始化
PrivatesUbClass_Initialize（）
savelog = 0'设置为1的时候会记录攻击或错误错信息。
sqlquerynum = 0
dimtmpstr，i
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”）
Reloadtime = 14400
cachename =替换（替换（replace（server.mappath）（“ index.asp”），“ index.asp”，“”），“：”，“”），“”/“，”，“）
system_sn = lcase（replace.servervariables（“ server_name”）＆request.servervariables（“ url”），split（request.servervariables（“ script_name”），“/”），“”/“”）（ubound（ubound）
userTrueip = request.servervariables（“ http_x_forwarded_for”）
ifuserTrueip =“” thenuserTrueip = request.servervariables（“远程_ADDR”）
userTrueip = checkstr（userTrueip）
ifsystemedition = 3
spath =“ ../”
别的