La copia del código es la siguiente:
<%
Rem ==========================================================================================================================
REM = Clase: Cachecls
REM = Descripción: Aplicación de caché
Rem = revisión: 1.01beta
REM = Autor: Xiong Hero (CEXO255)
REM = Fecha: 2005/05/618: 38: 10
REM = QQ: 30133499
Rem = mySite: http: //www.relaxlife.net
REM = Descargar: http://www.relaxlife.net/cexo/cache_pro.rar
REM = Grupo QQ: 4341998
REM = Aplicable: para algunos datos de uso común y sin cambios, la velocidad de llamada es más rápida que leer desde la base de datos cada vez.
Rem ==========================================================================================================================
Cachename = "RL"
ClassCachecls
PrivateLocalcachename, cache_data
PublicPropertyletName (ByValvNewValue)
LocalCachename = lcase (VNewValue)
CACHE_DATA = Aplicación (Cachename & "_" y LocalCachename)
Endpropertía
PublicPropertyletValue (ByValvNewValue)
Dimn, I, NewValuearr
Iflocalcachename <> "" entonces
N = countinstr (vNewValue, "|")
NewValuearr = Split (vNewValue, "|",-1,1)
Redimcache_data (n)
Fori = 0ton
Cache_data (i) = newValuearr (i)
Próximo
Application.lock
Aplicación (Cachename & "_" & LocalCachename) = Cache_Data
Aplicación
Demás
Respuesta.WRITE "Hay un error de configuración de caché, o el nombre de la memoria caché no puede estar vacío, por favor reponder el caché"
Respuesta.end ()
Endif
Endpropertía
PublicPropertygetValue ()