ASP开发中无惧缓存类 V1.0

' 用途:用于常用数据的缓存,以减少执行,加快速度,但是由于使用application来存贮数据,有可能对服务器造成负担lbH中国设计秀
' 类名 Cache_ClasslbH中国设计秀
' 方法 NoCache(函数名,关键字) 测试该缓存是否有效lbH中国设计秀
' 属性 Value 如果缓存无效,使用该属性设置缓存,如果缓存,则使用该属性读取缓存lbH中国设计秀
' 例子lbH中国设计秀
' Dim CachelbH中国设计秀
' Set Cache = New Cache_ClasslbH中国设计秀
' if Cache.NoCache("getname(a)","username") Then Cache.Value=getname(a)lbH中国设计秀
' Response.Write Cache.ValuelbH中国设计秀
' 注意:每次使用前都需要用NoCache方法来测试,否则无法保证的取得的值是否为当前设置的函数名lbH中国设计秀
' 技巧:函数名用于识别,当有数据改变时,只需直接调用函数SetCaclbH中国设计秀

当你的技术已经到达一定的时候，这代码是非常有用的！因为他是进军优化行列的必须函数！建议各位收藏使用！lbH中国设计秀

 程序代码lbH中国设计秀
<%Class Cache_ClasslbH中国设计秀
Dim Cache_Name, Cache_Key, Version, Cache_ValuelbH中国设计秀

Function NoCache(FunName, Key)lbH中国设计秀
Dim NoInlbH中国设计秀
Cache_Name = FunNamelbH中国设计秀
Cache_Key = KeylbH中国设计秀
Cache_Value = Application("Cache_" & Cache_Name)lbH中国设计秀
NoIn = TruelbH中国设计秀
If IsArray(Cache_Value) Then If Application("CacheKey_" & Cache_Key) = Cache_Value(0) Then NoIn = FalselbH中国设计秀
NoCache = NoInlbH中国设计秀
End FunctionlbH中国设计秀

PRoperty Get Value()lbH中国设计秀
Value = Cache_Value(1)lbH中国设计秀
End PropertylbH中国设计秀

Property Let Value(Val)lbH中国设计秀
ReDim Cache_Value(1)lbH中国设计秀
Cache_Value(0) = Application("CacheKey_" & Cache_Key)lbH中国设计秀
Cache_Value(1) = VallbH中国设计秀
Application("Cache_" & Cache_Name) = Cache_ValuelbH中国设计秀
End PropertylbH中国设计秀

End ClasslbH中国设计秀

Function SetCacheKey(Key)lbH中国设计秀
Application("CacheKey_" & Key) = TimerlbH中国设计秀
End FunctionlbH中国设计秀

Dim CachelbH中国设计秀
Set Cache = New Cache_ClasslbH中国设计秀
%>lbH中国设计秀