<引用>
如何用Asp讀寫XML文件及XML存取數(shù)據(jù)的優(yōu)點(diǎn) 看代碼和注釋，先了解一下ASP是如何讀寫XML文件的。

  '// 首先定義和創(chuàng)建XML對(duì)象
Dim oXML,oXMLRoot,oXMLItems,oXMLLinks,oXMLItem,iLength,i

Set oXML = CreateObject("Microsoft.XMLDOM") '// 或 MSXML2.DOMDocument

  '// 然后加載XML文檔
oXML.load "XML文件地址" '// 或：oXML.loadXML "XML內(nèi)容"

  '// 內(nèi)容加載完成后，現(xiàn)在來(lái)加載它的節(jié)點(diǎn)信息
  '// 獲取XML所有節(jié)點(diǎn)

Set oXMLRoot = oXML.documentElement
  '// 獲取節(jié)點(diǎn)
Set oXMLItems = oXMLRoot.selectNodes("ExampleNode")

  '// 此時(shí)oXMLItems 變量中已經(jīng)包含了所有ExampleNode節(jié)點(diǎn)的內(nèi)容。
  '// 如果要獲取它下面的ExampleSubNode節(jié)點(diǎn)的話，用以下語(yǔ)句
  '// 獲取節(jié)點(diǎn)，設(shè)ExampleNode節(jié)點(diǎn)只有一個(gè)，那么0即是它的內(nèi)容
oXMLLinks = oXMLItems(0).selectNodes("ExampleSubNode")
  '// 獲取節(jié)點(diǎn)長(zhǎng)度(個(gè)數(shù))
iLength = oXMLLinks.length - 1

For i = 0 To iLength
  Set oXMLItem = oXMLLinks.item(i)
  '// 用 getAttribute 方法來(lái)獲取它的屬性值
  oXMLItem.getAttribute("ID")
  '// 用 selectSingleNode 方法來(lái)獲取它的節(jié)點(diǎn)值
  oXMLItem.selectSingleNode("Name").text
Next
  '// 釋放XML對(duì)象
Set oXMLItem = Nothing
Set oXMLLinks = Nothing
Set oXMLItems = Nothing
Set oXMLRoot = Nothing
Set oXML = Nothing

上面的代碼可以說(shuō)是一個(gè)ASP讀取XML文件的基本流程，一般的用這個(gè)也就夠了。下面看一個(gè)例子來(lái)說(shuō)明ASP如何讀寫XML文件以及ASP讀寫XML的具體用法，一篇從網(wǎng)上來(lái)的文章，原文如下：

在此之前，我寫了兩篇關(guān)于ASP結(jié)合XML的貼子，分別介紹了用XML取代數(shù)據(jù)庫(kù)和用XML整合數(shù)據(jù)庫(kù)這兩方面的技術(shù)，讓數(shù)據(jù)庫(kù)在某種情況下不再是我們的唯一選擇。而XML跟傳統(tǒng)數(shù)據(jù)庫(kù)相比，更有以下優(yōu)點(diǎn)：更小的文件體積，更靈活的數(shù)據(jù)存貯，更方便的文件讀寫（因?yàn)閄ML是文本文件，所以無(wú)需專門的軟件制作和維護(hù)），而且XML技術(shù)也是網(wǎng)絡(luò)發(fā)展的大勢(shì)所趨（從.NET對(duì)XML全面的支持便可見(jiàn)一斑了）。如果有興趣的話，讓我們一起來(lái)寫一些自己的Function，來(lái)更方便和直觀地讀寫XML。

乍一看，XML跟HTML的格式非常相似，的確，因?yàn)樗鼈兌际茄苌許GML，基本數(shù)據(jù)也都是由首標(biāo)簽，尾標(biāo)簽，注釋標(biāo)簽和一些普通文本組成。但XML在語(yǔ)法上比HTML要求更嚴(yán)格，稍有不慎，你的XML便會(huì)犯上語(yǔ)法錯(cuò)誤，導(dǎo)致無(wú)法讀取其中數(shù)據(jù)。比如，在HTML中，我們把<a href="index.html">寫成<a href=index.html>是完全沒(méi)問(wèn)題的，但XML中這樣就絕對(duì)不行，XML要求標(biāo)記的屬性必須用單引號(hào)或雙引號(hào)引起來(lái)。至于如何寫一個(gè)合法的XML文件，我在前兩篇中都有敘說(shuō)，大家可以搜索出來(lái)看幾眼，這里也就不多寫，下面給出一個(gè)合法的XML文件的例子，也是接下來(lái)我們要用到的。

