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 !
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 style='color:red;'>Erreur : l'emplacement de stockage du fichier modèle n'est pas défini ! </span>
Autre
Si FSO.FileExists(StrTemp)=false Alors
Check=<span style='color:red;'>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 style='color:red;'>Erreur : la balise à remplacer n'est pas définie ! </span>
Réponse.Fin()
Fin si
Si StrLValues= Alors
Response.Write <span style='color:red;'>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 style='color:red;'>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=Ça fait 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>
<méta http-equiv=Content-Type content=text/html; charset=gb2312 />
<title>Document sans titre</title>
</tête>
<corps>
<largeur du tableau=200 bordure=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>
</corps>
</html>