xmlhttp显示乱码问题

现在网上普遍存在的是使用以下的code获取网页信息的：  
  function   getHttpPage(url)  
  t   =   getBody(url)  
  getHttpPage   =   bytesToBstr(t,"gb2312")         '(1)  
  end   function  
   
  function   getBody(url)  
  ' on   error   resume   next  
  set   retrieval   =   createObject("Microsoft.XMLHTTP")  
  with   retrieval  
  .open   "get",   url,   false,   "",   ""  
  .send  
  getBody   =   .responseBody  
  end   with  
  set   retrieval   =   nothing  
  end   function  
   
  function   bytesToBstr(body,   cSet)  
  set   objStream   =   server.CreateObject("adodb.stream")  
  objStream.type   =   1  
  objStream.mode   =   3  
  objStream.open  
  objStream.write   body  
  objStream.position   =   0  
  objStream.type   =   2  
  objStream.charset   =   cSet  
  bytesToBstr   =   objStream.readText  
  objStream.close  
  set   objStream   =   nothing  
  end   function   
  有人说，不可以解决，我测试了多次可以解决。

  
  设置cSet就可以解决编码的错误。