ASP缓存类 【先锋缓存类】Ver2004
2009-05-12 15:22:08来源:未知 阅读 ()
以下为引用的内容: <% '------------------------------------------------------------------------------------- '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************** 【先锋缓存类】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 标签: 版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 上一篇:asp脚本运行超时的解决办法 下一篇:ASP动态包含文件的改进方法
相关文章
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设 网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源 网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它 服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护 软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash 热门词条
最新资讯
热门关注
热门标签
|