'Cache time, unit minute
Const webcacheTime = 20
'Cache sign, use it when installing multiple systems in one space
Const webcacheflag = cache
'Set the cache cache name, cache value
Function setcache (byval cachename, byval cacheval)
Dim cachedata
Cachename = lcase (Changechr (cachename))
Cachedata = Application (Webcacheflag & Cachename)
If Isarray (cachedata)
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
'Get cache cache name
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
'Detect the cache slow deposit name
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