ASP XMLDom在伺服器端操作XML檔案的主要方法和實現

對於小資料量，xml檔案在檢索更新上於ACCESS有很多優勢。

我曾經測試過不用資料庫，把網站的會員資訊，商品資料資訊，交易資訊，網站定製資訊全部存放在三個xml檔案中，運行結果十分正常，感覺上比資料庫快多了，不過沒有作測試，不能確定。

下面說一下建立，查詢，修改等對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")

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資料庫,也就差不多了...
========================================================

'建立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

等能夠熟練的運用xmldom對象來操作xml檔案了，就可以享受xmlhttp對象來實現asp下的許多功能了。

------------------------------------------------------------------------------------------

雖然asp只能簡單的操作XML檔案，可是對於一般程式開發人員來說就已經足夠。
之前，XML語言非常的少接觸，後來慢慢的，發覺XML在儲存資料上有很多的方便。雖然安全性不好（個人認為），可是對於一般的資料存放區的確 是一個非常不錯的選擇。
今天因為在一個網站上需要用到XML，我在這裡就做一些總結（後期將會用到）：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
首先，先整理ASP讀取XML檔案
default.asp的代碼
<%
dim node,i,nodecount
set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = false
Doc.load(Server.MapPath("data.xml"))
set root = Doc.documentElement
set nodeLis = root.childNodes
nodeCount = nodeLis.length
For i=1 to nodeCount
set node = nodeLis.nextNode()
set cost = node.attributes.getNamedItem("cost")
%>
第 <%=i%> 條記錄：
<table width="50%" border="1">
<tr>
<td width="43" rowspan="2"><img src="<%=node.selectSingleNode("img").text%>"/></td>
<td width="46">書名</td>
<td width="48">出版社</td>
<td width="42">價格</td>
</tr>
<tr>
<td>
<%=node.selectSingleNode("name").text%>
</td>
<td>
<%=node.selectSingleNode("publisher").text%>
</td>
<td>
<%= cost.text%>
</td>
</tr>
</table>
<%
Next
%>
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
接下來就是Data.xml資料內容
<?xml version="1.0" encoding="UTF-8"?>
<data>
<book cost="56">
<name>Dreamweaver</name>
<publisher>中國鐵路出版社</publisher>
<img>img/dw.jpg</img>
</book>
<book cost="62">
<name>Flash</name>
<publisher>中國鐵路出版社</publisher>
<img>img/flash.jpg</img>
</book>
<book cost="48">
<name>Firweorks</name>
<publisher>中國鐵路出版社</publisher>
<img>img/fw.jpg</img>
</book>
</data>