Amigos que precisam da classe de modelo mais simples da classe de operação de modelo ASP Crazy podem consultá-la.
Nome do arquivo: Awa_temp.Class.asp
Copie o código do código da seguinte forma:
<%
'Sapo louco! Classe de operação de modelo!
'Autor Crazy ~ sapo QQ: 379969387 Bem-vindo para se comunicar
'Versão V1.0;
ClasseAwaTemp
Público aa
FSO privado,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===========================================
'Componente Construtor_Initialize FSO
'===========================================
Subclasse Privada_Initialize()
Definir FSO=Server.CreateObject("Scripting.FileSystemObject")
Finalizar sub
'===========================================
'Componente Destructor_Destroy FSO
'===========================================
Subclasse privada_terminate()
Definir FSO = nada
Finalizar sub
'===========================================
'Atributo de classe
'===========================================
'Informações da versão
Versão de obtenção de propriedade pública
Version="Crazy~frog! Classe de operação de modelo! Versão V1.0;"
Propriedade final
'Obtém o endereço e o nome do modelo
Propriedade pública Let Temp (valores ByVal)
StrTemp=Valores
Propriedade final
'Obtém o nome do arquivo gerado
Propriedade pública Let HtmlName (valores ByVal)
StrHtmlName=Valores
Propriedade final
'Obter tags
Propriedade pública Let Label (valores ByVal)
StrLabel=Valores
Propriedade final
'Obtém o valor que substitui o rótulo
Propriedade pública Let LValues (valores ByVal)
StrLValues=Valores
Propriedade final
'===========================================
'Método de classe
'===========================================
'Verifique as configurações do modelo e se elas existem
Verificação de função privada()
Se StrTemp="" Então
Check="<span>Erro: O local de armazenamento do arquivo de modelo não está definido!</span>"
Outro
Se FSO.FileExists(StrTemp)=false Então
Check="<span>Erro: O modelo especificado não existe!</span>"
Outro
Verificar=verdadeiro
Terminar se
Terminar se
Função final
'Lê a página do modelo
SubReadTemp público()
Se Check()<>true Então
Resposta.Verificação de gravação()
Resposta.End()
Outro
Definir GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Fechar
Definir GetData = nada
Terminar se
Finalizar sub
'Substituir conteúdo
Representante de Função Pública()
Se StrLabel="" Então
Response.Write "<span>Erro: A tag a ser substituída não está definida!</span>"
Resposta.End()
Terminar se
Se StrLValues="" Então
Response.Write "<span>Erro: os dados da tag de substituição não estão definidos!</span>"
Resposta.End()
Terminar se
FileData=Substituir(FileData,StrLabel,StrLValues)
Função final
'Saída
Subeco público()
Response.Write FileData
Finalizar sub
'Gerar página estática
Sub público GetHtml()
Se StrHtmlName="" Então
Response.Write "<span>Erro: O local de armazenamento e o nome do arquivo HTML gerado não estão definidos!</span>"
Resposta.End()
Terminar se
Definir htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
'Escrever o conteúdo da página web
htmlwrite.WriteLine ArquivoData
htmlwrite.Fechar
sethtmlwrite=Nada
Finalizar sub
Fim da aula
%>
Exemplos de uso:
índice.asp
Copie o código do código da seguinte forma:
<!--#include file="Awa_temp.Class.asp"-->
<%
Definir awa=Novo AwaTemp
Com awa
.Temp="temp.tpl"
.ReadTemp
.Label="{tl1}"
.LValues="Minhas bolas doem"
.Rep.
.Eco
'.HtmlName="aa/index.html"
'.GetHtml
Terminar com
Definir awa = nada
%>
estêncil
temp.tpl:
Copie o código do código da seguinte forma:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Documento sem título</title>
</head>
<corpo>
<tabela>
<tr>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</tabela>
</body>
</html>