Complétez le langage asp pour ajouter, supprimer, modifier et afficher le texte du nœud spécifié dans le document XML. Les amis dans le besoin peuvent s'y référer. Copiez le code comme suit :
<%
'------------------------------------------------ - ---------------
'Introduction au programme : complétez le langage asp pour ajouter, supprimer, modifier et afficher le texte du nœud spécifié dans le document XML.
'Paramètres d'entrée : Aucun
'Paramètres d'exportation : Aucun
'------------------------------------------------
'Nom de la fonction : ConnectXml()
'Paramètres d'entrée : nom de fichier nom du fichier XML à connecter ou à ouvrir
'Paramètres d'exportation : Aucun
'Valeur de retour : ConnectXml=0, XMLMorntekDocument est un objet qui charge avec succès le document XML.
'ConnectXml<>0, puis affiche le message d'erreur strError
'------------------------------------------------
dim XMLMorntekDocument
fonction ConnectXml (nom de fichier)
dim strSourceFichier
strSourceFile = Server.MapPath (nom de fichier)
Définir XMLMorntekDocument = Server.CreateObject(Microsoft.XMLDOM)
XMLMorntekDocument.async = false
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
si XMLMorntekDocument.parseerror.errorcode<>0 alors
strError=<h2>erreur&XMLMorntekDocument.parseerror.errorcode&</h2>
strError=strError&XMLMorntekDocument.parseerror.reason&<br>
strError=strError&XMLMorntekDocument.parseerror.url&<br>
strError=strError&XMLMorntekDocument.parseerror.line&<br>
strError=strError&XMLMorntekDocument.parseerror.filepos&<br>
strError=strError&XMLMorntekDocument.parseerror.srcText&<br>
réponse.write strError
finir si
fonction de fin
'------------------------------------------------
'Nom de la fonction : CloseXml()
'Paramètres d'entrée : Aucun
'Paramètres d'exportation : Aucun
'------------------------------------------------
fonction CloseXml(XMLMorntekDocument)
si IsObject (XMLMorntekDocument) alors
définir XMLMorntekDocument=rien
finir si
fonction de fin
'------------------------------------------------
'Nom de la fonction : SelectXmlNodeText (nom de l'élément)
'Paramètre d'entrée : elementname Le nom de l'élément
'Paramètres d'exportation : Aucun
'------------------------------------------------
fonction SelectXmlNodeText (nom de l'élément)
nom de l'élément=//&nom de l'élément
temp=XMLMorntekDocument.selectSingleNode(elementname).text
selectXmlNodeText= serveur.htmlencode(temp)
fonction de fin
'------------------------------------------------
'Nom de la fonction : InsertXmlNodeText(befelementname,elementname,elementtext)
'Paramètre d'entrée : elementname Le nom de l'élément inséré
' befelementname insère un élément avant le nom de cet élément
'elementtext Le texte de l'élément inséré
'Paramètres d'exportation : Aucun
'------------------------------------------------
fonction InsertXmlNodeText(befelementname,elementname,elementtext)
dim befelement,élément
set befelement=XMLMorntekDocument.selectSingleNode(//&befelementname)
set element= XMLMorntekDocument.createelement(nom de l'élément)
élément befelement.insertBefore, befelement.firstchild
element.text=elementtext
fonction de fin
'------------------------------------------------
'Nom de la fonction : UpdateXmlNodeText (nom de l'élément, newelementtext)
'Paramètre d'entrée : elementname Le nom de l'élément
' Le nouveau texte de l'élément newelementtext
'Paramètres d'exportation : Aucun
'------------------------------------------------
fonction UpdateXmlNodeText (nom de l'élément, newelementtext)
élément sombre
set element=XMLMorntekDocument.selectSingleNode(//&elementname)
element.text=nouvelélémenttexte
fonction de fin
'------------------------------------------------
'Nom de la fonction : DeleteXmlNodeText (nom de l'élément)
'Paramètre d'entrée : elementname Le nom de l'élément
'Paramètres d'exportation : Aucun
'------------------------------------------------
fonction DeleteXmlNodeText (nom de l'élément)
XMLMorntekDocument.selectSingleNode(//&elementname).text =
fonction de fin
%>