复制代码 代码以下:
<%
Rem =================================================================
Rem = 类:CacheCls
Rem = 表明:缓存文件的运用
Rem = Revision:1.01 Beta
Rem = 创作者:熊氏英雄人物(cexo255)
Rem = Date:2005/05/6 18:38:10
Rem = QQ:30133499
Rem = MySite:Http://www.Relaxlife.net
Rem = 免费下载:Http://www.Relaxlife.net/cexo/Cache_pro.rar
Rem = QQ群:4341998
Rem = 可用:对一些常见到,而又很久没更改的数据信息放进缓存文件中,启用速率要比每一次必须从数据库查询中读要快N陪
Rem =================================================================

CacheName = "RL"
Class CacheCls
    Private LocalCacheName, Cache_Data

    Public Property Let Name(ByVal vNewValue)
        LocalCacheName = LCase(vNewValue)
        Cache_Data=Application(CacheName & "_" & LocalCacheName)
    End Property

    Public Property Let Value(ByVal vNewValue)
        Dim N,i,NewValueArr
        If LocalCacheName<>"" Then 
            N = CountInStr(vNewValue,"|")
            NewValueArr = Split(vNewValue,"|",-1,1)
            ReDim Cache_Data(N)
            For i = 0 to N
                Cache_Data(i) = NewValueArr(i)
            Next 
            Application.Lock
            Application(CacheName & "_" & LocalCacheName) = Cache_Data
            Application.unLock
        Else
            Response.Write "设定缓存文件错误,或缓存文件名不可以为空,请再次升级缓存文件"
            Response.End()
        End If
    End Property

    Public Property Get Value()
        If LocalCacheName<>"" Then     
            If IsArray(Cache_Data) Then
                Value=Cache_Data
            End If
        Else
            Response.Write "设定缓存文件错误,或缓存文件名不可以为空,请再次升级缓存文件"
            Response.End()
        End If
    End Property

    '取特定缓存文件中的值
    Public Function GetCacheValue(MyCaheName)
        GetCacheValue = Application(CacheName & "_" & MyCaheName)
    End Function

    '取全部缓存文件名
    Public Function GetallCacheName()
        Dim Cacheobj
        For Each Cacheobj in Application.Contents
            GetallCacheName = GetallCacheName & Cacheobj & ","
        Next
        GetallCacheName = Left(GetallCacheName,Len(GetallCacheName)-1)
        GetallCacheName = Replace(GetallCacheName,CacheName & "_","")
    End Function

    '释放出来缓存文件    
    Public Sub DelCahe(MyCaheName)
        Application.Lock
        Application.Contents.Remove(CacheName & "_" & MyCaheName)
        Application.unLock
    End Sub

    '释放出来全部缓存文件
    Public Sub RemoveAllCache()
        Dim Cachelist,i
        Cachelist=Split(GetallCacheName(),",")
        If UBound(Cachelist)>0 Then
            For i=0 to UBound(Cachelist)
                DelCahe Cachelist(i)
            Next
        End If
    End Sub

    '统计分析标识符Char在Str中出現的频次
    Private Function CountInStr(Str,Char)
        CountInStr = 0
        Dim i, CharLen
        CharLen = Len(Char)
        For i = 1 to Len(Str)
            If Mid(Str, i, CharLen) = Char Then CountInStr = CountInStr   1
        Next
    End Function

End Class

Dim CachePro 
Set CachePro = New CacheCls
'设定缓存文件“cexo255”和它的值:"cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
CachePro.Name = "cexo255"
CachePro.Value = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
'取当今缓存文件中的值
'CacheArr = CachePro.Value

CachePro.Name = "wxf"
CachePro.Value = "wxf"
CachePro.Name = "dw"
CachePro.Value = "dw"

'释放出来缓存文件cexo255
'CachePro.DelCahe("cexo255")

'释放出来全部缓存文件
'CachePro.RemoveAllCache

'取cexo255缓存文件中的值
CacheArr = CachePro.GetCacheValue("cexo255")
If isArray(CacheArr) Then
    For i = 0 to UBound(CacheArr)
        Response.Write CacheArr(i) & "<br>"
    Next
Else
    Response.Write "缓存文件被释放出来!!!"
End if

Set CachePro = Nothing
%>