Os recursos podem definir cache privado ou público para melhorar a eficiência. Você pode escolher livremente usar o componente Stream ou o componente FSO. Suporta codificação de arquivo personalizada e salva
atributos de arquivo.
Nome
Texto, o nome do modelo, usado principalmente para distinguir diferentes modelos ao usar o cache público.
Formatar
Texto, tipo de codificação de arquivo, valor configurável.
Objeto
O texto, usando componentes, pode definir valores:
Fluxo
FOE
Cache Público
Valor booleano, use o cache público Quando ativado, o arquivo de modelo será salvo no objeto Aplicativo. Outros objetos que fazem referência a esta classe de modelo podem ser lidos no cache definindo o mesmo valor de Nome e também abrindo o cache público. (Método de carregamento)
Cache Privado
Valor booleano, use cache privado Quando ativado, o arquivo de modelo será salvo na variável interna do objeto, e o mesmo objeto que faz referência a esta classe de modelo poderá lê-lo. (Método de carregamento)
Direção
Texto, diretório onde está localizado o arquivo de modelo, sem barras ou barras invertidas antes e depois, como: template/default
Arquivo
Texto, nome do arquivo de modelo, sem barra ou barra invertida na frente, como: default.html
Salvar direção
Texto, o diretório onde o arquivo é salvo, sem barras ou barras invertidas antes e depois, como: html/default
Salvar arquivo
Texto, salve o nome do arquivo, sem barra ou barra invertida na frente, como: default.html
objeto
Código
Texto, o texto atual, este objeto é substituído ao usar o método SetVar e o modelo é sobrecarregado para este objeto ao usar o método Load
Armazenar
Texto, texto salvo Ao usar o método SaveFront ou SaveLast, o texto no objeto Code é salvo no início ou no final deste objeto. Ele pode ser usado para obter todos os códigos após o loop.
método
LimparCache
Limpar caches públicos e privados (forçar o recarregamento do modelo do arquivo)
LimparPublicCache
Limpar cache público
LimparPrivateCache
Limpar cache privado
Código claro
Limpar objeto de código
ClearStorage
Limpar objeto de armazenamento
Salvar frente
Salve o texto do objeto Code atual no início do objeto Storage
Salvarúltimo
Salve o texto no objeto Code atual no final do objeto Storage
Salvar código
Salve o texto do objeto Code atual em um arquivo
Salvar armazenamento
Salve o texto do objeto Storage atual em um arquivo
DefinirVar
Parâmetros para substituição de texto no objeto Código atual: texto a ser substituído, texto a ser substituído
Carregar
Carregue o arquivo de modelo no objeto Code Quando o cache privado estiver habilitado e existir, ele será carregado do cache privado. Quando estiver habilitado e o cache público existir, ele será carregado do cache público. ele é carregado do arquivo.
variáveis internas
ccStrPath
Diretório raiz padrão
ccStrCookieName
Prefixo do nome do objeto Aplicativo padrão
código
Classe ccClsTemplate
Privado ccStrCode,ccStrStorage
PrivateccStrCacheCode
Privado ccBlnPublicCache,ccBlnPrivateCache
ccStrName privado, ccStrCookieName
Privado ccStrDirection,ccStrSaveDirection,ccStrFile,ccStrSaveFile,ccStrPath
Privado ccObjStream,ccObjFSO,ccStrFormat,ccIntObject,ccObjText,ccIntFormat
Subclasse Privada_Initialize
ccStrName = "default" 'Nome padrão
ccBlnPublicCache = Falso
ccBlnPrivateCache = Falso
ccStrFile = "cache.html"
ccStrSaveFile = "save_cache.html"
ccStrCookieName = "ccClass_Template" 'Prefixo do nome do objeto da aplicação
ccStrFormat = "UTF-8" 'UTF-8|ASCII|GB2312|BIG5
ccIntFormat = -1
ccIntObject = 1 'Componente padrão de leitura/salvamento do modelo 1:ADODB.Stream 2:FSO
ccStrPath = Server.MapPath("./")&"" 'Caminho raiz padrão
End Sub
Propriedade Pública Let Name(ccStrName_in)
ccStrName = LCase(Trim(ccStrName_in))
Propriedade final
Propriedade pública Let Format(ccStrFormat_in)
ccStrFormat = ccStrFormat_in
Se InStr(LCase(Trim(ccStrFormat_in)),"utf") > 0 Então
ccIntFormat = -1
Outro
ccIntFormat = 0
Terminar se
End Property
Propriedade pública Let Object(ccStrObject_in)
ccStrObject_in = LCase(Trim(ccStrObject_in))
Se InStr(ccStrObject_in,"fso") > 0 Então
ccIntObject = 2
Outro
ccIntObject = 1
Terminar se
Propriedade final
Propriedade pública Let PublicCache(ccBlnPublicCache_in)
Se ccBlnPublicCache_in = Verdadeiro Então
ccBlnPublicCache = Verdadeiro
Outro
ccBlnPublicCache = Falso
Terminar se
Propriedade final
Propriedade pública Let PrivateCache(ccBlnPrivateCache_in)
Se ccBlnPrivateCache_in = Verdadeiro Então
ccBlnPrivateCache = Verdadeiro
Outro
ccBlnPrivateCache = Falso
Terminar se
End Property
Propriedade pública Let Direction(ccStrDirection_in)
ccStrDirection = ccStrDirection_in
End Property
Propriedade pública Let File(ccStrFile_in)
Se ccStrFile_in <> "" Então
ccStrFile = ccStrFile_in
Terminar se
End Property
Propriedade pública Let SaveDirection(ccStrSaveDirection_in)
ccStrSaveDirection = ccStrSaveDirection_in
End Property
Propriedade pública Let SaveFile(ccStrSaveFile_in)
Se ccStrSaveFile_in <> "" Então
ccStrSaveFile = ccStrSaveFile_in
Terminar se
Fim da propriedade
Propriedade pública Obter código
Código = ccStrCode
Propriedade final
Propriedade pública Obter armazenamento
Armazenamento=ccStrStorage
Fim da propriedade
pública Sub ClearCache
Chame ClearPrivateCache
Chame ClearPublicCache
Fim Sub
Público Sub ClearPrivateCache
ccStrCacheCode = ""
Fim Sub
Público Sub ClearPublicCache
Aplicativo(ccStrCookieName&ccStrName) = ""
Fim Sub
Público Sub ClearStorage
ccStrStorage = ""
Fim Sub
Público Sub ClearCode
ccStrCode = ""
Fim Sub
Público Sub SaveFront
ccStrStorage = ccStrCode & ccStrStorage
Fim Sub
Público Sub Salvar Último
ccStrStorage = ccStrStorage & ccStrCode
Fim Sub
Público Sub SaveCode
Chame SaveToFile(1)
Fim Sub
Público Sub SaveStorage
Chame SaveToFile(2)
End Sub
Public Sub SetVar(ccStrTag_in,ccStrValue_in)
ccStrCode = RePlace(ccStrCode,ccStrTag_in,ccStrValue_in)
Fim Sub
Privado Sub SaveToFile (ccIntCode_in)
Dim ccStrSaveCode
Se ccIntCode_in = 1 Então
ccStrSaveCode = ccStrCode
Outro
ccStrSaveCode = ccStrStorage
Terminar se
Se ccIntObject = 1 Então
Definir ccObjStream = Server.CreateObject("ADODB.Stream")
Com ccObjStream
.Tipo = 2
.Modo = 3
.Abrir
.Charset = ccStrFormat
.Posição = ccObjStream.Size
.WriteText ccStrSaveCode
.SaveToFile ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2
.Fechar
Terminar com
Definir ccObjStream = Nada
Outro
Definir ccObjFSO = CreateObject("Scripting.FileSystemObject")
Se ccObjFSO.FileExists(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile) = True Então
ccObjFSO.DeleteFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile)
Terminar se
Definir ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrSaveDirection & "" & ccStrSaveFile,2,True,ccIntFormat)
ccObjText.Write ccStrSaveCode
Definir ccObjText = Nada
Definir ccObjFSO = Nada
Terminar se
ccStrSaveCode = ""
Terminar
subcarga subpública
ccStrCode = ""
Se ccBlnPrivateCache = Verdadeiro então
Se ccFncIsEmpty(ccStrCacheCode) = Falso então
ccStrCode = ccStrCacheCode
Sair do sub
Terminar se
Terminar se
Se ccBlnPublicCache = Verdadeiro então
Se ccFncIsEmpty(Application(ccStrCookieName&ccStrName)) = Falso Então
ccStrCode = Aplicativo(ccStrCookieName&ccStrName)
Sair do sub
Terminar se
Terminar se
Se ccIntObject = 1 Então
Definir ccObjStream = Server.CreateObject("ADODB.Stream")
Com ccObjStream
.Tipo = 2
.Modo = 3
.Abrir
.Charset = ccStrFormat
.Posição = ccObjStream.Size
.LoadFromFile ccStrPath & ccStrDirection & "" & ccStrFile
ccStrCode = .ReadText
.Fechar
Terminar com
Definir ccObjStream = Nada
Outro
Definir ccObjFSO = CreateObject("Scripting.FileSystemObject")
Se ccObjFSO.FileExists(ccStrPath & ccStrDirection & "" & ccStrFile) = True Então
Definir ccObjText = ccObjFSO.OpenTextFile(ccStrPath & ccStrDirection & "" & ccStrFile,1,False,ccIntFormat)
ccStrCode = ccObjText.ReadAll
Definir ccObjText = Nada
Terminar se
Definir ccObjFSO = Nada
Terminar se
Se ccBlnPrivateCache = Verdadeiro então
ccStrCacheCode = ccStrCode
Terminar se
Se ccBlnPublicCache = Verdadeiro então
Aplicativo(ccStrCookieName&ccStrName) = ccStrCode
Terminar se
de classe End
Sub End
ccFncIsEmpty (ByRef ccStrValue_in)
Se IsNull(ccStrValue_in) Ou IsEmpty(ccStrValue_in) Ou ccStrValue_in = "" Então
ccFncIsEmpty = Verdadeiro
Outro
ccFncIsEmpty = Falso
Terminar se
Função final
Exemplo
Conteúdo do arquivo de modelo
<#test#>
Código do programa ASP
Dim objTemplate
Definir objTemplate = Novo ccClsTemplate
objTemplate.Name = "Teste"
objTemplate.Format = "UTF-8"
'Habilitar cache
objTemplate.PublicCache = Verdadeiro
objTemplate.PrivateCache = Verdadeiro
'Define o diretório do modelo e o nome do arquivo
objTemplate.Direction = "teste"
objTemplate.File = "teste.html"
'Define o diretório e o nome do arquivo salvo
objTemplate.SaveDirection = "teste"
objTemplate.SaveFile = "test3.html"
'Carregar modelo
Chame objTemplate.Load
'Executa a substituição do texto
Chame objTemplate.SetVar("<#test#>","Olá, mundo.")
'Salva o texto no armazenamento
Chame objTemplate.SaveLast
'Recarregue o modelo, que será recarregado do cache privado para melhorar a eficiência.
Chame objTemplate.Load
'substitua por outro valor
Chame objTemplate.SetVar("<#test#>"," Por Cloudream.")
'Salve até o final do armazenamento para armazenamento temporário
Chame objTemplate.SaveLast
'Salvar código no arquivo
Chame objTemplate.SaveCode
Response.Write objTemplate.Storage
Set objTemplate = Nada
Mostrar resultados
Olá mundo. Por Cloudream
Salve os resultados do arquivo
.
Por Cloudream.