Xml Http抓取数据时乱码问题解决
内码问题.用这段代码的吧,我已经改得很精简了.
使用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
obj...[ 查看全文 ]
2016-02-19
标签:
