ajax获取GB2312网页

一般是用这个VBScript函数解决乱码问题
<script   language="VBScript">   
      function   bytes2BSTR(vIn)   
          dim   strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode   
          strReturn=""   
          for   i=1   to   LenB(vIn)   
              ThisCharCode=AscB(MidB(vIn,i,1))   
              if   ThisCharCode<&H80   Then   
                  strReturn=strReturn   &   Chr(ThisCharCode)   
              else   
                  NextCharCode=AscB(MidB(vIn,i+1,1))   
                  strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))   
                  i=i+1   
              end   if   
              next   
              bytes2BSTR=strReturn   
          end   function   
  </script> 
var responseText = bytes2BSTR(xmlHttp.responseText);