大家看看这个网站
http://zg.jiaxing.gov.cn/weather/weather_823.asp

我想截取其中的新闻,该怎么做?

<B><FONT color=#000000> <font size="2">
和
</font></FONT><font size="2"></font></B>
之间的东西呗
用vb：
str=replace(replace(str,"<B><FONT color=#000000> <font size=""2"">","||"),"</font></FONT><font size=""2""></font></B>","||")

str=split(str,"||")(1)

也可以用证则表达式 就是用户好就慢

[此贴子已经被作者于2006-11-9 11:17:57编辑过]

我要的是:在另一个页面获取那个页面的新闻.不过先谢谢了.

另一个页面用XMLhttp先获取到这个页面的内容 再用我的方法提取你想要的内容

[此贴子已经被作者于2006-11-9 16:40:31编辑过]

既然解决 这个就不给看了

[此贴子已经被作者于2006-11-10 8:59:25编辑过]

谢了问题已经解决.

[此贴子已经被作者于2006-11-9 19:29:55编辑过]

说下方法啊？

<%
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

url="http://zg.jiaxing.gov.cn/weather/weather_823.asp"
if trim(url)<>"" then
set xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")
xml.open "GET",url, False
xml.send
bo = BytesToBstr(xml.ResponseBody,"gb2312")
if Instr(bo,"<MARQUEE")<>0 then
bo=Right(bo,len(bo)-Cint(Instr(bo,"<MARQUEE"))+1)
bo=Left(bo,Cint(instr(bo,"</body>"))-1)
response.Write(bo)
end if
set xml = nothing
end if

%>