当前位置：首页 > 网络编程 > WEB编程 > XML编程 > Xml Http抓取数据时乱码问题解决

Xml Http抓取数据时乱码问题解决

点击次数：35 次 发布日期：2008-11-21 22:24:35 作者：源代码网
源代码网推荐

源代码网整理以下内码问题.用这段代码的吧,我已经改得很精简了.

源代码网整理以下使用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

源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华