xmlhttp 乱码了 咋办

Question

搂主,分给我吧,HOHO,你的获取文件编码下就OK了<%
function GetBody(Url)
  Dim objXML
        On Error Resume Next
        Set objXML = CreateObject("Msxml2.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%>

Answer 1

我要的是JS的解决方案，这是js从客户端获取的

Answer 2

var onlinexml = new ActiveXObject("Microsoft.XMLHTTP");
onlinexml.open("POST","record.asp",false);
onlinexml.send();
var strResult = escape(onlinexml.responseText);
window.record.innerHTML=unescape(strResult);
干嘛要用escape转码？没有什么意义
直接window.record.innerHTML=onlinexml.responseText;就可以了var onlinexml = new ActiveXObject("Microsoft.XMLHTTP");
onlinexml.open("POST","record.asp",false);
onlinexml.onreadystatechange=function()
{
  try{
     if(onlinexml.status==200)
     {
        if(onlinexml.readystate==4)
        {
            document.all.record.innerHTML=onlinexml.responseText
        }
     }
  catch(e)
     {
     }
}
onlinexml.send();