<%
Rem ==================================================== =================
Rem = clase:CacheCls
Rem = Descripción: Aplicación en caché
Rem = Revisión: 1.01 Beta
Rem = Autor: Héroe de Xiong (cexo255)
Rem = Fecha: 2005/05/6 18:38:10
Rem = QQ: 30133499
Rem = MiSitio:Http://www.Relaxlife.net
Rem = Descargar: Http://www.Relaxlife.net /cexo/Cache_pro.rar
Rem = grupo QQ: 4341998
Rem = Aplicable: coloque algunos datos de uso común pero que se modifican con poca frecuencia en el caché, y la velocidad de llamada es más rápida que leer de la base de datos cada vez.
Rem ==================================================== ================
Nombre de caché = "RL"
ClassCacheCls
Nombre de caché local privado, datos de caché
Nombre del permiso de propiedad pública (ByVal vNewValue)
NombreCachélocal = LCase(vNewValue)
Cache_Data=Aplicación(NombreCaché & "_" & NombreCaché Local)
Propiedad final
Valor de propiedad pública Let (ByVal vNewValue)
Dim N,i,NuevoValorArr
Si LocalCacheName<>"" Entonces
N = CountInStr(vNewValue,"|")
NuevoValueArr = Dividir(vNuevoValor,"|",-1,1)
Redim Cache_Data(N)
Para i = 0 a N
Cache_Data(i) = NuevoValueArr(i)
Próximo
Bloqueo de aplicación
Aplicación (nombre de caché y "_" y nombre de caché local) = datos_caché
Aplicación.desbloquear
Demás
Response.Write "Error al configurar el caché, o el nombre del caché no puede estar vacío, actualice el caché nuevamente"
Respuesta.Fin()
Terminar si
Propiedad final
Propiedad pública obtener valor()
Si LocalCacheName<>"" Entonces
Si IsArray (Cache_Data) entonces
Valor = Datos_caché
Terminar si
Demás
Response.Write "Error al configurar el caché, o el nombre del caché no puede estar vacío, actualice el caché nuevamente"
Respuesta.Fin()
Terminar si
Propiedad final
'Obtiene el valor en el caché especificado
Función pública GetCacheValue (MyCacheName)
GetCacheValue = Aplicación (Nombre de caché & "_" & MyCacheName)
Función final
'Obtener todos los nombres de caché
Función pública GetallCacheName()
Dim Cacheobj
Para cada Cacheobj en Application.Contents
GetallCacheName = GetallCacheName & Cacheobj & ","
Próximo
GetallCacheName = Izquierda(GetallCacheName,Len(GetallCacheName)-1)
GetallCacheName = Reemplazar(GetallCacheName,CacheName & "_","")
Función final
'Liberar caché
Sub DelCahe público (nombre de MyCahe)
Bloqueo de aplicación
Aplicación.Contenido.Remove(NombreCaché & "_" & MyCacheName)
Aplicación.desbloquear
Subtítulo final
'Liberar todos los cachés
Sub público RemoveAllCache()
Cachelista tenue, yo
Lista de caché=Dividir(GetallCacheName(),",")
Si UBound(Cachelist)>0 Entonces
Para i=0 a UBound(Lista de caché)
Lista de caché DelCache(i)
Próximo
Terminar si
Subtítulo final
'Cuenta el número de veces que aparece el personaje Char en Str
Función privada CountInStr(Str,Char)
CuentaEnStr = 0
Dim i, CharLen
CharLen = Len(Carácter)
Para i = 1 a Len(Str)
Si Mid(Str, i, CharLen) = Char Entonces CountInStr = CountInStr + 1
Próximo
Función final
Clase final
Dim CachePro
Establecer CachePro = Nuevo CacheCls
'Establece caché "cexo255" y su valor: "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
CachePro.Nombre = "cexo255"
CachePro.Value = "cexo2551|cexo2552|cexo2553|cexo2554|cexo2555"
'Obtiene el valor en el caché actual
'CacheArr = CachePro.Value
CachePro.Name = "wxf"
CachePro.Value = "wxf"
CachePro.Nombre = "dw"
CachePro.Value = "dw"
'Liberar caché cexo255
'CachePro.DelCache("cexo255")
'Liberar todos los cachés
'CachePro.RemoveAllCache
'Obtiene el valor en la caché cexo255
CacheArr = CachePro.GetCacheValue("cexo255")
Si esArray (CacheArr) Entonces
Para i = 0 a UBound(CacheArr)
Respuesta.Escribir CacheArr(i) & "<br>"
Próximo
Demás
Respuesta.Escriba "¡¡¡Caché liberado!!!"
Finalizar si
Set CachePro = Nada
%>