XMLHTTP抓取数据时乱码问题解决
2005-09-07 12:29
579 查看
CSDN原帖:
http://community.csdn.net/Expert/topic/3316/3316086.xml?temp=.2790033
内码问题.用这段代码的吧,我已经改得很精简了.
'使用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
http://community.csdn.net/Expert/topic/3316/3316086.xml?temp=.2790033
内码问题.用这段代码的吧,我已经改得很精简了.
'使用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抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决
- 用javascript解决外部数据抓取中的乱码问题
- 抓取网页中的内容、如何解决乱码问题、如何解决登录问题以及对所采集的数据进行处理显示的过程
- 用javascript解决外部数据抓取中的乱码问题
- 谈乱码问题,如何解决MYSQL数据中文乱码问题
- 解决javaWEB中前台数据传到后台乱码的问题
- 解决sencha touch显示.JSON包含中文数据时显示乱码问题
- 解决Java Web开发中Jsp存储读取MySQL数据中文乱码的问题
- MySQL 插入数据时,中文乱码问题的解决
- 解决服务器返回JSON数据中文乱码问题
- MySQL 插入数据时,中文乱码问题的解决
- PHP中使用file_get_contents抓取网页中文乱码问题解决方法
- Java、C#双语版HttpHelper类(解决网页抓取乱码问题)
- 解决servlet中文数据传入到数据库乱码问题
- 解决ADO读取Excel,数据丢失、数据错误、数据乱码问题
- httpclient自动获取页面编码,解决网页抓取乱码问题