关于页面信息截取的问题!

[happynet]

Function Gethttppage(Path)
T = Getbody(Path)
Gethttppage=Bytestobstr(T,"Gb2312")
End Function
Function Getbody(Url)
On Error Resume Next
Set Retrieval = Createobject("Microsoft.Xmlhttp")
With Retrieval
.Open "Get", Url, False, "", ""
.Send
Getbody = .Responsebody
End With
Set Retrieval = Nothing
End Function
Wstr=Gethttppage("http://www.hqew.com/Homepage/yg2002/ICStock.asp?SiteID=591&keyword=++")

我这样获取得到的页面内容与直接打开的内容不一样,有什么解决的办法?

[huo789]

Responsebody改为ResponseText试试

[仙人掌]

可能是目标网站判断了请求来源 而做出不同输出

试试 使用SetRequestHeader("referer",value)

[happynet]

huo789(四火) 改了,不行.获取不到内容!

yeefly(topn.net)(困在SH)
这句话加在那里呢?

[仙人掌]

With Retrieval
.SetRequestHeader("referer",value)
.Open "Get", Url, False, "", ""
.Send

[happynet]

还是不行呀!各位高人.有啥办法解决问题?谢谢

[chaoliu1]

可以了啊，我已经运行过了，这样改：

在程序结尾加上这一段，网站内容就被读到Wstr中并显示了出来


response.write Wstr

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

[yyjzsl]

楼上的，我也试过了，可以啊！