XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
来源:互联网 发布:mac可用的画图软件 编辑:程序博客网 时间:2024/04/24 14:00
内码问题.用这段代码的吧,我已经改得很精简了.
'使用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
'使用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
- XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
- XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP下载远程数据输出到浏览器 选择自 oydj 的 Blog
- XMLHTTP抓取远程数据的后期处理
- XMLHTTP抓取远程数据的后期处理
- 通过java.net.URL类抓取某个网页的内容 选择自 cqq 的 Blog
- 抓取网页萃取网页内容的代码 选择自 liujien 的 Blog
- DataGrid数据导入Excel 选择自 sunnystar365 的 Blog
- xmlHttp responseText 返回乱码问题解决
- java抓取网页保存的乱码问题解决
- JSP中文乱码问题的解决 选择自 qixiao 的 Blog
- Eclipse快捷键 选择自 SDZ 的 Blog
- Java Exception 选择自 darkula 的 Blog
- CSDN收藏夹(选择自 jiangsheng 的 Blog )
- 电影中的计算机
- 谈谈后门
- 年轻女郎的尴尬
- 补考马哲~
- adodb Stream 详细用法 选择自 3cts 的 Blog
- XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
- 致将来妻子的信(摘录,分享)
- 一点点的幸福!为了爱,我们一起努力!(摘)
- CP How-To:如何使用cPanel添加Mysql数据库
- (8) 9岁男童获布什政府重用 欲2032年入主白宫(图)
- 最令人心动的9种女生!!!
- 新疆十大未解之谜。。。
- CP How-To:如何使用cPanel查看站点统计数据(awstats)
- CP How-To:如何使用Cpanel添加Subdomains(子域名)