如何调用sohu首页新闻标题到我的主页上显示

Question

最简单的办法就是用框架把他的网页包含进来, 但是这样的话没有可操作性,
2.用XMLHTTP的方式得到他的HTML源代码, 再分析代码显示, 这个方式不错.

Answer 1

Function GetPage(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetPage = BytesToBstr(.ResponseBody)
End With 
Set Retrieval = Nothing 
End Function取得HTML源代码。

Answer 2

Function BytesToBstr(body)
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 = "GB2312"
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function