Les amis qui ont besoin de la classe de modèle la plus simple de la classe d'opération de modèle ASP Crazy peuvent s'y référer.
Nom du fichier : Awa_temp.Class.asp
Copiez le code comme suit :
<%
'Crazy Frog ! Classe d'opération de modèle
'Auteur Crazy~frog ! QQ : 379969387 Bienvenue pour communiquer
'Version V1.0 ;
ClasseAwaTemp
Public aaa
FSO privé, StrTemp, FileData, GetDatas, StrHtmlName, htmlwrite, StrLabel, StrLValues
'=============================================
'Constructor_Initialize composant FSO
'=============================================
Sous-classe privée_Initialize()
Définir FSO=Server.CreateObject("Scripting.FileSystemObject")
Fin du sous-marin
'=============================================
'Composant Destructor_Destroy FSO
'=============================================
Sous-classe privée_terminate()
Définir FSO = rien
Fin du sous-marin
'=============================================
'Attribut de classe
'=============================================
'Informations sur la version
Propriété publique Obtenir la version
Version="Crazy~frog ! Classe d'opération de modèle ! Version V1.0 ;"
Propriété de fin
'Obtenir l'adresse et le nom du modèle
Propriété publique Let Temp (valeurs ByVal)
StrTemp=Valeurs
Propriété de fin
'Obtenir le nom du fichier généré
Propriété publique Let HtmlName (valeurs ByVal)
StrHtmlName=Valeurs
Propriété de fin
'Obtenir des balises
Propriété publique Let Label (valeurs ByVal)
StrLabel=Valeurs
Propriété de fin
'Obtenir la valeur qui remplace l'étiquette
Propriété publique Let LValues (Valeurs ByVal)
StrLValues=Valeurs
Propriété de fin
'=============================================
'Méthode de classe
'=============================================
'Vérifier les paramètres du modèle et s'ils existent
Vérification de fonction privée()
Si StrTemp="" Alors
Check="<span>Erreur : l'emplacement de stockage du fichier modèle n'est pas défini !</span>"
Autre
Si FSO.FileExists(StrTemp)=false Alors
Check="<span>Erreur : le modèle spécifié n'existe pas !</span>"
Autre
Vérifier = vrai
Fin si
Fin si
Fonction de fin
'Lire la page du modèle
Sous-public ReadTemp()
Si Check()<>true Alors
Réponse.Write Check()
Réponse.Fin()
Autre
Définir GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Fermer
Définir GetData = rien
Fin si
Fin du sous-marin
'Remplacer le contenu
Représentant de fonction publique ()
Si StrLabel="" Alors
Response.Write "<span>Erreur : la balise à remplacer n'est pas définie !</span>"
Réponse.Fin()
Fin si
Si StrLValues="" Alors
Response.Write "<span>Erreur : les données de la balise de remplacement ne sont pas définies !</span>"
Réponse.Fin()
Fin si
FileData = Remplacer (FileData, StrLabel, StrLValues)
Fonction de fin
'Sortir
Sous-écho public()
Réponse.Write FileData
Fin du sous-marin
'Générer une page statique
Sous-public GetHtml()
Si StrHtmlName="" Alors
Response.Write "<span>Erreur : l'emplacement de stockage et le nom du fichier HTML généré ne sont pas définis !</span>"
Réponse.Fin()
Fin si
Définir htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
'Écrire le contenu d'une page Web
htmlwrite.WriteLine FileData
htmlwrite.Fermer
sethtmlwrite=Rien
Fin du sous-marin
Fin du cours
%>
Exemples d'utilisation :
index.asp
Copiez le code comme suit :
<!--#include file="Awa_temp.Class.asp"-->
<%
Définir awa = Nouveau AwaTemp
Avec awa
.Temp="temp.tpl"
.ReadTemp
.Étiquette="{tl1}"
.LValues="Mes couilles me font mal"
.Représentant
.Écho
'.HtmlName="aa/index.html"
'.GetHtml
Terminer par
Définir awa = rien
%>
pochoir
temp.tpl :
Copiez le code comme suit :
<!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">
<tête>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Document sans titre</title>
</tête>
<corps>
<tableau>
<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>
</corps>
</html>