En cuanto al papel del almacenamiento en caché, no necesito decir más. Su papel ya es muy obvio, especialmente para sitios web con una gran cantidad de información o páginas de bases de datos completas. Puede hacer un buen uso de los recursos de memoria del host, acelerar la eficiencia de ejecución de ASP y reducir la carga del servidor. Dongwang es el más destacado a este respecto. Por ejemplo, su versión actual de DVBBS7.1.0, incluso ha ido un paso más en la utilización de caché. La mayoría de las operaciones en las oficinas delanteras y traseras están relacionadas con el caché, y ahora Dongwang usa la clase de caché de Micheng Renzi. La siguiente lista es la clase ASP Cache escrita por los tres maestros de Dongwang.
Escrito por un pájaro de madera
La copia del código es la siguiente:
＇******************************************************
＇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), determine 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
＇Wood Bird 2002.12.24
＇Http://www.aspsky.net/
＇******************************************************
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)
．Set 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
endpropertía
Publicsubadd (var, expirar)
'Asignación
ifsempty (var) ornotisdate (expirar) entonces
salida
endif
obj = var
Expertime = expirar
Application.lock
Aplicación (Cachename) = OBJ
Aplicación (ExperTimeName) = ExperTime
Aplicación
Endsub
PublicPropertygetValue