网页编码与数据传递中的中文字符编码

      最近工作中遇到中文编码，中文参数传递，AJAX返回值包含中文乱码的问题，为此奋斗了一宿，有点心得，有点体会，总结如下，希望对迷惑于此中者有解惑之功效！

      在网上一阵狠搜，编码函数的确是有，包括Javascript的和ASP的。本文先总结几个有用的ASP中的编码与解码函数，代码如下：

      第一组函数：VB_URLEncode()和VB_URLDecode()

 1'--------------------------------------------------------------------------
 2'==============================================================
 3'功能：ASP Server对象内置编码函数
 4'描述：没有对应的解码函数
 5'==============================================================
 6Function VB_URLEncode(enStr)
 7    VB_URLEncode = Server.URLEncode(enStr)
 8End Function
 9
10'==============================================================
11'功能：Server.URLEncode()的解码函数
12'描述：目前该函数还未完善
13'       当本页面为UTF-8编码时，源字符串中包含如下格式子字符串时：
14'                    "编码aa测aa试"
15'      函数无法对VB_URLEncode()之后的编码进行解码
16'      当本页面为GB2312编码是，该函数工作正常。
17'==============================================================
18Function VB_URLDecode(enStr)
19    dim deStr,strSpecial
20    dim c,i,v
21    deStr=""
22    strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
23    For i=1 To len(enStr)
24        c=Mid(enStr,i,1)
25        If c="%" Then
26            v=eval("&h"+Mid(enStr,i+1,2))
27            If inStr(strSpecial,chr(v))>0 Then
28                deStr=deStr&chr(v)
29                i=i+2
30            Else
31                v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
32                deStr=deStr & chr(v)
33                i=i+5
34            End If
35        Else
36            If c="+" Then
37                deStr=deStr&" "
38            Else
39                deStr=deStr&c
40            End If
41        End If
42    Next
43    VB_URLDecode=deStr
44End Function 

       第二组函数：VB_GBtoUTF8()和VB_UTF8toGB()
      VB_GBtoUTF8()代码如下：

 1'===========================================
 2'功能：对中文字符进行编码，由GB2312转换为UTF-8
 3'描述：与UTF8toGB()互逆
 4'     编码后的格式可用于页面之间的数据传递，但无法
 5'     正确显示在HTML页面，需要UTF8toGB()解码。
 6'===========================================
 7Function VB_GBtoUTF8(szInput)
 8    Dim wch, uch, szRet
 9    Dim x
10    Dim nAsc, nAsc2, nAsc3
11    '如果输入参数为空，则退出函数
12    If szInput = "" Then
13        VB_GBtoUTF8 = szInput
14        Exit Function
15    End If
16    '开始转换
17    For x = 1 To Len(szInput)
18        '利用mid函数分拆GB编码文字
19        wch = Mid(szInput, x, 1)
20        '利用ascW函数返回每一个GB编码文字的Unicode字符代码
21        '注：asc函数返回的是ANSI 字符代码，注意区别
22        nAsc = AscW(wch)
23        If nAsc < 0 Then nAsc = nAsc + 65536
24        
25        If (nAsc And &HFF80) = 0 Then
26            szRet = szRet & wch
27        Else
28            If (nAsc And &HF000) = 0 Then
29                uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
30                szRet = szRet & uch
31            Else
32                'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版
33                uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
34                Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
35                Hex(nAsc And &H3F Or &H80)
36                szRet = szRet & uch
37            End If
38        End If
39    Next
40    VB_GBtoUTF8 = szRet
41End Function

      VB_UTF8toGB()代码如下：

  1'===========================================
  2'功能：对中文字符进行编码，由UTF-8转换为GB2312
  3'描述：VB_GBtoUTF8()的解码函数
  4'===========================================
  5Function VB_UTF8toGB(UTFStr)
  6    For Dig=1 To len(UTFStr) 
  7        '如果UTF8编码文字以%开头则进行转换
  8        If mid(UTFStr,Dig,1)="%" Then 
  9            'UTF8编码文字大于8则转换为汉字
 10            If len(UTFStr) >= Dig+8 Then 
 11                GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) 
 12                Dig=Dig+8 
 13            Else 
 14                GBStr=GBStr & mid(UTFStr,Dig,1) 
 15            End If 
 16        Else 
 17            GBStr=GBStr & mid(UTFStr,Dig,1) 
 18        End If 
 19    Next 
 20    VB_UTF8toGB=GBStr 
 21End Function 
 22
 23'UTF8编码文字将转换为汉字
 24Function ConvChinese(x) 
 25    A=split(mid(x,2),"%") 
 26    i=0 
 27    j=0 
 28    For i=0 To ubound(A) 
 29        A(i)=c16to2(A(i)) 
 30    Next 
 31    For i=0 To ubound(A)-1 
 32        DigS=instr(A(i),"0") 
 33        Unicode="" 
 34        For j=1 To DigS-1 
 35            If j=1 Then 
 36                A(i)=right(A(i),len(A(i))-DigS) 
 37                Unicode=Unicode & A(i) 
 38            Else 
 39                i=i+1 
 40                A(i)=right(A(i),len(A(i))-2) 
 41                Unicode=Unicode & A(i) 
 42            End If 
 43        Next 
 44
 45        If len(c2to16(Unicode))=4 Then 
 46            ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode))) 
 47        Else 
 48            ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode))) 
 49        End If 
 50    Next 
 51End Function 
 52
 53'二进制代码转换为十六进制代码
 54Function c2to16(x)
 55    i=1 
 56    For i=1 To len(x) step 4 
 57        c2to16=c2to16 & hex(c2to10(mid(x,i,4))) 
 58    Next 
 59End Function 
 60
 61'二进制代码转换为十进制代码
 62Function c2to10(x)
 63    c2to10=0 
 64    If x="0" Then Exit Function 
 65    i=0 
 66    For i= 0 To len(x) -1 
 67        If mid(x,len(x)-i,1)="1" Then c2to10=c2to10+2^(i) 
 68    Next 
 69End Function 
 70
 71'十六进制代码转换为二进制代码
 72Function c16to2(x) 
 73    i=0 
 74    For i=1 To len(trim(x)) 
 75        tempstr= c10to2(cint(int("&h" & mid(x,i,1)))) 
 76        Do While len(tempstr)<4 
 77            tempstr="0" & tempstr 
 78        Loop 
 79        c16to2=c16to2 & tempstr 
 80    Next 
 81End Function 
 82
 83'十进制代码转换为二进制代码
 84Function c10to2(x) 
 85    mysign=sgn(x) 
 86    x=abs(x) 
 87    DigS=1 
 88    Do 
 89        If x<2^DigS Then 
 90            Exit Do 
 91        Else 
 92            DigS=DigS+1 
 93        End If 
 94    Loop 
 95    tempnum=x 
 96
 97    i=0 
 98    For i=DigS To 1 step-1 
 99        If tempnum>=2^(i-1) Then 
