XMLDOM学习

XMLDOM中获得树中某个节点的方法：
nodeFromID和getElementByTagName
i.e:
dim dom
dim nodelist As XMLDOMNodeList
dim node As XMLDOMNode
Dim i as Integer,length as integer
set dom = CreateObject("microsoft.xmldom")
doc.async = false
dom.load("filename.xml")
set nodelist = dom.getElementByTagName("Page")
length = nodelist.length
for i=0 to length
 set node = nodelist.item()i
 MsgBox node.xml
next

在XML文档中添加一个节点
set node = rootNode.childNodes.item(0)
set newNode = myDocument.createElement("publisher")
set rtnNode = node.insertBefore(newNode,node.lastChild)
set textNode = myDocument.CreateTextNOde("人民邮电出版社")
node.childNodex.item(1).appendChild(textNode)