ASP比较常用的缓存函数技巧

空间安装多个系统时使用,asp比较常用的缓存函数技巧
const webcacheflag = cache
' 获取缓存 缓存名
function getcache(byval cachename)
dim cachedata
cachename = lcase(changechr(cachename))
cachedata = application(webcacheflag & cachename)
if isarray(cachedata) then getcache = cachedata(0) else getcache =
end function
' 检测缓存 缓存名
function chkcache(byval cachename)
dim cachedata
chkcache = false
cachename = lcase(changechr(cachename))
cachedata = application(webcacheflag & cachename)
if not isarray(cachedata) then exit function
if not isdate(cachedata(1)) then exit function
if datediff(s, cdate(cachedata(1)), now()) < 60 * webcachetime then chkcache = true
end function
' 设置缓存 缓存名，缓存值
function setcache(byval cachename, byval cachevalue)
dim cachedata
cachename = lcase(changechr(cachename))
cachedata = application(webcacheflag & cachename)
if isarray(cachedata) then
cachedata(0) = cachevalue
cachedata(1) = now()
else
redim cachedata(2)
cachedata(0) = cachevalue
cachedata(1) = now()
end if
application.lock
application(webcacheflag & cachename) = cachedata
application.unlock
end function


建站知识(二)
响应式网站制作必备的四大要素
16个设计感最佳的电商网站赏析
济南竞价托管把握正确的网站SEO百度优化思路很是重要！
响应式网站页面以及框架设计的注意事项
网站建设要做哪些准备工作
租用服务器部署网页游戏的注意事项
关键词制作贵在精确,专项制作更有成效