〓〓〓〓〓〓〓〓〓关于用XMLHTTP提取网页乱码问题,在线等解决〓〓〓〓〓〓〓〓〓〓〓〓
我一个页面中比如a.asp中用的是gb2312,这个页面里有个表格显示的是抓取另一个页面b.asp的某一部分内容(不含b.asp的头信息,只是抓取它中间某一部分内容),b.asp用的是utf8的编码,现在a.asp里其他的内容都是正常的 唯独抓取的那部分内容是乱码,请问该如何解决?
我抓取的代码:
On Error Resume Next
Function getHTTPPage(url)
Dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
If Http.readystate<>4 then
exit function
End If
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set Http=nothing
If err.number<>0 Then err.Clear
End Function
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