ajax中文乱码问题，网上找了好多资料还是没解决，大家帮我

Question

我知道是utf-8的问题，关键是如何用js将utf-8转为gb2312，我找的很多都不行

Answer 1

用vbscript或者XML替换Text。你在CSDN里就可以找到很多答复

Answer 2

给你段代码，取天气预报的，里面有个解码函数：
<script language=VBScript>
Function bytes2BSTR(vIn)
    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>
<script language="javascript">
function viewCast()
{
  try{
    var XmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); 
    XmlHttp.Open("GET", "http://www.121.com.cn/forecast.jsp", false);
    XmlHttp.setRequestHeader("Content-Type","text/XML");
    XmlHttp.Send();
    var html = bytes2BSTR(XmlHttp.responseBody);
    deCodeCast(html);
  }
  catch (e){
alert(e.message);
  }
}String.prototype.trim=function(){
return this.replace(/(^\s*)|(\s*$)/g,"");
}
function deCodeCast(str){
var strHtml= str.trim();
var iPos= str.indexOf("<td>");
if (iPos>0)
{
strHtml= strHtml.substring(iPos-3);
}iPos= strHtml.indexOf("</td>");
if (iPos>1)
{
strHtml= strHtml.substring(0,iPos);
}
strHtml= strHtml.replace(/\<br\>/gi,"");
document.all("castDIV").innerHTML= "<marquee scrolldelay='100' scrollamount='3'>" + strHtml + "</marquee>";
//alert(strHtml);
//alert(str.trim());
//var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
//xmlDoc.loadXML(str.trim());
//alert(xmlDoc.xml);
}
</script>

Answer 3

to:brothercat(心晴：猫猫也疯狂 ^_^) 
说说应该怎么改，我没找到方法

Answer 4

我以前也有这个问题，也听人说转码，但还是不行！
但是在后台页面上加上：<%Response.CharSet = "gb2312"%>就没问题了，
希望你也是这个问题！
//****************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Response.CharSet = "gb2312"%>
<!--#include file="conn.asp"-->
<%
dim sql,rs,returnSql
sql = "select food_name from food_yy where food_class='"&request.QueryString("food_class")&"'"
'sql = "select food_name from food_yy"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
returnSql = "<ul>"
do while (not rs.eof)
returnSql = returnSql &"<li><a href=""javascript:getfoodyy('" &rs("food_name")&"');"">"&rs("food_name")&"</a></li>"
rs.movenext
loop
returnSql = returnSql &"</ul>"
response.Write(returnSql)
%>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>