下一节 聊天室实战

[@more@]

取得XML子节点

'创建DOM对象 set objDom=server.CreateObject("MicroSoft.XMLDom")

'取得xml数据

'方法1 取得xml文件的xml数据 objDom.load("c:test.xml") '方法2 取得xml数据串的数据 objDom.loadxml("")

'创建一个节点对象

Set Newnode=objDom.CreateElement("people") '给这个节点赴值 Newnode.Text="人" ' 给这个节点添加属性 Set NewAttribute=objDom.CreateNode("attribute","name","") NewAttribute.Text= "张三" Newnode.SetAttributeNode NewAttribute '给这个节点添加子节点 Set NewnodeChild=objDom.CreateElement("address") Newnode.appendChild NewnodeChild '保存这个节点对象 objDom.appendChild Newnode objDom.save("c:test.xml")

'查找一个节点对象

set objtofind=objdom.documentElement.SelectSingleNode("//people/man") '取出这个节点对象的 节点名，节点值，某个属性值，和全部的xml nodename=objtofind.nodename nodevalue=objtofind.text objtofind.GetAttributeNode("name").Nodevalue '属性名为name的属性值

'取出一个属性节点对象

set objattrtofind=objdom.documentElement.SelectSingleNode("//people/man"). GetAttributeNode("name") '取出这个节点的属性名，属性值 nodeattrname=objattrtofind.nodename nodeattrvalue=objattrtofind.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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/219138/viewspace-915686/，如需转载，请注明出处，否则将追究法律责任。