XMLHTTP的responseText显示为乱码问题解决办法

使用bytesToBSTR编码转换函数：

 

 

set   http=Server.createobject("Microsoft.XMLHTTP")     
  Http.open   "GET",url,false     
  'HTTP的通信方式，比如GET或是POST   '接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI程序     
  '如果是异步通信方式(true)如果是同步方式(false)   
  Http.send()   
  'Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。   
  '发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，   
  '客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程     
  if   Http.readystate<>4   then   
  '0   　　Response对象已经创建，但XML文档上载过程尚未结束     
  '1   　　XML文档已经装载完毕     
  '2   　　XML文档已经装载完毕，正在处理中     
  '3   　　部分XML文档已经解析     
  '4   　　文档已经解析完毕，客户端可以接受返回消息   
    
  exit   Function end()function     
  end   if     
  GetHTTPPage   =   bytesToBSTR(Http.responseBody,"GB2312")'bytesToBSTR   编码转化函数   
  '＝＝＝对Http.responseBody的解释＝＝＝   
  'responseText：将返回消息作为文本字符串；     
  'responseBody：将返回消息作为HTML文档内容；   
  'responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；     
  'responseStream：将返回消息视为Stream对象     
  'response.write   GetHTTPPage   
  set   http   =   Nothing