================================================================= songlist.xml
<?xml version="1.0" encoding="gb2312"?>
<!-- 注釋:轉(zhuǎn)貼請(qǐng)注明作者 -->
<歌曲列表>
<歌曲 歌名="Yesterday" 時(shí)間="1:53" 分級(jí)="5"/>
<歌曲 歌名="Imagine" 時(shí)間="3:04" 分級(jí)="5"/>
<歌曲 歌名="All You Need Is Love" 時(shí)間="3:52" 分級(jí)="4"/>
<歌曲>
<歌名>Come Together</歌名>
<時(shí)間>4:18</時(shí)間>
<分級(jí)>4</分級(jí)>
</歌曲>
<歌曲 演唱者="約翰列儂">
<歌名>Oh My Love</歌名>
<時(shí)間>2:44</時(shí)間>
<分級(jí)>5</分級(jí)>
</歌曲>
<最后一次修改 修改人="" 時(shí)間="">無(wú)修改內(nèi)容<最后一次修改>
</歌曲列表>

================================================================================

這個(gè)例子應(yīng)該可以充分展現(xiàn)XML比數(shù)據(jù)庫(kù)更靈活的一面，雖然每一條記錄都是存貯一首歌的歌名，時(shí)間，分級(jí)這三項(xiàng)信息，但我們有多種存貯方法可選，既可以把數(shù)據(jù)放在標(biāo)記的屬性里，也可以把數(shù)據(jù)放到下一級(jí)標(biāo)記里顯示，像上例那樣，兩者共存也沒(méi)問(wèn)題。同時(shí)，XML也沒(méi)有規(guī)定當(dāng)你第一條記錄有多少列時(shí)，你第二條記錄也一定要有那么列，就上例而言，我們完全可以再加一條歌曲記錄，只指定歌名和時(shí)間而不分級(jí)。至于每一條記錄的標(biāo)簽（如1-5條中的"歌曲"），可以重復(fù)也可以不同，你看，我就在最后加了一個(gè)完全與前面不同的"最后一次修改"標(biāo)簽。總之，XML在要求語(yǔ)法合法的同時(shí)也給了開發(fā)人員充足的自由，以前在數(shù)據(jù)庫(kù)里要用幾個(gè)表才能記錄的事，我們現(xiàn)在可以通通放在一個(gè)XML中了。下面，我一步一步來(lái)演示如何讀寫其中的任何一個(gè)元素。

首先，像打開數(shù)據(jù)庫(kù)一樣，我們也得打開我們的XML文件。像這樣：
Set rootXML = server.CreateObject("MSXML.DOMDocument")
rootXML.load server.MapPath("XML/config.xml")

“MSXML.DOMDocument是windows”的一個(gè)標(biāo)準(zhǔn)組件，每臺(tái)機(jī)器上都有的，請(qǐng)放心使用。

然后，為了能夠操作文件里的各項(xiàng)數(shù)據(jù)，我們?cè)俳ㄒ粋€(gè)類似游標(biāo)的變量root，并把它指向XML文件的根標(biāo)記（也就是<歌曲列表>）:
Set root = rootXML.documentelement

如果我們把XML文檔看成是一個(gè)由一級(jí)一級(jí)的標(biāo)記組成的樹型結(jié)構(gòu)，那現(xiàn)在，我們的root對(duì)象表示的就是文檔的根標(biāo)記，也就是第一級(jí)節(jié)點(diǎn)（一個(gè)XML文件中，根標(biāo)記必須是唯一的）。所以我們?cè)O(shè)這么一個(gè)root對(duì)象就是為了更方便地訪問(wèn)下一級(jí)節(jié)點(diǎn)，以實(shí)現(xiàn)對(duì)XML的控制。

就我們示例的這個(gè)XML文檔而言，它的根標(biāo)記是<歌曲列表>，它的下一級(jí)標(biāo)記有6個(gè)，前五個(gè)都是以<歌曲>命名，最后一個(gè)是<最后一次修改>，雖然名字不同，但是他們都是同一性質(zhì)，我們可以把它們一起視為這個(gè)XML樹型結(jié)構(gòu)的第二級(jí)節(jié)點(diǎn)。既然我們的root對(duì)象已經(jīng)指向了第一級(jí)結(jié)點(diǎn)，好，現(xiàn)在就讓我們站在第一級(jí)結(jié)點(diǎn)上來(lái)操作第二級(jí)結(jié)點(diǎn)。

比如，我們要得到下一級(jí)節(jié)點(diǎn)的某個(gè)標(biāo)記的文本內(nèi)容，像<最后一次修改>無(wú)修改內(nèi)容<最后一次修改>中的"無(wú)修改內(nèi)容"這段文本。我們可以如下操作：
先確定該標(biāo)記是這一級(jí)節(jié)點(diǎn)中的第幾個(gè)，此例為6；好，確定后馬上行動(dòng)：
text = root.childNodes.item(5).text

