VBS 中的dom 操作

'創建DOM對象
set objDom=server.CreateObject("microsoft.xmldom")

 

 

'取得xml數據
'方法1
　objDom.load("c:/test.xml")
'方法2
  objDom.load(server.mappath("test.xml"))

 

'創建一個節點對象
　Set newNode=objDom.CreateElement("people")
'給節點賦值
　newNode.Text="man"
' 給節點添加屬性
　Set newAttribute=objDom.CreateNode("attribute","name","") 
　newAttribute.Text= "Smith"
　newnode.SetAttributeNode newAttribute
'給節點添加子節點
　Set newnodeChild=objDom.CreateElement("address")
　newnode.appendChild newnodeChild
'保存節點對象
 objDom.appendChild newnode
 objDom.save("c:/test.xml")

 

'查找節點對象
set objfind=objdom.documentElement.SelectSingleNode("//people/man")
'取出這個節點對象的 節點名，節點值，某個屬性值
nodename=objfind.nodename
nodevalue=objfind.text
objfind.GetAttributeNode("name").Nodevalue'屬性名爲name的屬性值

[Huoho.Com編輯]

'取出一個屬性節點對象
set objattrfind=objdom.documentElement.SelectSingleNode("//people/man"). GetAttributeNode("name")
'取出這個節點的屬性名，屬性值
nodeattrname=objattrfind.nodename
nodeattrvalue=objattrfind.nodevalue

 

'刪除一個節點對象
set objnode=objdom.documentElement.SelectSingleNode("//people/man")'要刪除的節點
set objparentnode=objdom.documentElement.SelectSingleNode("//people")'要刪除的節點的父節點
objparentnode.removeChild objnode

 

'取出一個節點的字節點集合
set objnodes=objdom.documentElement.SelectSingleNode("//people/man").ChildNodes
遍歷這個集合
方法1 
for each element in objnodes
    response.write element.nodename　 字節點名
    response.write element.text　　　　字節點值
next
方法2
domlength=objnodes.length
for i = 0 to domlength-1
    response.write objnodes.childnodes(i).nodename　　字節點名
    response.write objnodes.childnodes(i).text　　　　  字節點值
next

 

'取出一個節點的屬性集合
set objnodes=objdom.documentElement.SelectSingleNode("//people/man").GetAttributeNode("name").attributes
遍歷這個集合
for each element in objnodes
    response.write element.nodename　 屬性名
    response.write element.nodevalue　屬性值
next