<%
'***********************************************
'vbscache Class
'Атрибут действителен, независимо от того, доступен ли он, судья перед тем, как принять стоимость
'Имя атрибута, имя кэша, назначение значения после создания нового объекта
'Method Add (значение, время истечения), установить содержание кеша
'Значение атрибута, контент возврата кеша
'Атрибут Blemply, независимо от того, не установлено ли значение
«Метод делает пумпти, свободная память, тест
Метод равен (переменная 1), определяет, является ли значение кэша таким же, как переменная 1
Срок действия метода истекает (время), изменяйте время истечения срока действия
'Класс Cache, написанный Muniao
'***********************************************
ClassCache
PrivateObj'Cache Content
PrivateExpireTime'Expiration время
PrivateExpireTimEname'Expiration Time Имя приложения
PrivateCachEname'cache Content ame Имя приложения
privatePath'uri
privatesubclass_initialize ()
path = request.servervariables ("url")
path = left (path, instrrev (path, "/"))
заканчивая
privatesubclass_mterminate ()
заканчивая
publicpropertygetblempty
'Это пусто
ifsempty (obj) тогда
blempty = true
еще
Blempty = false
эндиф
EndProperty
publicpropertygetvalid
'Доступно ли это (истек)
ifsempty (obj) ornotisdate (expiration -time) тогда
vaility = false
elseifcdate (expitreTime) <nowwhen
vaility = false
еще
достоверно = true
эндиф
EndProperty
publicpropertyletname (str)
'Установите имя кэша
cachename = str & path
obj = приложение (Cachename)
expireTimEname = str & "истекает" & Path
expireTime = приложение (ExteTimeName)
EndProperty
publicpropertyletexpires (TM)
'Сбросить время истечения
expiretime = tm
Application.lock
Приложение (expireTimEname) = ExtireTime
Application.unlock