狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

VB如何調(diào)用DOM對(duì)象，去提取指定網(wǎng)址的內(nèi)容？包括讀取頁(yè)面上指定區(qū)域，指定id,指定class的內(nèi)容，如有多個(gè)class相同的對(duì)象，如何遍歷，一個(gè)完整的例程。

 

請(qǐng)看以下示例：
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://localhost/xml.xml",False
http.send

Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
If xml.ReadyState>2 Then
        Set item=xml.getElementsByTagName("item")'讀取頁(yè)面上指定區(qū)域(指定id,指定class的內(nèi)容與此同理)
        For i=0 To (item.Length-1)
        Set title=item.Item(i).getElementsByTagName("title")
        Set link=item.Item(i).getElementsByTagName("link")
        msgbox "網(wǎng)頁(yè)鏈接" & (i+1) & ":" & link.Item(0).Text
        Next
Else
        msgbox "文檔還未準(zhǔn)備就緒。狀態(tài)："& xml.ReadyState & "。"
End If
Set http=Nothing
Set xml=Nothing

該文章在 2014/3/25 0:21:54 編輯過(guò)