ASP缓存类【先锋缓存类】Ver2004 - 外包网论坛(威客,威客网,悬赏任务)

外包网论坛(威客,威客网,悬赏任务)[娱乐][技术][帮助][管理]=*=外包/威客技术学院=*=ASP缓存类【先锋缓存类】Ver2004

如何成为一名群主?

本主题被查看37次, 共1个帖子, 1页, 当前为第1页选择页数: 1 跳转到第页上一主题下一主题

event

版主

UID: 16051
来自:
精华: 0
积分: 6673
帖子: 6669
注册: 2008-6-10 11:56:00
状态: 离线
包子皮: 4.00
包子馅: 1670.50 元

发短消息用户资料树型回复引用

只看楼主 2008-11-21 17:40

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

我的身份：公司
认证信息：

未实名认证
基本诚信：0
项目诚信：0
经验积分：26

	我的服务范围：
	尚未填写

以下为引用的内容：
<%
'-------------------------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'************************** 【先锋缓存类】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
%>

#1

大中小

本主题被查看37次, 共1个帖子, 1页, 当前为第1页选择页数: 1 跳转到第页

现在的时间是 2009-01-09 14:47:14

	版权所有外包网
	Powered by Discuz!NT 1.0.2656 Copyright © 2001-2009 Comsenz Inc. Processed in 0.08 seconds