解决xmlHttp获取中文乱码的问题

更新时间:2009-10-28 9:08:22 编辑:阿帆

我们来利用一个vb函数对中文字符的转换，即可使乱码的中文恢复正常。。。

以下是代码片段：
<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 response = bytes2BSTR(xmlHttp.responsebody);
test1.innerHTML = response;

注意：一定要引用responsebody,不用能responseText;

原载: No.1网络工作室 http://www.noonenet.cn/
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。

Tags:xmlhttp 中文乱码
同类文章：
· window.open弹出窗口居中
· 动态添加表格的行 - 很简单
· Asp+Ajax实现无刷新验证
· Asp - 实现邮箱激活用户[简要思路及实例展示]
· 实现网页动态标题栏