'Tiempo de caché, minuto de unidad
Const webCachetime = 20
'Signo de caché, úselo al instalar múltiples sistemas en un espacio
Const webCacheflag = caché
'Establezca el nombre de caché de caché, valor de caché
Función SetCache (Byval Cachename, Byval Cacheval)
Cacedata tenue
Cachename = lcase (Changechr (Cachename))
Cachedata = Aplicación (WebCacheflag y Cachename)
Si isarray (cachedata)
Cachedata (0) = Cachevalue
Cachedata (1) = ahora ()
Demás
Redim Cachedata (2)
Cachedata (0) = Cachevalue
Cachedata (1) = ahora ()
Final si
Application.lock
Aplicación (WebCacheflag & Cachename) = Cachedata
Aplicación
Función final
'Obtenga el nombre de caché de caché
Función getCache (Byval Cachename)
Cacedata tenue
Cachename = lcase (Changechr (Cachename))
Cachedata = Aplicación (WebCacheflag y Cachename)
If isarray (cachedata) y luego getCache = cachedata (0) else getcache =
Función final
'Detectar el nombre de depósito lento de caché
Función chkcache (byval cachename)
Cacedata tenue
Chkcache = falso
Cachename = lcase (Changechr (Cachename))
Cachedata = Aplicación (WebCacheflag y Cachename)
Si no isArray (Cachedata), entonces salga de la función
Si no es ISDate (Cachedata (1)), entonces salga de la función
Si datediff (S, CDATE (Cachedata (1)), ahora ()) <60 * WebCachetime entonces chkcache = true
Función final