'Время кэширования в минутах
Константное время WebCacheTime = 20
'Флаг кэша, используемый при установке нескольких систем в одном пространстве.
Const WebCacheFlag = "Кэш"
'Установить имя и значение кэша
Функция SetCache(ByVal CacheName, ByVal CacheValue)
Тусклые данные кэша
CacheName = LCase(ChangeChr(CacheName))
CacheData = Приложение (WebCacheFlag & CacheName)
Если IsArray(CacheData) Тогда
КэшДанные(0) = КэшЗначение
КэшДанные(1) = Сейчас()
Еще
Переместить кэшированные данные(2)
КэшДанные(0) = КэшЗначение
КэшДанные(1) = Сейчас()
Конец, если
Приложение.Блокировка
Приложение (WebCacheFlag & CacheName) = CacheData
Приложение.Разблокировать
Конечная функция
'Получить имя кэша кэша
Функция GetCache(ByVal CacheName)
Тусклые данные кэша
CacheName = LCase(ChangeChr(CacheName))
CacheData = Приложение (WebCacheFlag & CacheName)
Если IsArray(CacheData) Тогда GetCache = CacheData(0) Иначе GetCache = ""
Конечная функция
«Определить имя кэша кэша»
Функция ChkCache(ByVal CacheName)
Тусклые данные кэша
ЧкКэш = Ложь
CacheName = LCase(ChangeChr(CacheName))
CacheData = Приложение (WebCacheFlag & CacheName)
Если не IsArray(CacheData), то выйдите из функции
Если не IsDate(CacheData(1)) то выйдите из функции
Если DateDiff("s", CDate(CacheData(1)), Now()) < 60 * WebCacheTime Тогда ChkCache = True
Конечная функция