ASP操作XML數據小結

NO.1--建立一個XML數據庫data.xml
      <?xml version="1.0"?>
      <records>
         <record>
            <name>caca</name>
<qq>154222225</qq>
            <email>[email protected]</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
       xmldoc.selectsinglenode("//name").text="wawa"
       xmldoc.save(server.mappath("data.xml"))
       搞定!
NO.5--創建新的節點CreatenewNode
       用createelement或者createnode("","","")
       例如:在record下新建個<age>,只需要一句就搞定:
       xmldoc.selectsinglenode("//record").appendchild(xmldoc.createelement("<age>"))
       給<age>賦值
       xmldoc.selectsinglenode("//age").text="20"
       xmldoc.save(server.mappath("data.xml"))
       搞定!
NO.6--刪除一個節點DeleteNode
       你必須明確你想刪除的這個節點的父節點,以及這個節點的特徵
       例如:刪除<qq>節點
       xmldoc.selectsinglenode("//record").removechild(xmldoc.selectsinglenode("//qq"))
       例如:刪除那個<name>=caca的<record>
       xmldoc.selectsinglenode("//records").removechild(xmldoc.selectsinglenode("//record[name='caca']))
       xmldoc.save(server.mappath("data.xml"))
       搞定!
只有能熟練這6條code,用asp控制xml數據庫,也就差不多了...

<%
dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM") 
xml.Async=False
xml.Load(Server.MapPath("test.xml")) 

Set objNode=xml.documentElement
nCntChd=objNode.ChildNodes.length-1

'這個可以定義asp讀取xml文件的那一個值，通過傳遞這個值來確定讀取的數據

for i=0 to nCntChd
set objAtr=objNode.ChildNodes.item(i)
nCntAtr=objAtr.Attributes.length-1

'歷遍一條記錄裏面的所有的記錄項，記錄是從0開始的

for j=0 to nCntAtr
response.write objAtr.Attributes.item(j).Text&"<br>"
next
response.write "<br>"
next

Set objAtr=Nothing
Set objNode=Nothing 
Set xml=Nothing 
%>