如何用XMLHTTP获得目标网页的某一行文字

[zytp]

如果，我想获得，如果
北京:天气晴。xxxxxx
等把北京后面这一整段抓下来，

[zytp]

titl=InStr(1,takenhtml,"<title>",1)
titll=InStr(1,takenhtml,"</title>",1)
title=mid(takenhtml,titl,titl1)

fon=InStr(1,takenhtml,"<font class='STitle'>",1)
fonn=InStr(1,takenhtml,"</font>",1)
font=mid(takenhtml,fon,fonn)

pp=InStr(1,takenhtml,"<p class=content>",1)
ppp=InStr(1,takenhtml,"</p>",1)
pppp=mid(takenhtml,pp,ppp)

这里讲讲我要抓 的在
<marquee>
<p align=left>
被抓取的文字
</p>
</marquee>

楼上给的怎么用呢

[iuhxq]

http://asp2004.net/bbs/show.asp?boardid=16&id=1989

看看这个吧，也许有用

[zytp]

需注册不看了
网上大多讲抓取整页
偶只想抓取某一段话
没有这样的例子呀

[ryuginka]

顶一下

[boywind]

怎样取出网页里的部分内容

----------->

<%
on error resume next
Private d_exsit
Dim Retrieval
Dim TakenHTML




Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.open "GET", url, False, "", ""
.Send
GetURL = .responsebody
End With
Set Retrieval = Nothing
End Function



Function bytes2BSTR(vIn)
Dim strReturn
Dim I, ThisCharCode, NextCharCode
strReturn = ""
For I = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, I, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, I + 1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
I = I + 1
End If
Next
bytes2BSTR = strReturn
End Function



TakenHTML = GetURL("http://www.eyou.com")
TakenHTML=bin2str(TakenHTML)


titl=InStr(1,takenhtml,"<title>",1)
titll=InStr(1,takenhtml,"</title>",1)
title=mid(takenhtml,titl,titl1)

fon=InStr(1,takenhtml,"<font class='STitle'>",1)
fonn=InStr(1,takenhtml,"</font>",1)
font=mid(takenhtml,fon,fonn)

pp=InStr(1,takenhtml,"<p class=content>",1)
ppp=InStr(1,takenhtml,"</p>",1)
pppp=mid(takenhtml,pp,ppp)

%>