ASP缓存类代码
Cache_class.asp ============================================ 转发时请保留此声明信息,这段声明不并会影响你的速度! 类名:无惧缓存类 V1.0 作者:梁无惧 网站:http://www.25CN.com 电子邮件:yjlrb@25CN.com 版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
·
Cache_class.asp
<%
' ============================================
' 转发时请保留此声明信息,这段声明不并会影响你的速度!
' 类名:无惧缓存类 V1.0
' 作者:梁无惧
' 网站:http://www.25CN.com
' 电子邮件:yjlrb@25CN.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
%>
<%
' ============================================
' 转发时请保留此声明信息,这段声明不并会影响你的速度!
' 类名:无惧缓存类 V1.0
' 作者:梁无惧
' 网站:http://www.25CN.com
' 电子邮件:yjlrb@25CN.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
%>
开放原子开发者工作坊旨在鼓励更多人参与开源活动,与志同道合的开发者们相互交流开发经验、分享开发心得、获取前沿技术趋势。工作坊有多种形式的开发者活动,如meetup、训练营等,主打技术交流,干货满满,真诚地邀请各位开发者共同参与!
更多推荐
已为社区贡献1条内容
所有评论(0)