迷城浪子缓存类使用方法详解

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

< %    
Class Cls_Cache    
'==================使用说明====================    
'本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。
'公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400    
'MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300    
'CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。    
'属性:Name 定义缓存对象名称，只写属性。    
'属性:value 读取和写入缓存数据。    
'函数：ObjIsEmpty()判断当前缓存是否过期。    
' 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。    
'========================    
Public Reloadtime,MaxCount,CacheName    
Private LocalCacheName,CacheData,DelCount    
 
Private Sub Class_Initialize()    
Reloadtime=14400 '过期时间（单位为分钟）    
CacheName="Dvbbs" '缓存组的总名称    
End Sub    
 
Private Sub SetCache(SetName,NewValue)    
Application.Lock    
Application(SetName) = NewValue    
Application.unLock    
End Sub    
 
Public Property Let Name(ByVal vNewValue) '缓存对象名称    
LocalCacheName=LCase(vNewValue)    
End Property    
 
Public Property Let Value(ByVal vNewValue) '读取和写入缓存数据    
If LocalCacheName<>"" Then    
CacheData=Application(CacheName&"_"&LocalCacheName)    
If IsArray(CacheData) Then    
CacheData(0)=vNewValue    
CacheData(1)=Now()    
Else    
ReDim CacheData(2)    
CacheData(0)=vNewValue    
CacheData(1)=Now()    
End If    
SetCache CacheName&"_"&LocalCacheName,CacheData    
Else    
Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName."    
End If    
End Property    
 
Public Property Get Value()    
If LocalCacheName<>"" Then    
CacheData=Application(CacheName&"_"&LocalCacheName)    
If IsArray(CacheData) Then    
Value=CacheData(0)    
Else    
Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The CacheData Is Empty."    
End If    
Else    
Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName."    
End If    
End Property    
 
Public Function ObjIsEmpty() '判断当前缓存是否过期    
ObjIsEmpty=True    
CacheData=Application(CacheName&"_"&LocalCacheName)    
If Not IsArray(CacheData) Then Exit Function    
If Not IsDate(CacheData(1)) Then Exit Function    
If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then ObjIsEmpty=False    
End Function    
 
Private Sub makeEmpty(SetName) '释放内存    
Application.Lock    
Application(SetName) = Empty    
Application.unLock    
End Sub    
 
Public Sub DelCahe(MyCaheName) '删除缓存    
makeEmpty(CacheName&"_"&MyCaheName)    
End Sub    
End Class

< % Class Cls_Cache '==================使用说明==================== '本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。 '公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400 'MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300 'CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。 '属性:Name 定义缓存对象名称，只写属性。 '属性:value 读取和写入缓存数据。 '函数：ObjIsEmpty()判断当前缓存是否过期。 ' 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。 '======================== Public Reloadtime,MaxCount,CacheName Private LocalCacheName,CacheData,DelCount Private Sub Class_Initialize() Reloadtime=14400 '过期时间（单位为分钟） CacheName="Dvbbs" '缓存组的总名称 End Sub Private Sub SetCache(SetName,NewValue) Application.Lock Application(SetName) = NewValue Application.unLock End Sub Public Property Let Name(ByVal vNewValue) '缓存对象名称 LocalCacheName=LCase(vNewValue) End Property Public Property Let Value(ByVal vNewValue) '读取和写入缓存数据 If LocalCacheName<>"" Then CacheData=Application(CacheName&"_"&LocalCacheName) If IsArray(CacheData) Then CacheData(0)=vNewValue CacheData(1)=Now() Else ReDim CacheData(2) CacheData(0)=vNewValue CacheData(1)=Now() End If SetCache CacheName&"_"&LocalCacheName,CacheData Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." End If End Property Public Property Get Value() If LocalCacheName<>"" Then CacheData=Application(CacheName&"_"&LocalCacheName) If IsArray(CacheData) Then Value=CacheData(0) Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The CacheData Is Empty." End If Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." End If End Property Public Function ObjIsEmpty() '判断当前缓存是否过期 ObjIsEmpty=True CacheData=Application(CacheName&"_"&LocalCacheName) If Not IsArray(CacheData) Then Exit Function If Not IsDate(CacheData(1)) Then Exit Function If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then ObjIsEmpty=False End Function Private Sub makeEmpty(SetName) '释放内存 Application.Lock Application(SetName) = Empty Application.unLock End Sub Public Sub DelCahe(MyCaheName) '删除缓存 makeEmpty(CacheName&"_"&MyCaheName) End Sub End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

<!--#include file="Cls_Cache.asp" -->
< %
Dim myCache,content
Set myCache=New Cls_Cache
myCache.Reloadtime=1                  '设置过期时间,单位为1分钟
myCache.CacheName = "myCache"         '缓存主名字.
myCache.Name="tempCache"              '缓存副名字
If myCache.ObjIsEmpty() Then          '但该缓存为空时设置缓存.
    content = "测试"
    myCache.value = content
Else
    content=myCache.value '读取缓存
End If
Set myCache = Nothing
Response.Write content
%>

<!--#include file="Cls_Cache.asp" --> < % Dim myCache,content Set myCache=New Cls_Cache myCache.Reloadtime=1 '设置过期时间,单位为1分钟 myCache.CacheName = "myCache" '缓存主名字. myCache.Name="tempCache" '缓存副名字 If myCache.ObjIsEmpty() Then '但该缓存为空时设置缓存. content = "测试" myCache.value = content Else content=myCache.value '读取缓存 End If Set myCache = Nothing Response.Write content %>