Freunde, die die einfachste Vorlagenklasse der ASP Crazy Template-Operationsklasse benötigen, können darauf verweisen. Dateiname: Awa_temp.Class.asp
Kopieren Sie den Codecode wie folgt:
<%
„Verrückter Frosch! Vorlagenoperationsklasse.“
„Autor Crazy~frog! QQ:379969387 Willkommen zur Kommunikation.“
'Version V1.0;
ClassAwaTemp
Öffentliche aa
Privates FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'==========================================
'Constructor_Initialize FSO-Komponente
'==========================================
Private Sub Class_Initialize()
Legen Sie FSO=Server.CreateObject(Scripting.FileSystemObject) fest.
Sub beenden
'==========================================
'Destructor_Destroy FSO-Komponente
'==========================================
Private Unterklasse_terminate()
Setzen Sie FSO=nichts
Sub beenden
'==========================================
'Klassenattribut
'==========================================
'Versionsinformationen
Öffentliches Eigentum Version abrufen
Version=Crazy~frog! Vorlagenoperationsklasse V1.0-Version;
End-Eigenschaft
„Holen Sie sich die Adresse und den Namen der Vorlage.“
Öffentliche Eigenschaft Let Temp(ByVal Values)
StrTemp=Werte
End-Eigenschaft
'Den Dateinamen der generierten Datei abrufen
Öffentliche Eigenschaft Let HtmlName(ByVal Values)
StrHtmlName=Werte
End-Eigenschaft
„Holen Sie sich Tags
Öffentliche Eigenschaft Let Label(ByVal Values)
StrLabel=Werte
End-Eigenschaft
'Holen Sie sich den Wert, der die Beschriftung ersetzt
Öffentliche Eigenschaft Let LValues(ByVal Values)
StrLValues=Werte
End-Eigenschaft
'===========================================
'Klassenmethode
'==========================================
'Überprüfen Sie die Vorlageneinstellungen und ob sie vorhanden sind
Private Funktionsprüfung()
Wenn StrTemp= Dann
Check=<span style='color:red;'>Fehler: Der Speicherort der Vorlagendatei ist nicht festgelegt! </span>
Anders
Wenn FSO.FileExists(StrTemp)=false, dann
Check=<span style='color:red;'>Fehler: Die angegebene Vorlage existiert nicht! </span>
Anders
Prüfen=wahr
Ende wenn
Ende wenn
Funktion beenden
'Vorlagenseite lesen
Öffentlicher Sub ReadTemp()
Wenn Check()<>true, dann
Response.Write Check()
Response.End()
Anders
Setze GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Close
Setzen Sie GetData=nothing
Ende wenn
Sub beenden
„Inhalt ersetzen.“
Öffentliche Funktion Rep()
Wenn StrLabel= Dann
Response.Write <span style='color:red;'>Fehler: Das zu ersetzende Tag ist nicht gesetzt! </span>
Response.End()
Ende wenn
Wenn StrLValues= Dann
Response.Write <span style='color:red;'>Fehler: Die Daten für das Ersatz-Tag sind nicht festgelegt! </span>
Response.End()
Ende wenn
FileData=Replace(FileData,StrLabel,StrLValues)
Funktion beenden
'Ausgabe
Öffentliches Sub-Echo()
Response.Write FileData
Sub beenden
'Statische Seite generieren
Öffentlicher Sub GetHtml()
Wenn StrHtmlName= Dann
Response.Write <span style='color:red;'>Fehler: Der Speicherort und der Dateiname der generierten HTML-Datei sind nicht festgelegt! </span>
Response.End()
Ende wenn
Setze htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
„Webseiteninhalte schreiben.“
htmlwrite.WriteLine FileData
htmlwrite.Schließen
sethtmlwrite=Nichts
Sub beenden
Unterricht beenden
%>
Anwendungsbeispiele:
index.asp
Kopieren Sie den Codecode wie folgt:
<!--#include file=Awa_temp.Class.asp-->
<%
Setze awa=Neue AwaTemp
Mit awa
.Temp=temp.tpl
.ReadTemp
.Label={tl1}
.LValues=Es tut weh
.Rep
.Echo
'.HtmlName=aa/index.html
'.GetHtml
Ende mit
Setze awa=nichts
%>
Schablone
temp.tpl:
Kopieren Sie den Codecode wie folgt:
<!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>
<Kopf>
<meta http-equiv=Content-Type content=text/html;
<title>Unbenanntes Dokument</title>
</head>
<Körper>
<Tabellenbreite=200 Rand=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>
</table>
</body>
</html>