XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog

原创 2005年02月27日 21:32: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

相关文章推荐

乱码问题解决方案

  • 2013年05月02日 11:48
  • 2KB
  • 下载

ajax中文参数乱码问题解决方法

  • 2014年07月22日 14:22
  • 337B
  • 下载

dom4j向xml文件中写数据乱码问题解决

这是原先利用dom4j向xml文件中写数据的代码 public void save(Student e) { // TODO Auto-generated method stub Docume...

mysql 数据库乱码问题解决

  • 2014年10月28日 08:35
  • 79KB
  • 下载

JSP中文乱码问题解决办法

  • 2012年10月31日 19:17
  • 51KB
  • 下载

Volley 请求后台数据中文乱码问题解决

Volley 请求后台数据中文乱码问题分析与解决

PLSQL中文乱码问题解决方案

  • 2016年05月04日 21:14
  • 334KB
  • 下载

JAXB乱码问题解决

  • 2014年06月20日 21:23
  • 32KB
  • 下载

java向mysql插入数据乱码问题解决

MySQL默认编码是latin1 +--------------------------+--------------------------+ 附注:说下我个人解决的办法...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:XMLHTTP抓取数据时乱码问题解决 选择自 babyt 的 Blog
举报原因:
原因补充:

(最多只允许输入30个字)