先锋缓存类（极度加速ASP和提高执行效率）

clsCache 公共属性

引用内容：

valid 返回是否有效。true表示有效,false表示无效。只读。 Version 获取类的版本信息。只读。 value 返回缓存内容。只读。 name 设置缓存名称，写入。 expire 设置缓存过期时间，写入。

clsCache 公共方法

引用内容：

add(Cache,ExpireTime) 对缓存赋值（缓存内容,过期时间） clean() 清空缓存 verify(cache2) 比较缓存值是否相同——返回是或否。

clsCache 使用示例

程序代码：

<!--#include file="clsCache" --> <% dim content,myCache set myCache=new cache myCache.name="lkstar" '定义缓存名称 if myCache.valid then '如果缓存有效 content=myCache.value '读取缓存内容 else content="......" '大量内容，可以是非常耗时大量数据库查询记录集 myCache.add content,dateadd("n",1000,now) '将内容赋值给缓存，并设置缓存有效期是当前时间＋1000分钟 end if set clsCache=nothing '释放对象 %>

程序代码：

<%


'-------------------------------------------------------------------------------------


'转发时请保留此声明信息,这段声明不并会影响你的速度!


'************************** 【先锋缓存类】Ver2004 ********************************


'作者:孙立宇、apollosun、ezhonghua


'官方网站:http://www.lkstar.com 技术支持论坛：http://bbs.lkstar.com


'电子邮件:kickball@netease.com 在线QQ:94294089


'版权声明:版权没有,盗版不究，源码公开,各种用途均可免费使用，欢迎你到技术论坛来寻求支持。


'目前的ASP网站有越来越庞大的趋势，资源和速度成了瓶颈


'——利用服务器端缓存技术可以很好解决这方面的矛盾，大大加速ASP运行和改善效率。


'本人潜心研究了各种算法，应该说，这个类是当前最快最纯净的缓存类。


'详细使用说明或范例请见下载附件或到本人官方站点下载！


'--------------------------------------------------------------------------------------


class clsCache


'----------------------------


private cache '缓存内容


private cacheName '缓存Application名称


private expireTime '缓存过期时间


private expireTimeName '缓存过期时间Application名称


private path '缓存页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 '读取缓存是否有效/属性


if isempty(cache) or (not isdate(expireTime)) then


vaild=false


else


valid=true


end if


end property




public property get value '读取当前缓存内容/属性


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) '设置缓存名称/属性


cacheName=str&path


cache=application(cacheName)


expireTimeName=str&"expire"&path


expireTime=application(expireTimeName)


end property




public property let expire(tm) '设置缓存过期时间/属性


expireTime=tm


application.Lock()


application（expireTimeName）=expireTime


application.UnLock()


end property




public sub add(varCache,varExpireTime) '对缓存赋值/方法


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




public sub clean() '释放缓存/方法


application.lock


application(cacheName)=empty


application(expireTimeName)=empty


application.unlock


cache=empty


expireTime=empty


end sub




public function verify(varcache2) '比较缓存值是否相同/方法——返回是或否


if typename(cache)<>typename(varcache2) then


verify=false


elseif typename(cache)="Object" then


if cache is varcache2 then


verify=true


else


verify=false


end if


elseif typename(cache)="Variant()" then


if join(cache,"^")=join(varcache2,"^") then


verify=true


else


verify=false


end if


else


if cache=varcache2 then


verify=true


else


verify=false


end if


end if


end function


%>