<%
'********************************************************
'Clase VBSCACHE
'Atributo válido, ya sea disponible, juzga antes de tomar el valor
'Nombre del atributo, nombre de caché, asignar valor después de crear un nuevo objeto
'Método Agregar (valor, tiempo de vencimiento), establecer contenido de caché
'Valor de atributo, retorno de contenido de caché
'Atributo Slempty, si el valor no está establecido
'Método Makesepty, memoria libre, prueba
'Método igual (variable 1), determina si el valor de la caché es el mismo que la variable 1
'El método expira (tiempo), modifique la expiración de tiempo a tiempo
'La clase de caché escrita por Muniao
'********************************************************
clasificación de clases
privateBj'cache contenido
PrivateSpiretime'Expiration Time
PrivateSpiretImename'Expiration Time Nombre de la aplicación
Nombre de la aplicación de contenido de privateCachename'Cache
privatepath'uri
privatesubclass_initialize ()
ruta = request.ServerVariables ("URL")
ruta = izquierda (ruta, instrrev (ruta, "/"))
Endsub
privatesubclass_merminate ()
Endsub
PublicPropertygetblempty
'¿Está vacío
ifsempty (obj) entonces
Strempty = True
demás
Strempty = falso
endif
endpropertía
PublicPropertygetValid
'Si está disponible (caducado)
ifsempty (obj) ornotisdate (caducidad) entonces
válido = falso
elseifcdate (expiretime) <Nowthen
válido = falso
demás
Válido = verdadero
endif
endpropertía
PublicPropertyletName (STR)
'Establezca el nombre de caché
Cachename = str & ruta
obj = aplicación (Cachename)
expiretimeName = str & "expiras" y ruta
Extiretime = Aplicación (ExpiretimeName)
endpropertía
PublicPropertyletExires (TM)
'Restablecer el tiempo de vencimiento
Expertime = tm
Application.lock
Aplicación (ExperTimeName) = ExperTime
Aplicación