Cls_main.asp page 1/3

<%
Class cls_main
Public ScriptName, SqlQueryNum, savelog, system, ResLicence, ResType, ResLanguage, UserClass, strMsg, RefererPage
Public adminName, adminPass, System_Sn, UserTrueIP
Public Reloadtime, MaxCount, CacheName, Cache_Data, sPath
Private LocalCacheName, CacheData, DelCount, ArrSetting
Public MemberUserName, MemberUserID, MemberUserPassword, MemberUserClass, MemberVipType
'Class initialization
Private Sub Class_Initialize ()
When savelog = 0' is set to 1, an attack or error message is recorded.
SqlQueryNum = 0
Dim Tmpstr, 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 (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 ")
If UserTrueIP = "" Then UserTrueIP = Request. ServerVariables ("REMOTE_ADDR ")
UserTrueIP = checkStr (UserTrueIP)

If SystemEdition = 3 Then
SPath = "../"
Else
SPath = ""
End If

MemberUserName = checkStr (Request. Cookies (System_Sn) ("MemberUserName "))
MemberUserID = checkStr (Request. Cookies (System_Sn) ("MemberUserID "))
MemberUserPassword = checkStr (Request. Cookies (System_Sn) ("MemberUserPassword "))
MemberUserClass = checkStr (Request. Cookies (System_Sn) ("MemberUserClass "))
MemberVipType = checkStr (Request. Cookies (System_Sn) ("MemberVipType "))

End Sub

'Class ended
Private Sub Class_Terminate ()
If IsObject (Conn) Then
'Conn. Close
Set Conn = Nothing
End If
End Sub

Public Property Let Name (ByVal vNewValue)
LocalCacheName = LCase (vNewValue)
End Property
Public Property Let Value (ByVal vNewValue)
If LocalCacheName <> "" Then
ReDim Cache_Data (2)
Cache_Data (0) = vNewValue
Cache_Data (1) = Now ()
Application. Lock
Application (CacheName & "_" & LocalCacheName) = Cache_Data
Application. UnLock
Else
Err. Raise vbObjectError + 1, "Mesky. Cn CacheServer", "please change the CacheName ."
End If
End Property
Public Property Get Value ()
If LocalCacheName <> "" Then
Cache_Data = Application (CacheName & "_" & LocalCacheName)
If IsArray (Cache_Data) Then
Value = Cache_Data (0)
Else
Err. Raise vbObjectError + 1, "Mesky. Cn CacheServer", "The Cache_Data (" & LocalCacheName & ") Is Empty ."
End If
Else
Err. Raise vbObjectError + 1, "Mesky. Cn CacheServer", "please change the CacheName ."
End If
End Property
Public Function ObjIsEmpty ()
ObjIsEmpty = True
Cache_Data = Application (CacheName & "_" & LocalCacheName)
If Not IsArray (Cache_Data) Then Exit Function
If Not IsDate (Cache_Data (1) Then Exit Function
If DateDiff ("s", CDate (Cache_Data (1), Now () <(60 * Reloadtime) Then ObjIsEmpty = False
End Function
Public Sub DelCahe (MyCaheName)
Application. Lock
Application. Contents. Remove (CacheName & "_" & MyCaheName)
Application. UnLock
End Sub

'Load system configuration information
Public Sub LoadSetting ()
Dim Rs
'If Not IsObject (Conn) Then ConnectionDatabase
Set Rs = Execute ("Select Setting From Mesky_Setting where isDefault = 1 ")
ArrSetting = Split (Rs ("Setting"), "{$ }")
Set Rs = Nothing
System = Split (ArrSetting (144 ),",")
ResLicence = Split (ArrSetting (141 ),",")
ResLanguage = Split (ArrSetting (142 ),",")
ResType = Split (ArrSetting (143 ),",")
UserClass = Split (ArrSetting (140 ),",")
Name = "StyleName"
If ObjIsEmpty Then Call ReloadTemplates
End Sub
Public Function Setting (s)
Setting = ArrSetting (s)
End Function
Public Sub ReloadTemplates ()
Dim Rs, I
Set Rs = Execute ("select top 1 * from Mesky_Style where isDefault = 1 ")
If Not (Rs. EOF And Rs. BOF) Then
For I = 2 To Rs. Fields. Count-3
Name = Rs (I). Name
'Response. Write (Rs (I). Name)
Value = Rs (I). Value
Next
End If
Set Rs = Nothing
End Sub