IDC资讯中心
relaxlife.net缓存的应用,调用速度要比每次都要从数据库中读要快n陪(原版)精典
缓存的应用,调用速度要比每次都要从数据库中读要快n陪(原版)
<%
rem =================================================================
rem = 类:cachecls
rem = 说明:缓存的应用
rem = revision:1.01 beta
rem = 作者:熊氏英雄（cexo255）
rem = date:2005/05/6 18:38:10
rem = qq:30133499
rem = mysite:http://www.relaxlife.net
rem = 下载：http://www.relaxlife.net/2005/relaxlife/blogview.asp?logid=178
rem = qq群：4341998
rem = 适用:对一些常用到，而又不常改变的数据放入缓存中，调用速度要比每次都要从数据库中读要快n陪
rem =================================================================
cachename = “rl”
class cachecls
private localcachename, cache_data
public property let name(byval vnewvalue)
localcachename = lcase(vnewvalue)
cache_data=application(cachename & “_” & localcachename)
end property
public property let value(byval vnewvalue)
dim n,i,newvaluearr
if localcachename<>”” then
n = countinstr(vnewvalue,”|”)
newvaluearr = split(vnewvalue,”|”,-1,1)
redim cache_data(n)
for i = 0 to n
cache_data(i) = newvaluearr(i)
next
application.lock
application(cachename & “_” & localcachename) = cache_data
application.unlock
else
response.write “设置缓存出错，或缓存名不能为空，请重新更新缓存”
response.end()
end if
end property
public property get value()
if localcachename<>”” then
if isarray(cache_data) then
value=cache_data
end if
else
response.write “设置缓存出错，或缓存名不能为空，请重新更新缓存”
response.end()
end if
end property
’取指定缓存中的值
public function getcachevalue(mycahename)
getcachevalue = application(cachename & “_” & mycahename)
end function
’取所有缓存名
public function getallcachename()
dim cacheobj
for each cacheobj in application.contents
getallcachename = getallcachename & cacheobj & “,”
next
getallcachename = left(getallcachename,len(getallcachename)-1)
getallcachename = replace(getallcachename,cachename & “_”,””)
end function
’释放缓存
public sub delcahe(mycahename)
application.lock
application.contents.remove(cachename & “_” & mycahename)
application.unlock
end sub
’释放所有缓存
public sub removeallcache()
dim cachelist,i
cachelist=split(getallcachename(),”,”)
if ubound(cachelist)>0 then
for i=0 to ubound(cachelist)
delcahe cachelist(i)
next
end if
end sub
’统计字符char在str中出现的次数
private function countinstr(str,char)
countinstr = 0
dim i, charlen
charlen = len(char)
for i = 1 to len(str)
if mid(str, i, charlen) = char then countinstr = countinstr + 1
next
end function
end class
dim cachepro
set cachepro = new cachecls
’设置缓存“cexo255”和它的值：”cexo2551|cexo2552|cexo2553|cexo2554|cexo2555″
cachepro.name = “cexo255”
cachepro.value = “cexo2551|cexo2552|cexo2553|cexo2554|cexo2555”
’取当前缓存中的值
’cachearr = cachepro.value
cachepro.name = “wxf”
cachepro.value = “wxf”
cachepro.name = “dw”
cachepro.value = “dw”
’释放缓存cexo255
’cachepro.delcahe(“cexo255”)
’释放所有缓存
’cachepro.removeallcache
’取cexo255缓存中的值
cachearr = cachepro.getcachevalue(“cexo255”)
if isarray(cachearr) then
for i = 0 to ubound(cachearr)
response.write cachearr(i) & “<br>”
next
else
response.write “缓存被释放！！！”
end if
set cachepro = nothing
%>
