'Tiempo de caché en minutos
Tiempo de caché web constante = 20
'Indicador de caché, utilizado al instalar varios sistemas en un espacio
Const WebCacheFlag = "Caché"
'Establece el nombre y el valor de la caché
Función SetCache(ByVal CacheName, ByVal CacheValue)
Datos de caché tenues
NombreCaché = LCase(ChangeChr(NombreCaché))
CacheData = Aplicación (WebCacheFlag y CacheName)
Si IsArray (CacheData) entonces
Datos de caché(0) = Valor de caché
CacheData(1) = Ahora()
Demás
Redim CacheData(2)
Datos de caché(0) = Valor de caché
CacheData(1) = Ahora()
Terminar si
Bloqueo de aplicación
Aplicación (WebCacheFlag y CacheName) = CacheData
Aplicación.Desbloquear
Función final
'Obtener nombre de caché
Función GetCache(ByVal CacheName)
Datos de caché tenues
NombreCaché = LCase(ChangeChr(NombreCaché))
CacheData = Aplicación (WebCacheFlag y CacheName)
Si IsArray(CacheData) Then GetCache = CacheData(0) De lo contrario GetCache = ""
Función final
'Detectar nombre de caché
Función ChkCache(ByVal CacheName)
Datos de caché tenues
ChkCache = Falso
NombreCaché = LCase(ChangeChr(NombreCaché))
CacheData = Aplicación (WebCacheFlag y CacheName)
Si no es IsArray (CacheData), salga de la función
Si no es IsDate(CacheData(1)) entonces salga de la función
Si DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime Entonces ChkCache = True
Función final