Код класса космического кэша восьмитеговой кашта
Кода -копия выглядит следующим образом:
<%
ClassCache
PrivateObj'Cache Content
PrivateExpireTime'Expiration время
PrivateExpireTimEname'Expiration Time Имя приложения
PrivateCachEname'cache Content ame Имя приложения
privatePath'url
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)