<%
'------------------------------------------------ - ---------------
'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
Fonction XMLMorntekDocument 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= server.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
%>