VB如何调用DOM对象，去提取指定网址的内容？包括读取页面上指定区域，指定id,指定class的内容，如有多个class相同的对象，如何遍历，一个完整的例程。

 

请看以下示例：
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")'读取页面上指定区域(指定id,指定class的内容与此同理)
        For i=0 To (item.Length-1)
        Set title=item.Item(i).getElementsByTagName("title")
        Set link=item.Item(i).getElementsByTagName("link")
        msgbox "网页链接" & (i+1) & ":" & link.Item(0).Text
        Next
Else
        msgbox "文档还未准备就绪。状态："& xml.ReadyState & "。"
End If
Set http=Nothing
Set xml=Nothing

该文章在 2014/3/25 0:21:54 编辑过