<%
'*******************************************************
'Classe vbscache
'Atributo válido, esteja disponível, juiz antes de tomar o valor
'Nome do atributo, nome do cache, atribua valor após criar um novo objeto
'Método Adicionar (valor, tempo de expiração), defina o conteúdo do cache
'Valor do atributo, conteúdo de cache de retorno
'Atributo Blempy, se o valor não está definido
'Método torna a memória livre, a memória, o teste
'Método igual (variável 1), determina se o valor do cache é o mesmo que a variável 1
'O método expira (tempo), modifique o tempo de vencimento
'A aula de cache escrita por Muniao
'*******************************************************
ClassCache
Conteúdo privadoBJ'cache
PrivateExpireTime'expuration Tempo
PrivateExpiretimeName'expiration Time Application Nome
PrivateCachename'cache Content Application Nome
privatePath'uri
privatesubclass_initialize ()
Path = request.Servervariables ("URL")
caminho = esquerda (Path, Instrrev (Path, "/"))
endsub
privatesubclass_terminate ()
endsub
PublicPropertygetblempty
'Está vazio
ifSEmpty (OBJ) então
Blemanha = Verdadeiro
outro
Blempty = False
endif
EndProperty
publicPropertyGetValid
'Se está disponível (expirado)
ifSEmpty (obj) ornotisdate (expireTime) então
válido = false
elseifcdate (expireTime) <agora
válido = false
outro
válido = true
endif
EndProperty
PublicPropertyLetName (STR)
'Defina o nome do cache
Cachename = STR & PATH
Obj = Aplicação (Cachename)
expiretimeName = str & "expira" e caminho
expireTime = Application (EXPIRETIMENOME)
EndProperty
PublicPropertyletexpires (TM)
'Redefina o tempo de validade
expireTime = tm
Application.lock
APLICAÇÃO (EXPIRETIMENONE) = EXPIRTIME
Application.unlock