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


网络推广，SEO研究初学者如何优化商业网站
做SEO多久才能看到效果
外贸建站需要哪些东西
企业网站怎样提升权重呢？
讲述模板建站的优点与缺点
电商新势力：“内容”和“电商”结合的趋势，还会继续吗？
做个模板网站要多少钱
个人开发微信小程序