Dom操作xml的常用方法

Dom操作xml的常用方法  
  (Dom的全部方法和属性可到vs的对象浏览器察看)  
   
  '创建DOM对象  
  set   objDom=server.CreateObject("microsoft.xmldom")  
   
  '取得xml数据  
  '方法1   取得xml文件的xml数据  
      objDom.load("c:/test.xml")  
  '方法2   取得xml数据串的数据  
      objDom.loadxml("<people><man   name="sd"></people>")  
   
  '创建一个节点对象  
      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