1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| <%
Set Objet_Document = Server.CreateObject("MSXML2.DOMDocument")
fichier = Server.MapPath("menu.xml")
Objet_Document.Load fichier
'CREATION DE L'ELEMENT menu (racine du doc)
Set menu = Objet_Document.createElement("menu")
Objet_Document.appendChild menu
Set oMenu = Objet_Document.createElement("menuitem")
oMenu.setAttribute "label", "Bureaux équipés"
oMenu.setAttribute "instanceName", "filemenu"
menu.appendChild oMenu
La méthode appendChild insère le nœud spécifié (oMenu)dans le document courant en l'ajoutant à la liste de nœuds fils de l'élément courant (menu), et renvoie le nœud nouvellement créé.
Set osousMenu = Objet_Document.createElement("menuitem")
osousMenu.setAttribute "label", "Location de bureaux"
osousMenu.setAttribute "instanceName", "mensuels"
oMenu.appendChild osousMenu
Set osousMenu = Objet_Document.createElement("menuitem")
osousMenu.setAttribute "label", "Location de bureaux à la carte"
osousMenu.setAttribute "instanceName", "à la carte"
oMenu.appendChild osousMenu
Set PI_xml = Objet_Document.createProcessingInstruction("xml", _
"version='1.0' encoding='UTF-8'")
Objet_Document.insertBefore PI_xml, menu
Objet_Document.save Server.MapPath("menu.xml")
Set Objet_Document = Nothing
%> |
Partager