locked
如何用 ASP 導入 Yahoo Finace 的 RSS RRS feed

  • 問題

  • 對不起, 新手發問這個應該是很簡單的問題. 只是一直轉不出來.

    "http://finance.yahoo.com/rss/headline?s=yhoo" 是 Yahoo Finace 的 RSS 連結.

            strURL = "http://finance.yahoo.com/rss/headline?s=yhoo"
            set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
            objXMLHTTP.open "GET",strUrl, false
            objXMLHTTP.send
            ProcessUrl = objXMLHTTP.ResponseText
            set objXMLHTTP = Nothing
            set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
           
            Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
            objXMLDoc.async = "false"
            objXMLDoc.LoadXml(ProcessUrl)

            Dim root
            Dim output
            Set root = objXMLDoc.documentElement
            Dim noteTitle, noteLink, notePubDate
            for i = 0 tO (root.childNodes.length - 1)
                set thisChild = root.childNodes(i)
                noteTitle = thisChild.childNodes(0).Text
                noteLink = thisChild.childNodes(1).Text
                notePubDate = thisChild.childNodes(5).Text
                output = output & noteTitle & "<br/>" & noteLink & "<br/>" & notePubDate & "<hr>"
            next

    只是這方式只能讀到 RSS 的第三層, 而無法讀到所需要的第四層 <item></item> 內的 title, link 和 pubdate. 請問要如何讀到第四層.

    謝謝!!!
    2009年4月13日 上午 06:27

解答

  • 你好,

    你在for循环中加一个if判断

    if thisChild.nodeName ="item"
    then
    noteTitle = thisChild.childNodes(0).Text
                noteLink = thisChild.childNodes(1).Text
                notePubDate = thisChild.childNodes(5).Text
                output = output & noteTitle & "<br/>" & noteLink & "<br/>" & notePubDate & "<hr>"

    end if

    Microsoft Online Community Support
    • 已標示為解答 KeFang Chen 2009年4月17日 上午 08:20
    2009年4月16日 上午 07:21