日期:2010-04-28  浏览次数:20871 次

  ASP操作XML数据小结 
NO.1--建立一个XML数据库data.xml
      <?xml version="1.0"?>
      <records>
         <record>
            <name>caca</name>
            <qq>154222225</qq>
            <email>root@3ney.com</email>
         </record>
       <records>
NO.2--建立对象CreateObject
      建立data.xml的对象先
      set xmldoc=server.createobjcet("microsoft.xmldom")
      xmldoc.load(server.mappath("data.xml")

NO.3--选定节点SelectNode
      你想操作哪个Node,必须定位到这个节点是不是,先看看这个data.xml有几个Node??
      用一个递归函数搞定:
      getnodes(xmldoc)

      sub getnodes(node)
       dim i
         response.write("<br><b>NodeName:</b>"&node.nodename&"<br><b>NodeTypeString:</b>"

&node.nodetypestring&"<br><b>NodeValue:</b>"&node.nodevalue&"<br>

<b>Text:</b>"&node.text&"<br><b>node.childnodes.length:</b>"

&node.childnodes.length&"<p>")

           if node.childnodes.length<>0 then
                  for i=0 to node.childnodes.length-1
                  getnodes(node.childnodes(i))
              next
       end if
       end sub
       用这个函数后,可以看到这个data.xml有10个Node
       这些Node可以很简单的定位:
       xmldoc
       xmldoc.childnodes(0)
       xmldoc.childnodes(1)
       xmldoc.childnodes(1).childnodes(0)
       xmldoc.childnodes(1).childnodes(0).childnodes(0)
       xmldoc.childnodes(1).childnodes(0).childnodes(0).text
       xmldoc.childnodes(1).childnodes(0).childnodes(1)
       xmldoc.childnodes(1).childnodes(0).childnodes(1).text
       xmldoc.childnodes(1).childnodes(0).childnodes(2)
       xmldoc.childnodes(1).childnodes(0).childnodes(2).text
       是不是定位很简单呀,还有个方法,比如定位<name>
       xmldoc.selectsinglenode("//name")
       还有:
      xmldoc.getelementsbytagname("name").item(0)
       
NO.4--给节点赋值(修改节点的值)
       学会了定位节点,利用其属性,就可以修改或者赋值了
       例如,把<name>的值caca改为wawa
       x