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

作者:孙立宇 时间:2009-01-05 12:28:00 

【先锋缓存类】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
%>
标签:缓存,类,效率,服务器,asp
0
投稿

猜你喜欢

  • 使用python tkinter实现各种个样的撩妹鼠标拖尾效果

    2022-03-10 11:32:31
  • python利用跳板机ssh远程连接redis的方法

    2023-04-04 23:06:01
  • 简单的命令查看安装的python版本号

    2022-03-12 17:23:06
  • Magic Photo Frame 神奇创意相框

    2009-09-15 20:45:00
  • 不用为美化select烦恼模仿combox(select)控件

    2007-08-04 21:08:00
  • Python实现二分查找算法实例

    2022-04-07 08:44:37
  • python实现读取并显示图片的两种方法

    2023-12-20 12:51:14
  • Python PyQt5中窗口数据传递的示例详解

    2023-12-30 10:14:43
  • 快速认识CSS中的overflow属性

    2009-05-29 16:36:00
  • Python实现删除时保留特定文件夹和文件的示例

    2021-11-19 01:09:38
  • Python的字符串操作简单实例

    2021-03-13 07:16:00
  • thinkphp3.x自定义Action、Model及View的简单实现方法

    2024-05-11 10:04:01
  • mysql SQL语句积累

    2024-01-13 06:18:45
  • Python实现哲学家就餐问题实例代码

    2022-09-20 14:10:49
  • python 自定义异常和异常捕捉的方法

    2022-09-10 12:06:31
  • javascript 精确获取样式属性(上)

    2024-04-17 09:45:37
  • mysql如何实现多行查询结果合并成一行

    2024-01-19 15:33:38
  • asp如何做一个看他爱不爱你的小测验?

    2010-07-11 21:16:00
  • Python入门教程(九)Python字符串介绍

    2023-02-05 22:34:43
  • 网页设计中的对比原则

    2010-03-20 21:50:00
  • asp之家 网络编程 m.aspxhome.com