xmlhttp的输出问题.

Question

window.document.write  搞定了,但发现一个问题,就是显示乱码,应该在哪一步设置GB2312?

Answer 1

BodyText=BytesToBstr(oSend.responseText,"gb2312")
Function BytesToBstr(body,Cset)
        dim objstream
        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

Answer 2

测过了，没有乱码，看看是不是ie编码设置的问题
-----------------------
<script language="JScript">
var oSend = new ActiveXObject("MSXML2.XMLHTTP.3.0");
oSend.open("get" , "http://www.163.com" , false);
oSend.send();
window.document.write(oSend.responseText);
</script>