100            tempnum=tempnum-2^(i-1) 
101            c10to2=c10to2 & "1" 
102        Else 
103            c10to2=c10to2 & "0" 
104        End If 
105    Next 
106    If mysign=-1 Then c10to2="-" & c10to2 
107End Function

      测试代码如下：

 1 <html>
 2 <head>
 3 <meta http-equiv="content-type" content="text/html; charset=gb2312" />
 4 <title>字符编码测试</title>
 5 </head>
 6 <style type="text/css">
 7     body{ margin:20px 10px; line-height: 140%; font-size:12px; color:blue;}
 8 </style>
 9 <body>
10 <% 
11     On Error Resume Next
12     str = "##testingTest$$##编码aa测aa试aa##!!67&#=;"
13     Response.Write("源字符串: " & str & "<BR>")
14     str1 = VB_URLEncode(str)
15     str2 = VB_URLDecode(str1)
16     Response.Write("VB_URLEncode: " & str1 & "<BR>")
17     Response.Write("VB_URLDecode: " & str2 & "<BR>")
18     If str2 = str Then Response.Write("结果==>解码正确, URLEncode对字符串中除26个英文字母(包括大小写)之外的所有字符都进行编码，中文字符为2字节，非中文字符1字节<BR>")
19     Response.Write("------------------------------------------------------- <BR>")
20     str3 = VB_GBtoUTF8(str)
21     str4 = VB_UTF8toGB(str3)
22     Response.Write("VB_GBtoUTF8: " & str3 & "<BR>")
23     Response.Write("VB_UTF8toGB: " & str4 & "<BR>")
24     If str4 = str Then Response.Write("结果==>解码正确，GBtoUTF8只对中文字符编码，按每个中文字符3字节编码<BR>")
25     Response.End()
26 %>
27 </body>
28 </html>

       测试结果如下：

源字符串: ##testingTest$$##编码aa测aa试aa##!!67&#=;
VB_URLEncode: %23%23testingTest%24%24%23%23%B1%E0%C2%EBaa%B2%E2aa%CA%D4aa%23%23%21%2167%26%23%3D%3B
VB_URLDecode: ##testingTest$$##编码aa测aa试aa##!!67&#=;
结果==>解码正确, URLEncode对字符串中除26个英文字母(包括大小写)之外的所有字符都进行编码，中文字符为2字节，非中文字符1字节
------------------------------------------------------- 
VB_GBtoUTF8: ##testingTest$$##%E7%BC%96%E7%A0%81aa%E6%B5%8Baa%E8%AF%95aa##!!67&#=;
VB_UTF8toGB: ##testingTest$$##编码aa测aa试aa##!!67&#=;
结果==>解码正确，GBtoUTF8只对中文字符编码，按每个中文字符3字节编码

      如上测试代码在gb2312编码下运行OK，如若将网页编码换为utf-8的话，VB_URLDecode()解码在某些情况下会发生错误，比如上面代码就是这样。具体情形我在该函数源码上有说明。

      有了这两组编码函数后，就可以很方便的避免路径参数传递，网页数据传递中的中文乱码问题。

      够详细了吧，这里只介绍了ASP下的2组编码与解码函数，还有一些其他的编码函数我就不深究了。另外还有ASP编码后的字符串如何用javascript来解码，这点在AJAX应用上有突出的体现。鉴于技术问题，接着研究去，这个就留在下篇解说！

      如有不正确的地方，欢迎拍砖！鞠躬下台···

      附上完整的函数及测试代码：charEncode.rar