'Cache-Zeit in Minuten
Const WebCacheTime = 20
'Cache-Flag, wird bei der Installation mehrerer Systeme in einem Raum verwendet
Const WebCacheFlag = "Cache"
'Legen Sie den Cache-Namen und den Cache-Wert fest
Funktion SetCache(ByVal CacheName, ByVal CacheValue)
CacheData dimmen
CacheName = LCase(ChangeChr(CacheName))
CacheData = Anwendung(WebCacheFlag & CacheName)
Wenn IsArray(CacheData) Dann
CacheData(0) = CacheValue
CacheData(1) = Now()
Anders
ReDim CacheData(2)
CacheData(0) = CacheValue
CacheData(1) = Now()
Ende wenn
Anwendungssperre
Anwendung(WebCacheFlag & CacheName) = CacheData
Anwendung.UnLock
Endfunktion
'Cache-Cache-Namen abrufen
Funktion GetCache(ByVal CacheName)
CacheData dimmen
CacheName = LCase(ChangeChr(CacheName))
CacheData = Anwendung(WebCacheFlag & CacheName)
Wenn IsArray(CacheData) Then GetCache = CacheData(0) Else GetCache = ""
Endfunktion
'Cache-Cache-Namen ermitteln
Funktion ChkCache(ByVal CacheName)
CacheData dimmen
ChkCache = Falsch
CacheName = LCase(ChangeChr(CacheName))
CacheData = Anwendung(WebCacheFlag & CacheName)
Wenn nicht IsArray(CacheData), dann Funktion beenden
Wenn nicht IsDate(CacheData(1)), dann Funktion beenden
Wenn DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime, dann ist ChkCache = True
Funktion beenden