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

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

<!--#includefile="clsCache"-->
<%
dimcontent,myCache
setmyCache=newcache
myCache.name="lkstar"'定义缓存名称
ifmyCache.validthen'如果缓存有效
content=myCache.value'读取缓存内容
else
content="......"'大量内容，可以是非常耗时大量数据库查询记录集
myCache.addcontent,dateadd("n",1000,now)'将内容赋值给缓存，并设置缓存有效期是当前时间＋1000分钟
endif
setclsCache=nothing'释放对象
%>

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

privatesubclass_initialize()
path=request.servervariables("url")
path=left(path,instrRev(path,"/"))
endsub

privatesubclass_terminate()
endsub

PublicPropertyGetVersion
Version="先锋缓存类Version2004"
EndProperty

publicpropertygetvalid'读取缓存是否有效/属性
ifisempty(cache)or(notisdate(expireTime))then
vaild=false
else
valid=true
endif
endproperty

publicpropertygetvalue'读取当前缓存内容/属性
ifisempty(cache)or(notisDate(expireTime))then
value=null
elseifCDate(expireTime)<nowthen
value=null
else
value=cache
endif
endproperty

publicpropertyletname(str)'设置缓存名称/属性
cacheName=str&path
cache=application(cacheName)
expireTimeName=str&"expire"&path
expireTime=application(expireTimeName)
endproperty

publicpropertyletexpire(tm)'设置缓存过期时间/属性
expireTime=tm
application.Lock()
application（expireTimeName）=expireTime
application.UnLock()
endproperty

publicsubadd(varCache,varExpireTime)'对缓存赋值/方法
ifisempty(varCache)ornotisDate(varExpireTime)then
exitsub
endif
cache=varCache
expireTime=varExpireTime
application.lock
application(cacheName)=cache
application(expireTimeName)=expireTime
application.unlock
endsub

publicsubclean()'释放缓存/方法
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
cache=empty
expireTime=empty
endsub

publicfunctionverify(varcache2)'比较缓存值是否相同/方法——返回是或否
iftypename(cache)<>typename(varcache2)then
verify=false
elseiftypename(cache)="Object"then
ifcacheisvarcache2then
verify=true
else
verify=false
endif
elseiftypename(cache)="Variant()"then
ifjoin(cache,"^")=join(varcache2,"^")then
verify=true
else
verify=false
endif
else
ifcache=varcache2then
verify=true
else
verify=false
endif
endif
endfunction
%>