Los amigos que necesiten la clase de plantilla más simple de la clase de operación de plantilla ASP Crazy pueden consultarla.
Nombre del archivo: Awa_temp.Class.asp
Copie el código de código de la siguiente manera:
<%
'¡Rana loca! Clase de operación de plantilla
'Autor Crazy~frog QQ:379969387 ¡Bienvenido a comunicarnos!
'Versión V1.0;
ClaseAwaTemp
público
FSO privado, StrTemp, FileData, GetDatas, StrHtmlName, htmlwrite, StrLabel, StrLValues
'===============================================
'Constructor_Inicializar componente FSO
'===============================================
Subclase privada_Initialize()
Establecer FSO=Server.CreateObject("Scripting.FileSystemObject")
Subtítulo final
'===============================================
'Componente Destructor_Destroy FSO
'===============================================
Subclase privada_terminar()
Establecer FSO = nada
Subtítulo final
'===============================================
'Atributo de clase
'===============================================
'Información de versión
Propiedad pública Obtener versión
Version="¡Crazy~frog! ¡Clase de operación de plantilla! Versión V1.0;"
Propiedad final
'Obtener la dirección y el nombre de la plantilla
Propiedad pública Let Temp (valores ByVal)
StrTemp=Valores
Propiedad final
'Obtiene el nombre del archivo generado
Propiedad pública Let HtmlName (valores ByVal)
StrHtmlName=Valores
Propiedad final
'Obtener etiquetas
Etiqueta de alquiler de propiedad pública (valores ByVal)
StrLabel=Valores
Propiedad final
'Obtiene el valor que reemplaza la etiqueta
Propiedad pública Let LValues(ByVal Values)
StrLValues=Valores
Propiedad final
'===============================================
'Método de clase
'===============================================
'Comprueba la configuración de la plantilla y si existen
Verificación de función privada()
Si StrTemp="" entonces
Check="<span>Error: ¡La ubicación de almacenamiento del archivo de plantilla no está configurada!</span>"
Demás
Si FSO.FileExists(StrTemp)=false Entonces
Check="<span>Error: ¡La plantilla especificada no existe!</span>"
Demás
Verificar = verdadero
Terminar si
Terminar si
Función final
'Leer página de plantilla
Subtemperatura de lectura pública()
Si Check()<>true Entonces
Respuesta. Comprobar escritura()
Respuesta.Fin()
Demás
Establecer GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
ObtenerDatos.Cerrar
Establecer GetData = nada
Terminar si
Subtítulo final
'Reemplazar contenido
Representante de función pública()
Si StrLabel="" Entonces
Response.Write "<span>Error: ¡La etiqueta que se va a reemplazar no está configurada!</span>"
Respuesta.Fin()
Terminar si
Si StrLValues="" Entonces
Response.Write "<span>Error: ¡Los datos para la etiqueta de reemplazo no están configurados!</span>"
Respuesta.Fin()
Terminar si
FileData=Reemplazar(FileData,StrLabel,StrLValues)
Función final
'Producción
Subeco público()
Respuesta.Escribir datos de archivo
Subtítulo final
'Generar página estática
Sub público GetHtml()
Si StrHtmlName="" Entonces
Response.Write "<span>Error: ¡La ubicación de almacenamiento y el nombre del archivo HTML generado no están configurados!</span>"
Respuesta.Fin()
Terminar si
Establecer htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
'Escribir contenido de la página web
htmlwrite.WriteLine Archivo de datos
htmlwrite.Cerrar
sethtmlwrite=Nada
Subtítulo final
Fin de clase
%>
Ejemplos de uso:
índice.asp
Copie el código de código de la siguiente manera:
<!--#include file="Awa_temp.Class.asp"-->
<%
Establecer awa=Nueva AwaTemp
con awa
.Temp="temp.tpl"
.ReadTemp
.Label="{tl1}"
.LValues="Me duelen las pelotas"
.Reps
.Eco
'.HtmlName="aa/index.html"
'.GetHtml
Terminar con
Establecer awa = nada
%>
plantilla
temp.tpl:
Copie el código de código de la siguiente manera:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transicional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312" />
<título>Documento sin título</título>
</cabeza>
<cuerpo>
<tabla>
<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>
</tabla>
</cuerpo>
</html>