今天写了一个asp缓存函数

最新推荐文章于 2019-08-07 07:32:47 发布

goodgecko1

最新推荐文章于 2019-08-07 07:32:47 发布

阅读量103

点赞数

分类专栏： asp 文章标签： ASP Cache SQL

asp 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Function setCacheValue(cacheName,getCacheValueSql,reloadTime)
	Dim cacheValue,cachereloadTime,reloadTimeValue
	cacheValue = Application("cache_"&cacheName)
	cachereloadTime = Application("cache_"&cacheName&"_data")
	if cacheValue = "" then
		cachereloadTime = DateAdd("s",reloadTime,Now)
	end if
	reloadTimeValue = DateDiff("s", Now, cachereloadTime)
	if reloadTimeValue > 0 and cacheValue <> "" then
		setCacheValue = cacheValue
	else
		Application.Lock
		Application("cache_"&cacheName) = getValue(getCacheValueSql)
		Application("cache_"&cacheName&"_data") = DateAdd("s",reloadTime,Now)
		Application.UnLock
	end if		
End Function
'
Function getValue(sql)
	getValue = "得到的返回值"
End Function

Function clserCache(cacheName)
	Application.Lock
	Application("cache_"&cacheName) = Empty
	Application("cache_"&cacheName&"_data") = Empty
	Application.UnLock	
End Function


call setCacheValue(mycache,sql,30)
Response.Write(application("cache_"&mycache)&"<br>")
Response.Write(application("cache_"&mycache&"_data")&"<br>")


call clserCache(cacheName)
if application("cache_"&mycache) = "" then
	Response.Write("被清空了<br>")
else
	Response.Write(application("cache_"&mycache)&"<br>")
end if
if application("cache_"&mycache&"_data") = "" then
	Response.Write("被清空了<br>")
else
	Response.Write(application("cache_"&mycache&"_data")&"<br>")
end if