<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>
<script language="javascript">
function viewcode(url)
{
var xmlhttp= new ActiveXObject("Msxml2.xmlhttp");
xmlhttp.open("GET",url,false);
xmlhttp.send();
view.innerText=bytes2BSTR(xmlhttp.ResponseBody);
}
</script>

解决方案 »

  1.   

    xmlhttp没有用过.所以不能妄下结论..
    帮你顶一下..
      

  2.   

    不是客户端的问题,而是PHP.INI中的配置问题, 将 PHP.INI 里的 default_charset 设为 gb2312
      

  3.   

    header("Content-type: text/html;charset=GB2312");
      

  4.   

    Function URLEncoding(vstrIn)
        dim ThisChr,strReturn,innerCode,Hight8,Low8
        strReturn = ""
        For i = 1 To Len(vstrIn)
            ThisChr = Mid(vStrIn,i,1)
            If Abs(Asc(ThisChr)) < &HFF Then
                strReturn = strReturn & ThisChr
            Else
                innerCode = Asc(ThisChr)
                If innerCode < 0 Then
                    innerCode = innerCode + &H10000
                End If
                Hight8 = (innerCode  And &HFF00)\ &HFF
                Low8 = innerCode And &HFF
                strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
            End If
        Next
        URLEncoding = strReturn
    End Functionvar message = URLEncoding("from="+mfrom+"&to="+mto+"&face="+mface+"&note="+mnote);我的就是这么解决的!
    原因是,form自己会把值转换,所以必须先做转换,再让它转换,得出来的才正确。