【ASP】讀取XML

XML內容 ：

<xml masterProduct="12345">
<Form vConnectStr="DSN=forms;UID=sa;PWD=SQLxml;" vTableName="BOM"  vFormName="bom.htm" vIndex="id=812">BOM 資料連線</Form>
<product1 mainProduct="yes" >
   <color>Red</color>
   <price>23.99</price>
   <pname>LED燈泡</pname>
</product1>
<product2 productID="P0002"></product2>
<product3 productID="P0003"></product3>
</xml>

程式碼：

<%
    dim strPath
    set xmlobj=server.createobject("Microsoft.XMLDOM")
    'xml路徑檔名
    strPath = "xml.xml"

    xmlobj.load Server.MapPath(strPath)  '載入XML
 
    set root=xmlobj.documentElement
    set forms=root.selectNodes("//xml/Form")  'multi node 
    'set forms=root.selectNodes("//Form")  省略XML也OK 
        
        if forms.length>0 then
            set f=forms.item(0)
            response.write "連線字串 : " & f.getAttribute("vConnectStr")
            response.write "<br/>"
            response.write "表格名稱 : " &  f.getAttribute("vTableName")
            response.write "<br/>"
            response.write "Form檔案名稱 : " &  f.getAttribute("vFormName")
            response.write "<br/><br/>"
        end if

        Set oRoot = xmlobj.selectSingleNode("//product1")  'single node 
         for each x in oRoot.childNodes
          Select Case x.baseName
           case "color"
            strColor = x.text
           case "price"
            strPrice = x.text
           case "pname"
            strPname = x.text 
           case else          
          end select
         next
        set xmlobj = nothing
        response.write  "product1 顏色: " & strColor & "<br/>"
        response.write  "product1 價格: " & strPrice & "<br/>"
        response.write  "product1 名稱: " & strPname
%>

執行畫面 ：