XMLHTTP抓取数据时乱码问题解决

最新推荐文章于 2020-08-04 18:17:52 发布

原创最新推荐文章于 2020-08-04 18:17:52 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #url

ASP 专栏收录该内容

110 篇文章

订阅专栏

博客介绍了使用XMLHTTP抓取地址并进行内容处理的方法，定义了GetBody函数用于抓取地址内容，还定义了BytesToBstr函数处理二进制数据，将其转换为指定编码的字符串。

'使用XMLHTTP抓取地址并进次内容处理
Function GetBody(Url)
Dim objXML
On Error Resume Next
Set objXML = CreateObject("Microsoft.XMLHTTP")
With objXML
.Open "Get", Url, False, "", ""
.Send
GetBody = .ResponseBody
End With
GetBody=BytesToBstr(GetBody,"GB2312")
Set objXML = Nothing
End Function
'使用Adodb.Stream处理二进制数据
Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function

转自： http://goaler.xicp.net/ShowLog.asp?ID=486