XML 資料如下:
====================================
<?xml version="1.0" encoding="UTF-8"?>
<Bluesky>
<MentList>
<Link ID="1">
<Name>首頁</Name>
<URL>/</URL>
</Link>
<Link ID="2">
<Name>資訊查詢</Name>
<URL>/</URL>
</Link>
<Link ID="3">
<Name>文章中心</Name>
<URL>/</URL>
</Link>
<Link ID="4">
<Name>網頁特效</Name>
<URL>/</URL>
</Link>
<Link ID="5">
<Name>網站收藏夾</Name>
<URL>/</URL>
</Link>
<Link ID="6">
<Name>使用者討論區</Name>
<URL>/</URL>
</Link>
</MentList>
<PageSize>
<Article>20</Article>
<JScript>20</JScript>
<GuestBook>15</GuestBook>
</PageSize>
</Bluesky>
'// 首先定義和建立XML對象
Dim oXML,oXMLRoot,oXMLItems,oXMLLinks,oXMLItem,iLength,i
Set oXML = CreateObject("Microsoft.XMLDOM") '// 或 MSXML2.DOMDocument
'// 然後載入XML文檔
oXML.load "XML檔案地址" '// 或:oXML.loadXML "XML內容"
'// 內容載入完成後,現在來載入它的節點資訊
'// 擷取XML所有節點
Set oXMLRoot = oXML.documentElement
'// 擷取節點
Set oXMLItems = oXMLRoot.selectNodes("MentList")
'// 此時oXMLItems 變數中已經包含了所有MentList節點的內容。
'// 如果要擷取它下面的 Link 節點的話,用以下語句
'// 擷取節點,設 MentList 節點只有一個,那麼0即是它的內容
SetoXMLLinks = oXMLItems(0).selectNodes("Link")
'// 擷取節點長度(個數)
iLength = oXMLLinks.length - 1
For i = 0 To iLength
Set oXMLItem = oXMLLinks.item(i)
'// 用 getAttribute 方法來擷取它的屬性值
Response.write oXMLItem.getAttribute("ID")
'// 用 selectSingleNode 方法來擷取它的節點值
Response.write oXMLItem.selectSingleNode("Name").text
Response.write oXMLItem.selectSingleNode("URL").text
Next
'// 釋放XML對象
Set oXMLItem = Nothing
Set oXMLLinks = Nothing
Set oXMLItems = Nothing
Set oXMLRoot = Nothing
Set oXML = Nothing
大致的思路就是這樣了,你可以改變一下來滿足你的要求。