Asp 讀取 XML 檔案的子節點值

來源:互聯網
上載者:User

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

大致的思路就是這樣了,你可以改變一下來滿足你的要求。

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.