ASP缓存类 【先锋缓存类】Ver2004

2009-05-12 15:22:08来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

以下为引用的内容:
<%
&apos;-------------------------------------------------------------------------------------
&apos;转发时请保留此声明信息,这段声明不并会影响你的速度!
&apos;************************** 【先锋缓存类】Ver2004 ********************************
&apos;作者:孙立宇、apollosun、ezhonghua
&apos;官方网站:http://www.lkstar.com 技术支持论坛:http://bbs.lkstar.com
&apos;电子邮件:kickball@netease.com 在线QQ:94294089
&apos;版权声明:版权没有,盗版不究,源码公开,各种用途均可免费使用,欢迎你到技术论坛来寻求支持。
&apos;目前的ASP网站有越来越庞大的趋势,资源和速度成了瓶颈
&apos;——利用服务器端缓存技术可以很好解决这方面的矛盾,大大加速ASP运行和改善效率。
&apos;本人潜心研究了各种算法,应该说,这个类是当前最快最纯净的缓存类。
&apos;详细使用说明或范例请见下载附件或到本人官方站点下载!
&apos;--------------------------------------------------------------------------------------
class clsCache
&apos;----------------------------
private cache &apos;缓存内容
private cacheName &apos;缓存Application名称
private expireTime &apos;缓存过期时间
private expireTimeName &apos;缓存过期时间Application名称
private path &apos;缓存页URL路径

private sub class_initialize()
path=request.servervariables("url")
path=left(path,instrRev(path,"/"))
end sub

private sub class_terminate()
end sub

Public Property Get Version
Version="先锋缓存类 Version 2004"
End Property

public property get valid &apos;读取缓存是否有效/属性
if isempty(cache) or (not isdate(expireTime)) then
vaild=false
else
valid=true
end if
end property

public property get value &apos;读取当前缓存内容/属性
if isempty(cache) or (not isDate(expireTime)) then
value=null
elseif CDate(expireTime)<now then
value=null
else
value=cache
end if
end property

public property let name(str) &apos;设置缓存名称/属性
cacheName=str&path
cache=application(cacheName)
expireTimeName=str&"expire"&path
expireTime=application(expireTimeName)
end property

public property let expire(tm) &apos;设置缓存过期时间/属性
expireTime=tm
application.Lock()
application(expireTimeName)=expireTime
application.UnLock()
end property

public sub add(varCache,varExpireTime) &apos;对缓存赋值/方法
if isempty(varCache) or not isDate(varExpireTime) then
exit sub
end if
cache=varCache
expireTime=varExpireTime
application.lock
application(cacheName)=cache
application(expireTimeName)=expireTime
application.unlock
end sub

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:asp脚本运行超时的解决办法

下一篇:ASP动态包含文件的改进方法