5. Page d'accueil du programme (default.asp)
??Appelez les fichiers d'inclusion et les fonctions publiques correspondants pour formater le fichier XML et l'afficher. Comme vous pouvez le voir, le titre de la page est personnalisable et l'en-tête et la fin publics sont transformés en fichiers d'inclusion correspondants. C_TITLE, C_XMLFILE et C_XSLFILE sont des constantes publiques, définies dans le fichier constpub.asp Quant à leur signification, je pense que les lecteurs peuvent facilement les comprendre. La fonction FormatXml définie ci-dessus est appelée ici. Option <% explicite
'*********************************************
'Description : Carnet d'adresses
' Auteur : gwd 2002-11-05
'*********************************************
%＞ ＜!--#include file="pub/funcxml.asp"--＞
<!--#include file="pub/constpub.asp"-->
<HTML>
＜TÊTE＞
＜TITRE＞＜% = C_TITRE %＞＜/TITRE＞
＜META HTTP-EQUIV="content-type" CONTENT="text/html;charset=GB2312"/>
＜link rel="stylesheet" href="contact.css" type="text/css"＞
＜/TÊTE＞
＜CORPS＞
<!--#include file="pub/header.asp"-->
<% = FormatXml(C_XMLFILE, C_XSLFILE) %>
＜br＞
<!--#include file="pub/footer.asp"-->
＜/CORPS＞
＜/HTML＞ |
6. Ajouter, modifier et supprimer des informations en XML
??Nous savons que la méthode correspondante a été définie dans Cls_Person, donc dans chaque fichier, il suffit d'appeler la méthode correspondante. Le fichier pour ajouter des informations est add.asp, le fichier pour modifier les informations est edit.asp et le fichier pour supprimer des informations est delete.asp. Nous prenons uniquement le fichier add.asp comme exemple d'explication. Les fonctions CheckStrInput et CheckStrOutput sont utilisées pour formater les chaînes d'entrée et de sortie de l'utilisateur.
Option <% explicite
'*********************************************
'Description : 37080308 Carnet d'adresses
' Auteur : gwd 2002-11-05
'*********************************************
%＞ ＜!--#include file="pub/funcxml.asp"--＞
<!--#include file="pub/constpub.asp"-->
<!--#include file="pub/funcpub.asp"-->
＜!--#include file="pub/class/clsPerson.asp"--＞ ＜%
Dim objXml, objPerson
Dim strErr Set objXml = Server.CreateObject("MSXML2.DOMDocument")
Set objPerson = New Cls_Person ' Générer un objet Cls_Person If Request.Form("btnOk") ＜＞ "" Then
Si LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Then 'Charger le fichier XML' Attribuer une valeur à l'attribut correspondant objPerson.Name = CheckStrInput(Request.Form("txtName"))
objPerson.Nick = CheckStrInput(Request.Form("txtNick"))
objPerson.Mobile = CheckStrInput(Request.Form("txtMobile"))
objPerson.Tel = CheckStrInput(Request.Form("txtTel"))
objPerson.Email = CheckStrInput(Request.Form("txtEmail"))
objPerson.QQ = CheckStrInput(Request.Form("txtQQ"))
objPerson.Company = CheckStrInput(Request.Form("txtCompany"))
If Not objPerson.AddToXml(objXml) Then ' Appelez la méthode AddToXml de la classe Cls_Person pour ajouter des données AddErr strErr, objPerson.GetLastError
Autre
AddErr strErr, "Ajouter avec succès"
Réponse.Écrivez "＜script langage=""javascript""＞opener.location.reload();＜/script＞"
Fin si
Fin si
Fin si
Définir objXml = Rien
%>
<HTML>
＜TÊTE＞
＜TITRE＞＜% = C_TITRE %＞＜/TITRE＞
＜META HTTP-EQUIV="content-type" CONTENT="text/html;charset=GB2312"/>
＜link rel="stylesheet" href="contact.css" type="text/css"＞
＜langage de script="javascript"＞
<!--
fonction CheckForm()
{
renvoie vrai ;
}
//-->
＜/script＞
＜/TÊTE＞
＜CORPS＞
<% = strErr %>
＜div class="title"＞Ajouter des informations de contact＜/div＞
<form name="form1" method="post" action="add.asp" onsubmit="return CheckForm()">
＜table align="center" width="100%" Cellpacing="1" cellpadding="2" border="0" bgcolor="#666600">
＜tr bgcolor="#ffffff"＞
＜td width="25%" bgcolor="#e5e5e5" align="right"＞＜b＞Nom : ＜/b＞＜/td＞
＜td width="75%"＞＜input type="text" name="txtName" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Name)%＞"＞＜/td ＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Nom anglais : ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtNick" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Nick)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Téléphone portable : ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtMobile" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Mobile)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Tél : ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtTel" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Tel)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞E-mail：＜/b＞＜/td＞
＜td＞＜input type="text" name="txtEmail" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Email)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞QQ：＜/b＞＜/td＞
＜td＞＜input type="text" name="txtQQ" size="25" class="input" value="＜%=CheckStrOutput(objPerson.QQ)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Société : ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtCompany" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Company)%＞"＞＜/td＞
＜/tr＞
＜/tableau＞
＜br＞
<div align="centre">
＜input type="submit" name="btnOk" value="Soumettre"＞
＜input type="bouton" nom="btnClose" value="Fermer" onclick="javascript:return window.close();"＞
＜/div＞
＜/formulaire＞
＜/CORPS＞
＜/HTML＞
<%
Définir objPerson = Rien
%> |
7. Résumé
??À ce stade, notre programme de gestion des informations de contact est terminé. Comment ça se passe, comment ça se sent, ça devrait être assez simple. Bien sûr, il y a encore de nombreux domaines à améliorer dans cette routine, et je ne donne ici que quelques idées, j'espère que les lecteurs pourront la modifier et l'améliorer eux-mêmes après avoir maîtrisé la programmation XML.
??Cette routine a été testée sur ma machine locale (Windows Server 2000, IIS5.0 et IE6.0) et sur Internet, et elle peut s'exécuter normalement.
Cliquez pour télécharger le code source de cet article
