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 Constructor_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
Versão=Crazy~frog! Classe de operação do modelo V1.0;
Fim da propriedade
'Obtém o endereço e o nome do modelo
Propriedade pública Let Temp (valores ByVal)
StrTemp=Valores
Fim da propriedade
'Obtém o nome do arquivo gerado
Propriedade pública Let HtmlName (valores ByVal)
StrHtmlName=Valores
Fim da propriedade
'Obter tags
Propriedade pública Let Label (valores ByVal)
StrLabel=Valores
Fim da propriedade
'Obtém o valor que substitui o rótulo
Propriedade pública Let LValues (valores ByVal)
StrLValues=Valores
Fim da propriedade
'===========================================
'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 style='color:red;'>Erro: O local de armazenamento do arquivo de modelo não está definido! </span>
Outro
Se FSO.FileExists(StrTemp)=false Então
Check=<span style='color:red;'>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 style='color:red;'>Erro: A tag a ser substituída não está definida! </span>
Resposta.End()
Terminar se
Se StrLValues = Então
Response.Write <span style='color:red;'>Erro: Os dados para a 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 style='color:red;'>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 arquivo=Awa_temp.Class.asp-->
<%
Definir awa=Novo AwaTemp
Com awa
.Temp=temp.tpl
.ReadTemp
.Rótulo={tl1}
.LValues=Dói
.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>
<largura da tabela=200 borda=1>
<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>