ASP缓存类代码

Cache_class.asp

<%
' ============================================
' 转发时请保留此声明信息,这段声明不并会影响你的速度!
' 类名:无惧缓存类 V1.0
' 作者:梁无惧
' 网站:http://www.２５ＣＮ.com
' 电子邮件:yjlrb@２５ＣＮ.com
' 版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
' 发送一份给作者.
' ============================================
' 用途:用于常用数据的缓存,以减少执行,加快速度,但是由于使用Application来存贮数据,有可能对服务器造成负担
' 类名 Cache_Class
' 方法 NoCache(函数名,关键字) 测试该缓存是否有效
' 属性 Value  如果缓存无效,使用该属性设置缓存,如果缓存,则使用该属性读取缓存
' 例子
' Dim Cache
' Set Cache = New Cache_Class
' if Cache.NoCache("getname(a)","username") Then Cache.Value=getname(a)
' Response.Write Cache.Value
' 注意:每次使用前都需要用NoCache方法来测试,否则无法保证的取得的值是否为当前设置的函数名
' 技巧:函数名用于识别,当有数据改变时,只需直接调用函数SetCacheKey(关键字)即可以刷新缓存,这样可保存缓存随数据的改变而重新缓存
'      默认建立Cache实例，可以在程序中直接调用而不需要事先创建
' ============================================

Class Cache_Class
  Dim Cache_Name, Cache_Key, Version, Cache_Value

  Function NoCache(FunName, Key)
    Dim NoIn
    Cache_Name = FunName
    Cache_Key = Key
    Cache_Value = Application("Cache_" & Cache_Name)
    NoIn = True
    If IsArray(Cache_Value) Then If Application("CacheKey_" & Cache_Key) = Cache_Value(0) Then NoIn = False
    NoCache = NoIn
  End Function

  Property Get Value()
    Value = Cache_Value(1)
  End Property

  Property Let Value(Val)
    ReDim Cache_Value(1)
    Cache_Value(0) = Application("CacheKey_" & Cache_Key)
    Cache_Value(1) = Val
    Application("Cache_" & Cache_Name) = Cache_Value
  End Property

End Class

Function SetCacheKey(Key)
  Application("CacheKey_" & Key) = Timer
End Function

Dim Cache
Set Cache = New Cache_Class
%>