 |
|
XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
|
|
|
内码问题.用这段代码的吧,我已经改得很精简了.
'使用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
| |
|
上一篇：XML的简单读取与写入
下一篇：使用Web标准建站第6天：XHTML代码规范
|
普克创业投资网刊载此文不代表同意其说法或描述，仅为提供更多信息。
|
|
当前位置： 普克>>计算机教程>>asp>>XML相关>>XMLHTTP抓取数据时乱码问题解决 
