«Время кеша, минута минуты
Const webcachetime = 20
'Знак кэша, используйте его при установке нескольких систем в одном пространстве
Const webcacheflag = cache
'Установите имя кэша, значение кэша
Функция setCache (Byval Cachename, Byval Cacheval)
DIM CACHEDATA
Cachename = lcase (Changechr (Cachename))
Cachedata = Приложение (WebCacheflag & Cachename)
Если Isarray (Cachedata)
Cachedata (0) = CacheValue
Cachedata (1) = теперь ()
Еще
Redim Cachedata (2)
Cachedata (0) = CacheValue
Cachedata (1) = теперь ()
Конец, если
Application.lock
Приложение (WebCacheflag & Cachename) = Cachedata
Application.unlock
Конечная функция
'Получите имя кеша кеша
Функция getCache (Byval Cachename)
DIM CACHEDATA
Cachename = lcase (Changechr (Cachename))
Cachedata = Приложение (WebCacheflag & Cachename)
Если isarray (cachedata), то getCache = cachedata (0) else getCache =
Конечная функция
'Обнаружение имени медленного месторождения кэша
Функция chkcache (Byval Cachename)
DIM CACHEDATA
Chkcache = false
Cachename = lcase (Changechr (Cachename))
Cachedata = Приложение (WebCacheflag & Cachename)
Если нет isarray (cachedata), то выход функционирует
Если нет ISDATE (Cachedata (1)), то выход функции
Если Datediff (s, Cdate (Cachedata (1)), теперь ()) <60 * WebCachetime, то chkcache = true
Конечная функция