“root.childNodes.item(5).text”這一句代碼應(yīng)該很好理解，用偽代碼翻譯過(guò)來(lái)就是“目錄.子目錄集合.集合中的第5個(gè)標(biāo)記.標(biāo)記的文本內(nèi)容”，因?yàn)閄ML的元素索引是從0開始的，所以我們獲取某個(gè)位置的標(biāo)記時(shí)，一點(diǎn)要記著把位置數(shù)減1再執(zhí)行操作，否則就會(huì)越界。比如我們要獲取下一級(jí)節(jié)點(diǎn)的第一個(gè)標(biāo)記的文本，我們就應(yīng)該用“root.childNodes.item(0)”，而不是“root.childNodes.item(1)”

為了方便，我們將“獲取下一級(jí)標(biāo)記的內(nèi)容”這一操作寫成函數(shù)，以便重用：
Function getNodeText(ByVal nNode)
getNodeText = root.childNodes.item(nNode).text
End Function

有了這個(gè)函數(shù)后，我們?cè)僖玫健盁o(wú)修改內(nèi)容”時(shí)就只需用如下代碼：
text = getNodeText(5)

既避免了出錯(cuò)，也減輕了輸入工作。與之相反，修改下一級(jí)標(biāo)記的內(nèi)容的代碼是：
root.childNodes.item(nNode).text = 要修改成的字串，我們同樣寫成一個(gè)函數(shù)——
Function setNodeText(ByVal nNode, ByVal strNewNodeText)
root.childNodes.item(nNode).text = strNewNodeText
End Function

現(xiàn)在，我們要將“無(wú)修改內(nèi)容”改成“第一條記錄已經(jīng)更改”，就可以這樣：
setNodeText 5,"第一條記錄已經(jīng)更改"

（修改后請(qǐng)用rootXML.Save(文件名)方法保存文件，以使修改生效。）
OK！我們已經(jīng)可以方便地對(duì)下一級(jí)標(biāo)記的進(jìn)行讀取和修改了，好，下一個(gè)目標(biāo)，標(biāo)記的屬性。

我們先回顧一下我們的第二級(jí)節(jié)點(diǎn)中的第一個(gè)標(biāo)記的內(nèi)容：
<歌曲 歌名="Yesterday" 時(shí)間="1:53" 分級(jí)="5"/>
這是一種特殊表達(dá)方式，只有首標(biāo)簽<歌曲>，而沒(méi)有尾標(biāo)簽</歌曲>，更沒(méi)有夾在兩個(gè)標(biāo)簽之間的文本內(nèi)容，而直接以一個(gè)“/”結(jié)束。呵呵，我是個(gè)懶人，所以我比較偏向于這種省略尾標(biāo)簽的寫法。但我們用這種省略寫法的時(shí)候，我們就沒(méi)法在首尾標(biāo)簽中添加數(shù)據(jù)了，更沒(méi)法使用我們上面定義的兩個(gè)函數(shù)。這時(shí)候，標(biāo)記的屬性給我們提供了存貯數(shù)據(jù)的唯一容器，上面這個(gè)標(biāo)記中就存貯著3組屬性，下面讓我們來(lái)試著訪問(wèn)它：
text = root.childNodes.item(0).attributes.item(0).value

這段代碼讓text變量被賦予了"Yesterday"這個(gè)字串，不信你打印一下。用偽代碼解釋之：
“目錄.下一級(jí)目錄.第0個(gè)標(biāo)記.標(biāo)記的屬性集合.集合中的第0個(gè)屬性.屬性對(duì)應(yīng)的值”
廢話少說(shuō)，寫成函數(shù)
Function getAttValue(ByVal nNode, ByVal nAtt)
getAttValue=root.childNodes.item(nNode).attributes.item(nAtt).value
End Function

以后就可以很方便地用text = getAttValue(0,0)得到下一級(jí)節(jié)點(diǎn)中第0個(gè)標(biāo)記的第0個(gè)屬性值了，屬性也是從0開始索引，切記。

至于修改屬性，很簡(jiǎn)單，直接賦值既可，寫成函數(shù)表示：
Function setAttValue(ByVal nNode, ByVal nAtt, ByVal strNewAttValue)
root.childNodes.item(nNode).attributes.item(nAtt).value=strNewAttValue
End Function

好，一旦我們發(fā)現(xiàn)“All You Need Is Love”這首歌太好聽了，想把它的等級(jí)升成5，就可以這樣做setAttValue 2,2,"5"

最后，記得使修改生效，也就是在操作后使用rootXML.Save(文件名)這一方法。

當(dāng)能夠讀寫一個(gè)XML文件的文本內(nèi)容和屬性值后，我想您也應(yīng)該基本上能夠用ASP熟練地操作XML文檔元素了，趕快將這一技術(shù)用在你的ASP中吧！好，今天就寫到這里，下次再寫時(shí)我再附上刪除屬性、創(chuàng)建標(biāo)記、添加標(biāo)記、刪除標(biāo)記、復(fù)制標(biāo)記、替換標(biāo)記、按條件查詢 等一些沒(méi)講完的操作。