'Durée du cache en minutes
Const WebCacheTime = 20
'Drapeau de cache, utilisé lors de l'installation de plusieurs systèmes dans un seul espace
Const WebCacheFlag = "Cache"
'Définir le nom et la valeur du cache
Fonction SetCache (ByVal CacheName, ByVal CacheValue)
Dim CacheData
NomCache = LCase(ChangeChr(CacheName))
CacheData = Application (WebCacheFlag & CacheName)
Si IsArray (CacheData) Alors
CacheData(0) = CacheValue
CacheData(1) = Maintenant()
Autre
ReDimCacheData(2)
CacheData(0) = CacheValue
CacheData(1) = Maintenant()
Fin si
Application.Lock
Application (WebCacheFlag & CacheName) = CacheData
Application.UnLock
End Function
'Obtenir le nom du cache
Fonction GetCache (ByVal CacheName)
Dim CacheData
NomCache = LCase(ChangeChr(CacheName))
CacheData = Application (WebCacheFlag & CacheName)
Si IsArray(CacheData) Alors GetCache = CacheData(0) Sinon GetCache = ""
End Function
'Détecter le nom du cache du cache
Fonction ChkCache(ByVal CacheName)
Dim CacheData
ChkCache = Faux
NomCache = LCase(ChangeChr(CacheName))
CacheData = Application (WebCacheFlag & CacheName)
Si ce n'est pas IsArray (CacheData), alors quittez la fonction
Si ce n'est pas IsDate (CacheData (1)), alors quittez la fonction
Si DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime Then ChkCache = True
Fonction de fin