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()
Setze FSO=Server.CreateObject("Scripting.FileSystemObject")
Sub beenden
'==========================================
'Destructor_Destroy FSO-Komponente
'==========================================
Private Unterklasse_terminate()
Setzen Sie FSO=nichts
Sub beenden
'==========================================
'Klassenattribut
'==========================================
'Versionsinformationen
Öffentliches Eigentum Version abrufen
Version="Crazy~frog! Template-Operationsklasse! 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>Fehler: Der Speicherort der Vorlagendatei ist nicht festgelegt!</span>"
Anders
Wenn FSO.FileExists(StrTemp)=false, dann
Check="<span>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>Fehler: Das zu ersetzende Tag ist nicht festgelegt!</span>“
Response.End()
Ende wenn
Wenn StrLValues="" Dann
Response.Write „<span>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>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="Meine Eier tun 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; charset=gb2312" />
<title>Unbenanntes Dokument</title>
</head>
<Körper>
<Tabelle>
<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>