Xml Http抓取数据时乱码问题解决
作者:佚名 来源:新云 时间:2008-04-24 11:16: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
标签:
0
投稿
猜你喜欢
ADSI+ASP添加IP到IIS禁止访问列表中
2011-04-02 10:42:00
网马解密大讲堂——网马解密初级篇
2009-09-16 14:45:00
关于字符集和Unicode的相关知识[译]
2010-03-13 14:17:00
如何实现全文检索?
2010-05-24 18:24:00
MS SQL 查询数据在数据库中所在行
2009-04-26 19:36:00
图文教程教你asp编译成dll组件
2010-07-16 13:16:00
兼容IE和FF的收藏本站、设为首页代码
2009-01-07 14:14:00
服务端XMLHTTP(ServerXMLHTTP in ASP)进阶应用-User Agent伪装
2008-11-11 12:29:00
通过asp程序来创建access数据库
2011-04-02 11:17:00
实用技巧:优化SQL Server数据库查询方法
2009-02-04 13:46:00
asp如何用FileSystemObject组件来做一个站内搜索?
2010-06-12 12:47:00
ASP+SQL Server构建网页防火墙
2009-01-21 19:56:00
理清mysql外链的含义和命令
2010-03-09 15:55:00
远古幻想ICON 1套+创作思路
2007-09-30 20:33:00
存储过程优缺点分析
2012-04-13 11:39:56
如何把URL和邮件地址自动转换为超级链接?
2009-11-02 20:22:00
XMLHTTP资料
2008-09-05 17:20:00
Mootools 1.2教程(1)——MooTools介绍
2008-11-12 13:01:00
prototype.js常用函数及其用法
2007-11-21 20:47:00
解析:轻松了解 MySQL中损坏的MyISAM表
2009-02-23 17:30:00