Las funciones pueden configurar un caché privado o público para mejorar la eficiencia. Puede elegir libremente utilizar el componente Stream o el componente FSO. Admite codificación de archivos personalizada y guarda
atributos de archivos.
Nombre
Texto, el nombre de la plantilla, utilizado principalmente para distinguir diferentes plantillas cuando se utiliza el caché público.
Formato
Texto, tipo de codificación de archivo, valor configurable.
Objeto
El texto, utilizando componentes, puede establecer valores:
Arroyo
FSO
caché pública
Valor booleano, use el caché público. Cuando está activado, el archivo de plantilla se guardará en el objeto Aplicación. Otros objetos que hacen referencia a esta clase de plantilla pueden leer desde el caché configurando el mismo valor de Nombre y también abriendo el caché público. (Método de carga)
caché privada
Valor booleano, use caché privado. Cuando está activado, el archivo de plantilla se guardará en la variable interna del objeto y el mismo objeto que hace referencia a esta clase de plantilla puede leerlo. (Método de carga)
Dirección
Texto, directorio donde se encuentra el archivo de plantilla, sin barras ni barras invertidas antes y después, como: plantilla/predeterminado
Archivo
Texto, nombre del archivo de plantilla, sin barra o barra invertida delante, como por ejemplo: default.html
Guardar dirección
Texto, el directorio donde se guarda el archivo, sin barras ni barras invertidas antes y después, como por ejemplo: html/default
Guardar archivo
Texto, nombre del archivo guardado, sin barra o barra invertida delante, como por ejemplo: default.html
objeto
Código
Texto, el texto actual, este objeto se reemplaza cuando se usa el método SetVar y la plantilla se sobrecarga para este objeto cuando se usa el método Load
Almacenamiento
Texto, texto guardado Cuando se utiliza el método SaveFront o SaveLast, el texto del objeto Código se guarda al principio o al final de este objeto. Se puede utilizar para obtener todos los códigos después del bucle.
método
Borrar caché
Borrar cachés públicos y privados (forzar la recarga de la plantilla desde el archivo)
Borrar caché pública
Borrar caché público
Borrar caché privada
Borrar caché privado
Borrar código
Borrar objeto de código
Borrar almacenamiento
Borrar objeto de almacenamiento
GuardarFrontal
Guarde el texto del objeto Código actual al principio del objeto Almacenamiento
GuardarÚltimo
Guarde el texto en el objeto Código actual al final del objeto Almacenamiento
Guardar código
Guarde el texto del objeto Código actual en un archivo
Guardar almacenamiento
Guarde el texto en el objeto de almacenamiento actual en un archivo
EstablecerVar
Parámetros para reemplazar texto en el objeto Código actual: texto a reemplazar, texto a reemplazar
Carga
Cargue el archivo de plantilla en el objeto Código. Cuando el caché privado está habilitado y existe, se carga desde el caché privado. Cuando está habilitado y el caché público existe, se carga desde el caché público. se carga desde el archivo.
variables internas
ccStrPath
Directorio raíz predeterminado
ccStrNombreCookie
Prefijo de nombre de objeto de aplicación predeterminado
código
Clase ccClsTemplate
Código ccStr privado, ccStrStorage
Código privadoccStrCache
Caché pública ccBln privada, Caché privada ccBln
NombreCcStr privado, nombreCookieccStr
Privado ccStrDirection, ccStrSaveDirection, ccStrFile, ccStrSaveFile, ccStrPath
CCObjStream privado, ccObjFSO, ccStrFormat, ccIntObject, ccObjText, ccIntFormat
Subclase privada_Initialize
ccStrName = "default" 'Nombre predeterminado
ccBlnPublicCache = Falso
ccBlnPrivateCache = Falso
ccStrFile = "caché.html"
ccStrSaveFile = "save_cache.html"
ccStrCookieName = "ccClass_Template" 'Prefijo del nombre del objeto de la aplicación
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
formatoIntcc = -1
ccIntObject = 1 'Componente de plantilla de lectura/guardado predeterminado 1:ADODB.Stream 2:FSO
ccStrPath = Server.MapPath("./")&"" 'Ruta raíz predeterminada
Fin de propiedad sub
pública Let Name (ccStrName_in)
ccStrName = LCase(Trim(ccStrName_in))
Propiedad final
Propiedad pública Let Format(ccStrFormat_in)
ccStrFormat = ccStrFormat_in
Si InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 Entonces
formatoIntcc = -1
Demás
formatoIntcc = 0
Terminar si
Propiedad final
Propiedad pública Let Object(ccStrObject_in)
ccStrObject_in = LCase(Recortar(ccStrObject_in))
Si InStr(ccStrObject_in,"fso") > 0 Entonces
ccIntObjeto = 2
Demás
ccIntObjeto = 1
Terminar si
Propiedad final
Propiedad pública Let PublicCache(ccBlnPublicCache_in)
Si ccBlnPublicCache_in = True Entonces
ccBlnPublicCache = Verdadero
Demás
ccBlnPublicCache = Falso
Terminar si
Propiedad final
Propiedad pública Let PrivateCache(ccBlnPrivateCache_in)
Si ccBlnPrivateCache_in = True Entonces
ccBlnPrivateCache = Verdadero
Demás
ccBlnPrivateCache = Falso
Terminar si
Propiedad final
Propiedad pública Let Direction(ccStrDirection_in)
ccStrDirection = ccStrDirection_in
Propiedad final
Propiedad pública Let File(ccStrFile_in)
Si ccStrFile_in <> "" Entonces
ccStrFile = ccStrFile_in
Terminar si
Propiedad final
Propiedad pública Let SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
Propiedad final
Propiedad pública Let SaveFile(ccStrSaveFile_in)
Si ccStrSaveFile_in <> "" Entonces
ccStrSaveFile = ccStrSaveFile_in
Terminar si
Propiedad final
Propiedad pública Obtener código
Código = ccStrCode
Propiedad final
Propiedad pública Obtener almacenamiento
Almacenamiento=ccStrAlmacenamiento
Propiedad final
Public Sub ClearCache
Llamar a ClearPrivateCache
Llamar a ClearPublicCache
Fin Sub
Público Sub ClearPrivateCache
ccStrCacheCode = ""
Fin Sub
Público Sub ClearPublicCache
Aplicación(ccStrCookieName&ccStrName) = ""
Fin Sub
Público Sub ClearStorage
ccStrAlmacenamiento = ""
Fin Sub
Público Sub ClearCode
ccStrCode = ""
Fin Sub
Público Sub SaveFront
ccStrStorage = ccStrCode & ccStrStorage
Fin Sub
Public Sub GuardarÚltimo
ccStrStorage = ccStrStorage y ccStrCode
Fin Sub
Público Sub Guardar Código
Llamar a Guardar en archivo(1)
Finalizar Sub
Public Sub SaveStorage
Llamar a Guardar en archivo(2)
Fin Sub
Público Sub SetVar(ccStrTag_in,ccStrValue_in)
ccStrCode = Reemplazar (ccStrCode, ccStrTag_in, ccStrValue_in)
Finalizar
subsubprivado SaveToFile(ccIntCode_in)
Dim ccStrSaveCode
Si ccIntCode_in = 1 Entonces
ccStrSaveCode = ccStrCode
Demás
ccStrSaveCode = ccStrAlmacenamiento
Terminar si
Si ccIntObject = 1 Entonces
Establecer ccObjStream = Server.CreateObject("ADODB.Stream")
Con ccObjStream
.Tipo = 2
.Modo = 3
.Abierto
.Charset = ccStrFormat
.Posición = ccObjStream.Tamaño
.WriteText ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
.Cerca
Terminar con
Establecer ccObjStream = Nada
Demás
Establecer ccObjFSO = CreateObject("Scripting.FileSystemObject")
Si ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = True Entonces
ccObjFSO.DeleteFile(ccStrPath y ccStrSaveDirection y "" y ccStrSaveFile)
Terminar si
Establecer ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat)
ccObjText.Escribir ccStrSaveCode
Establecer ccObjText = Nada
Establecer ccObjFSO = Nada
Terminar si
ccStrSaveCode = ""
Finalizar
subsubcarga pública
ccStrCode = ""
Si ccBlnPrivateCache = True Entonces
Si ccFncIsEmpty(ccStrCacheCode) = False Entonces
ccStrCode = ccStrCacheCode
Salir Sub
Terminar si
Terminar si
Si ccBlnPublicCache = True Entonces
Si ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = False Entonces
ccStrCode = Aplicación (ccStrCookieName y ccStrName)
Salir Sub
Terminar si
Terminar si
Si ccIntObject = 1 Entonces
Establecer ccObjStream = Server.CreateObject("ADODB.Stream")
Con ccObjStream
.Tipo = 2
.Modo = 3
.Abierto
.Charset = ccStrFormat
.Posición = ccObjStream.Tamaño
.LoadFromFile ccStrPath y ccStrDirection y "" y ccStrFile
ccStrCode = .ReadText
.Cerca
Terminar con
Establecer ccObjStream = Nada
Demás
Establecer ccObjFSO = CreateObject("Scripting.FileSystemObject")
Si ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = Verdadero Entonces
Establecer ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat)
ccStrCode = ccObjText.ReadAll
Establecer ccObjText = Nada
Terminar si
Establecer ccObjFSO = Nada
Terminar si
Si ccBlnPrivateCache = True Entonces
ccStrCacheCode = ccStrCode
Terminar si
Si ccBlnPublicCache = True Entonces
Aplicación (ccStrCookieName y ccStrName) = ccStrCode
Terminar si
Función
de clase final
subfinal
ccFncIsEmpty(ByRef ccStrValue_in)
Si IsNull(ccStrValue_in) o IsEmpty(ccStrValue_in) o ccStrValue_in = "" Entonces
ccFncIsEmpty = Verdadero
Demás
ccFncIsEmpty = Falso
Terminar si
Función final
Ejemplo
Contenido del archivo de plantilla
<#prueba#>
código de programa ASP
Plantilla de objeto tenue
Establecer objTemplate = Nuevo ccClsTemplate
objTemplate.Name = "Prueba"
objTemplate.Format = "UTF-8"
'Habilitar el almacenamiento en caché
objTemplate.PublicCache = Verdadero
objTemplate.PrivateCache = Verdadero
'Establecer directorio de plantilla y nombre de archivo
objTemplate.Direction = "prueba"
objTemplate.File = "prueba.html"
'Establece el directorio del archivo guardado y el nombre del archivo
objTemplate.SaveDirection = "prueba"
objTemplate.SaveFile = "test3.html"
'Cargar plantilla
Llamar a objTemplate.Load
'Realizar reemplazo de texto
Llame a objTemplate.SetVar("<#test#>","Hola mundo.")
'Guardar el texto en Almacenamiento
Llamar a objTemplate.SaveLast
'Vuelva a cargar la plantilla, que se recargará desde la caché privada para mejorar la eficiencia.
Llamar a objTemplate.Load
'reemplazar con otro valor
Llame a objTemplate.SetVar("<#test#>"," Por Cloudream.")
'Guardar al final del almacenamiento para almacenamiento temporal
Llamar a objTemplate.SaveLast
'Guardar código en el archivo
Llamar a objTemplate.SaveCode
Response.Write objTemplate.Storage
Establecer objTemplate = Nada
Mostrar resultados
Hola mundo. Por Cloudream
Guarde los resultados del archivo
.
Por Cloudream.