XML的添加 修改 删除 功能

Dim xmlDoc, rootEl, Child, child2, p
'创建XML文档
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
'创建根元素并将之加入文档
Set rootEl = xmlDoc.createElement("root")
'创建一个属性
Set AttID = xmlDoc.createAttribute("id")
AttID.Text = "添加属性值"
rootEl.setAttributeNode(AttID)
xmlDoc.appendChild rootEl

'创建并加入子元素
Set Child = xmlDoc.createElement("child")
Child.Text = "第一个元素内容"
Set AttID = xmlDoc.createAttribute("id")
AttID.Text = "第一个元素属性值"
Child.setAttributeNode(AttID)
rootEl.appendChild Child

Set Child = xmlDoc.createElement("child")
Child.Text = "第二个元素内容"
Set AttID = xmlDoc.createAttribute("id")
AttID.Text = "第二个元素属性值"
Child.setAttributeNode(AttID)
rootEl.appendChild Child

Set p=xmlDoc.createProcessingInstruction("xml","version='1.0' encoding='utf-8'")
xmlDoc.insertBefore p,xmlDoc.ChildNodes(0)
xmlDoc.Save "book.xml"

'读取节点
set oXMLDOM=server.CreateObject ("Microsoft.XMLDOM")
oXMLDOM.load("book.xml")
set Recordlist=oXMLDOM.getElementsByTagName("root") '获取带有指定标签名的所有元素
set SubList=Recordlist.item(0).getElementsByTagName("child") '获取带有指定标签名的所有元素
Response.Write(SubList.item(0).ChildNodes.item(0).text&"<br>")


'修改节点
set oXMLDOM=server.CreateObject ("Microsoft.XMLDOM")
oXMLDOM.load("book.xml")
set Recordlist=oXMLDOM.getElementsByTagName("root")
set SubList=Recordlist.item(0).getElementsByTagName("child")
'修改节点内容方法一
Set Child = xmlDoc.createElement("child")
Child.Text = "修改节点内容的第一个方法"
Set AttID = xmlDoc.createAttribute("id")
AttID.Text = "修改节点属性的第一个方法"
Child.setAttributeNode(AttID)
Recordlist.item(0).ReplaceChild Child,SubList.item(0)
'修改节点方法二
SubList.item(0).text ="修改节点内容的第二个方法"
'修改属性方法一
Set AttID = xmlDoc.createAttribute("id")
AttID.Text = "修改节点属性的第二个方法"
SubList.item(0).setAttributeNode(AttID)
'修改属性方法二
SubList.item(0).Attributes.item(0).Text = "修改节点属性的第三个方法"
Response.Write("修改节点内容："&SubList.item(0).ChildNodes.item(0).text&"<br>")
Response.Write("修改节点属性："&SubList.item(0).Attributes.item(0).Text&"<br>")
Response.Write("节点属性个数："&SubList.item(0).Attributes.length&"<br>")
oXMLDOM.Save "book.xml"






'删除节点
set oXMLDOM=server.CreateObject ("Microsoft.XMLDOM")
oXMLDOM.load("book.xml")
set Recordlist=oXMLDOM.getElementsByTagName("root")
set SubList=Recordlist.item(0).getElementsByTagName("child")
Recordlist.item(0).removeChild(SubList.item(0))
oXMLDOM.Save "book.xml"