繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP缓存类 【先锋缓存类】Ver2004
- ASP
- ASP技巧：在Access数据库中重命名表
- 用ASP编程实现网络内容快速查找
- 比较ASP生成静态HTML文件的几种方法
- ASP实例：实现邮件发送普通附件和嵌入附件
- 如何用ASP实现去掉三个最高分和三个最低分
- ASP实例：Access为后台数据库的网站统计系统
- 用标签替换的方法生成静态网页
- 例程：用ASP判断文件地址是否有效
- 学ASp动态网页必备：常用的38个函数
- ASP教程：初次接触学习ASP脚本程序
- ASPJPEG水印中关于文字水印的帮助文档(中英文对照)
- ASP例子：ASP把汉字转化为拼音的函数
- ASP教程：学习ASP应用Cookies的技巧
- ASP入门：认识ASP程序所使用的几种脚本语言
- 初学者的ASP教程：常用ASP内置函数
- ASP初级教程之ASP对表单和用户输入的处理
- 学习ASP文件引用的方法
- 用ASP编写更人性化的弹出窗口程序
- 谈谈学习ASP动态网页制作技术的编程心得
- 用ASP程序实现网站在线人数统计
ASP缓存类 【先锋缓存类】Ver2004
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 90 ::
收藏到网摘: n/a
| 以下为引用的内容： <% '------------------------------------------------------------------------------------- '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************** 【先锋缓存类】Ver2004 ******************************** '作者:孙立宇、apollosun、ezhonghua '官方网站:http://www.lkstar.com 技术支持论坛：http://bbs.lkstar.com '电子邮件:[email protected] 在线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 %> |
评论 (0) All
