ASP讀取XML @ R~福氣拉! :: 隨意窩 Xuite日誌
  • BloggerAds
  • 關鍵字
  • Search Google
  • Google
    1. 沒有新回應!
  • 看起來滿像樣
  • 工商時間
  • 2008-05-14 14:15 ASP讀取XML
    平均分數:0 顆星    投票人數:0
    我要評分:

    ◆有一XML檔如下(EXxml.xml)...............................................

    <?xml version="1.0" encoding="utf-8" ?>
    <root>
    <row ID="1" COMPNAME="大大公司" ADDR="(110)台北市大大路-门派" TEL="02-2039XXXX" />
    <row ID="2" COMPNAME="中中公司" ADDR="(203)南投県中中路-文档" TEL="06-3948YYYY" />
    <row ID="3" COMPNAME="小小公司" ADDR="(409)台東市小小路" TEL="09-3049ZZZZ" />
    </root>

    ◆使用ASP去讀取XML資料...............................................

    dim xml,objNode,objAtr,nCntChd,nCntAtr
    Set xml=Server.CreateObject("Microsoft.XMLDOM")
    xml.Async=False


    xml.Load(Server.MapPath("EXxml.xml")) 

    Set objNode=xml.documentElement
    nCntChd=objNode.ChildNodes.length-1
    for i=0 to nCntChd
        set objAtr=objNode.ChildNodes.item(i)
        nCntAtr=objAtr.Attributes.length-1
        for j=0 to nCntAtr       
            response.write objAtr.Attributes.item(j).Name & ":" & objAtr.Attributes.item(j).Text & "<br>"
        next
        response.write "<br>"
    next

    Set objAtr=Nothing
    Set objNode=Nothing
    Set xml=Nothing

     

    記得將 " 及 <>  轉成半成!!

    小米 / Xuite日誌 / 回應(2) / 引用(0) / 好文轉寄
    回應