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
'===============================================
'Destructor_Destroy componente FSO
'===============================================
Subclase privada_terminar()
Establecer FSO = nada
Subtítulo final
'===============================================
'Atributo de clase
'===============================================
'Información de versión
Propiedad pública Obtener versión
Versión = 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 style='color:red;'>Error: ¡La ubicación de almacenamiento del archivo de plantilla no está configurada! </span>
Demás
Si FSO.FileExists(StrTemp)=false Entonces
Check=<span style='color:red;'>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.Escribir verificación()
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 style='color:red;'>Error: ¡La etiqueta a reemplazar no está configurada! </span>
Respuesta.Fin()
Terminar si
Si StrLValues = Entonces
Response.Write <span style='color:red;'>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 style='color:red;'>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
.Etiqueta={tl1}
.LValues=Duele
.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>
<ancho de tabla=200 borde=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>
</tabla>
</cuerpo>
</html>