'Cache -Zeit, Einheit Minute
Const webcachetime = 20
'Cache -Zeichen, verwenden Sie es, wenn Sie mehrere Systeme in einem Raum installieren
Const webcacheflag = cache
'Setzen Sie den Cache -Cache -Namen, den Cache -Wert
Funktionsetcache (Byval CacheName, Byval Cacheval)
Dimer Cachedata
CacheName = Lase (Changechr (CacheName))
Cachedata = application (webcacheflag & cacheName)
Wenn isarray (Cachedata)
Cachedata (0) = Cachevalue
Cachedata (1) = jetzt ()
Anders
Redim Cachedata (2)
Cachedata (0) = Cachevalue
Cachedata (1) = jetzt ()
Ende wenn
Application.lock
Anwendung (WebcacheFlag & CacheName) = Cachedata
Application.unlock
Endfunktion
'Holen Sie sich den Cache -Cache -Namen
Funktion getCache (Byval CacheName)
Dimer Cachedata
CacheName = Lase (Changechr (CacheName))
Cachedata = application (webcacheflag & cacheName)
Wenn isarray (cachedata) dann getCache = cachedata (0) else getCache =
Endfunktion
'Erkennen Sie den Namen Langsamer Einzahlungsnamen
Funktion chkcache (Byval CacheName)
Dimer Cachedata
Chkcache = false
CacheName = Lase (Changechr (CacheName))
Cachedata = application (webcacheflag & cacheName)
Wenn nicht Isarray (Cachedata), beenden Sie die Funktion
Wenn nicht isdate (Cachedata (1)), dann beenden Sie die Funktion
Wenn datiff (s, CDate (Cachedata (1)), jetzt ()) <60 * webcachetime dann chkcache = true
Endfunktion