cls_main.asp第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
    '类初始化
    Private Sub Class_Initialize()        
        savelog = 0 '设置为1的时候会记录攻击或错误错信息。
        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(Replace(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

     '类结束
    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 Date