public property get value
＇取值
if isempty(obj) or not isDate(expireTime) then
value=null
elseif CDate(expireTime)<now then
value=null
else
value=obj
end if
end property
public sub makeEmpty()
＇释放application
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj=empty
expireTime=empty
end sub
public function equal(var2)
＇比较
if typename(obj)<>typename(var2) then
equal=false
elseif typename(obj)="Object" then
if obj is var2 then
equal=true
else
equal=false
end if
elseif typename(obj)="Variant()" then
if join(obj,"^")=join(var2,"^") then
equal=true
else
equal=false
end if
else
if obj=var2 then
equal=true
else
equal=false
end if
end if
end function
end class
木鸟 类例子 vbs Cache类
＇
＇ 属性valid，是否可用，取值前判断
＇ 属性name，cache名，新建对象后赋值
＇ 方法add(值,到期时间)，设置cache内容
＇ 属性value，返回cache内容
＇ 属性blempty，是否未设置值
＇ 方法makeEmpty，释放内存，
＇ 方法DelCahe ,删除内存
＇ 方法equal(变量1)，判断cache值是否和变量1相同
＇ 方法expires(time)，修改过期时间为time
＇ 用法
set myCache=New Cache
myCache.name="BoardJumpList" ＇定义缓存名
if myCache.valid then ＇判断是否可用(包括过期，与是否为空值)
response.write myCache.value ＇输出
else
................
BoardJumpList=xxx
myCache.add BoardJumpList,dateadd("n",60,now) ＇写入缓存 xxx.add 内容,过期时间
response.write BoardJumpList ＇输出
end if
myCache.makeEmpty() 释放内存
mycache.DelCahe() 删除缓存
迷城浪子写的
Class Cls_Cache
Rem ==================使用说明====================
Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。
Rem = 作用：缓存和缓存管理类
Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400
Rem = MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300
Rem = CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。
Rem = 属性:Name 定义缓存对象名称，只写属性。
Rem = 属性:value 读取和写入缓存数据。
Rem = 函数：ObjIsEmpty()判断当前缓存是否过期。
Rem = 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。
Rem ========================
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
Private Sub makeEmpty(SetName)
Application.Lock
Application(SetName) = Empty
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 If
End Function
Public Sub DelCahe(MyCaheName)
makeEmpty(CacheName&"_"&MyCaheName)
End Sub
End Class
迷城浪子 类例子
Set WydCache=New Cls_Cache
WydCache.Reloadtime=0.5 ＇定义过期时间 (以分钟为单会)
WydCache.CacheName="pages" ＇定义缓存名
IF WydCache.ObjIsEmpty() Then ＇＇判断是否可用(包括过期，与是否为空值)
Response.write WydCache.Value
Else
..................
BoardJumpList=xxx
WydCache.Value=BoardJumpList ＇写入内容
Response.write BoardJumpList
End if
