快捷導(dǎo)航

XMLHTTP 亂碼的解決方法（UTF8,GB2312 編碼解碼）

更新時間：2011年01月12日 00:07:52 作者：

XMLHTTP 亂碼的解決方法（UTF8,GB2312 編碼解碼）（附帶解決DHTMLX不能用中文的問題）

在數(shù)據(jù)發(fā)送一方，利用 javascript 的 escape 函數(shù)事先將所有中文轉(zhuǎn)換成英文編碼并保存（也可以用 ASP 等其它語言的函數(shù)實時轉(zhuǎn)換輸出）。
在數(shù)據(jù)接收一方，利用 javascript 的 unescape 函數(shù)將所有英文編碼還原。
由于 Ajax 不論任何編碼都能正常傳送英文，所以用這種方法可以輕松解決。

--------------------------------------------------------------------------------
用XMLHTTP Post Form時的表單亂碼有兩方面的原因——Post表單數(shù)據(jù)時中文亂碼；服務(wù)器Response被XMLHTTP不正確編碼引起的亂碼。換句話說，本文主要解決兩個問題——怎樣正確Post中文內(nèi)容&怎樣正確顯示得到的中文內(nèi)容。
Part I Post中文內(nèi)容
先看看E文的表單是怎么提交的：

復(fù)制代碼代碼如下:

 
<SCRIPT language="JavaScript"> 
strA = "submit1=Submit&text1=scsdfsd"; 
var oReq = new ActiveXObject("MSXML2.XMLHTTP"); 
oReq.open("POST","http://ServerName/VDir/TstResult.asp",false); 
oReq.setRequestHeader("Content-Length",strA.length); 
oReq.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded"); 
oReq.send(strA); 
</ScRIPT> 

如果把strA = "submit1=Submit&text1=scsdfsd";換成：
strA = "submit1=Submit&text1=中文";
你會發(fā)現(xiàn)提交上去的東東根本不對，ASP中Request.Form("Text1"）根本取不到值。俺用Request.BinaryRead把一個HTML Form中的Post內(nèi)容寫出來看了看，才發(fā)現(xiàn)問題——Form提交時也要編碼的，編碼后的中文是類似于%??%??的轉(zhuǎn)義字符，比如“中文”就被編碼為：%D6%D0%CE%C4。呵呵，也怪俺笨，人家CONTENT-TYPE里明明寫的清清楚楚——application/x-www-form-urlencoded，urlencoded嘛當(dāng)然就是這個樣子了。既然這樣,那我們也知道該怎么辦了——自己做轉(zhuǎn)換，代碼見下：

復(fù)制代碼代碼如下:

 
<SCRIPT language="VBScript"> 
Function URLEncoding(vstrIn) 
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 Function 
strA = URLEncoding("submit1=Submit&text1=中文") 
oReq = CreateObject("MSXML2.XMLHTTP") 
oReq.open "POST","http://ServerName/VDir/TstResult.asp",false 
oReq.setRequestHeader "Content-Length",Len(strA) 
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" 
oReq.send strA 
</SCRIPT> 

（在這里俺把前面的JavaScript的代碼改成了VBScript，不是吃飽了撐的沒事干，原因見后）
Part II.正確顯示得到的中文內(nèi)容
OK，如果你在Server端把Form的內(nèi)容寫到數(shù)據(jù)庫/文件的話，你在那里看到的中文毫無問題，但是，假如你想看看Server的Response——問題來了：如果Response的結(jié)果不是XML，XMLHTTP.responseXML里當(dāng)然是不會有東東的，那就用responseText好了，在代碼的最后加一句：
alert(oReq.responseText)
看看俺們辛勤勞動的結(jié)果 :P
但是但是.....怎么所有的中文全變成了方格? （我打不出來，有興趣自己去試，也不用Post，Get一個含有中文的網(wǎng)頁就可以發(fā)現(xiàn)了。）
原因很簡單：XMLHTTP得到Response時假定Response是UTF8編碼的，如果Response是XML，那還可以通過encoding來指定編碼，但HTML就不行了。（見鬼的GB2312，再次打倒！）所以它把含GB2312編碼的HTML當(dāng)成UTF8格式，不出錯才有鬼！
不過好在還有補救的辦法：XMLHTTP的responseBody 屬性里包含的可是未解碼的Resonse——"a raw undecoded bytes as received directly from the server" ：），唯一的問題是，responseBody返回的是一個unsigned bytes數(shù)組，我們怎么去訪問它，怎么把它轉(zhuǎn)換成BSTR？
這就是為什么我在上面把代碼改成VBScript的原因——VBScript Can do it,but JavaScript Cannot!
代碼見下：

復(fù)制代碼代碼如下:

 
<SCRIPT language="VBScript"> 
Function URLEncoding(vstrIn) 
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 Function 
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 
strA = URLEncoding("submit1=Submit&text1=中文") 
oReq = CreateObject("MSXML2.XMLHTTP") 
oReq.open "POST","http://ServerName/VDir/TstResult.asp",false 
oReq.setRequestHeader "Content-Length",Len(strA) 
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" 
oReq.send strA 
alert bytes2BSTR(oReq.responseBody) 
</SCRIPT> 

----------------------------------------以上為轉(zhuǎn)載-----------------------------
http://www.dhtmlx.com

Start Building Professional Ajax
Web Applications Today
最近用了 DHTMLX的tree,中文的xml居然用不了，報錯，整個系統(tǒng)是GB2312的，而DHTMLX只支持UTF8，英文是正常的，中文就出錯。

用法也很簡單，是DHTMLX 演示里用的代碼。

復(fù)制代碼代碼如下:

 
var obj=document.getElementById(oid); 
obj.style.display="block"; 
obj.focus(); 
if(obj.innerHTML!="")return; 
tree=new dhtmlXTreeObject(oid,"100%","100%",0); 
tree.setImagePath("js/imgs/csh_vista/"); 
tree.setOnClickHandler(click1); 
tree.setXMLAutoLoading("tree.asp"); 
//load first level of tree 
tree.loadXML("tree.asp?id=0"); 

tree.asp編碼為gb2312,和整個系統(tǒng)一致，用response.write返回一個xml
整個系統(tǒng)編碼改不了，只有在DHTMLX上想辦法了。
查了些資料,最終解決了。

再深入一層發(fā)現(xiàn)是，Microsoft.XMLHTTP的原因，就查到了上面的文件。
如是就簡單了，修改如下：
1. 增加一個VBScript的中文轉(zhuǎn)換的函數(shù)

復(fù)制代碼代碼如下:

 
<script language="VBScript"> 
'處理中文 
function bin2str(bin) 
dim tmp,ustr,i 
tmp="" 
for i=1 to LenB(bin)-1 
ustr=AscB(MidB(bin,i,1)) 
if ustr>127 then 
i=i+1 
tmp=tmp&chr(ustr*256+AscB(MidB(bin,i,1))) 
else 
tmp=tmp&chr(ustr) 
end if 
next 
bin2str=tmp 
end function 
</script> 

2.dhtmlxcommon.js的 getXMLTopNode處
var xmlString = this.xmlDoc.responseText;
改為
var xmlString = bin2str(this.xmlDoc.responseBody);//可以在js里直接調(diào)用VBScript腳本

3.同時在輸出xml的asp 文件開頭加入
<%response.ContentType="application/xml"%>
<?xml version='1.0' encoding='GB2312'?>
當(dāng)然文件也是保存為gb2312格式的。

您可能感興趣的文章: