ajax与asp程序交互时出现乱码了?
我前段时间想通过ajax实现和asp程序的交互,就是在城市选择市在客户端先选择省份,然后通过ajax访问asp程序,该asp程序的执行结果就是将该省份的所有城市发回客户端,可是我跟踪asp程序,服务器端发回的结果是正确的,但客户端显示是乱码,在网上搜了下说是两边的编码问题不一样,我在网上用了下人家在客户端将gb2312编码转为UTF-8的js代码,可是运行有错误,谁能给我一段正确的代码?
Function U2UTF8(Byval a_iNum) 'utf8转gbk Dim sResult,sUTF8 Dim iTemp,iHexNum,i iHexNum = Trim(a_iNum) If iHexNum = "" Then Exit Function End If sResult = "" If (iHexNum < 128) Then sResult = sResult & iHexNum ElseIf (iHexNum < 2048) Then sResult = ChrB(&H80 + (iHexNum And &H3F)) iHexNum = iHexNum \ &H40 sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult ElseIf (iHexNum < 65536) Then sResult = ChrB(&H80 + (iHexNum And &H3F)) iHexNum = iHexNum \ &H40 sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult iHexNum = iHexNum \ &H40 sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult End If U2UTF8 = sResult End Function Function GB2UTF(Byval a_sStr) 'gbk转utf8 Dim sGB,sResult,sTemp Dim iLen,iUnicode,iTemp,i sGB = Trim(a_sStr) iLen = Len(sGB) For i = 1 To iLen sTemp = Mid(sGB,i,1) iTemp = Asc(sTemp) If (iTemp>127 OR iTemp<0) Then iUnicode = AscW(sTemp) If iUnicode<0 Then iUnicode = iUnicode + 65536 End If Else iUnicode = iTemp End If sResult = sResult & U2UTF8(iUnicode) Next GB2UTF = sResult End Function