开发学院 WEB开发 ASP 中文汉字GB2312和UTF-8的编码转换程序阅读

中文汉字GB2312和UTF-8的编码转换程序

　2008-08-31 12:53:44　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閹碱偆鐥閺屾洘绻濊箛鏇犵獥闂佺厧澹婃禍婊堚€旈崘顏佸亾閿濆骸澧ù鐘欏嫮绠鹃柛顐ゅ枎閻忋儲銇勯弴妯哄姦妞ゃ垺鐟╅幃鈩冩償閵囧府鎷�

核心提示：在使用Google或者百度进行中文搜索的时候，我们会发现搜索过程中URL地址栏会变成一串格式字符串编码，中文汉字GB2312和UTF-8的编码转换程序，我们编写程序经常也需要进行中文汉字到这类URL编码的转换，这里介绍两段相关的转换函数，而对于使用GB2312的百度搜索引擎来说，使用百度搜索“汉字”会变成另外的 htt

在使用Google或者百度进行中文搜索的时候，我们会发现搜索过程中URL地址栏会变成一串格式字符串编码，我们编写程序经常也需要进行中文汉字到这类URL编码的转换，这里介绍两段相关的转换函数。

对于使用UTF-8的Google搜索引擎来说，使用Google搜索“汉字”会变成http://www.google.com/search?q=%E6%B1%89%E5%AD%97 ，而对于使用GB2312的百度搜索引擎来说，使用百度搜索“汉字”会变成另外的 http://www.baidu.com/s?wd=%BA%BA%D7%D6 。下面的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码的转换。

　 Private Sub command1_click()
　　　 Debug.Print (UTF8EncodeURI("汉字"))
　　　 Debug.Print (GBKEncodeURI("汉字"))
　 End Sub

　 Function UTF8EncodeURI(szInput)
　　　 Dim wch, uch, szRet
　　　 Dim x
　　　 Dim nAsc, nAsc2, nAsc3

　 If szInput = "" Then
　　　　　 UTF8EncodeURI = szInput
　　　　　 Exit Function
　　　 End If

　 For x = 1 To Len(szInput)
　　　　　 wch = Mid(szInput, x, 1)
　　　　　 nAsc = AscW(wch)

　　　 If nAsc < 0 Then nAsc = nAsc + 65536

　　　 If (nAsc And &HFF80) = 0 Then
　　　　　　　 szRet = szRet & wch
　　　　　 Else
　　　　　　　 If (nAsc And &HF000) = 0 Then
　　　　　　　　　 uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
　　　　　　　　　 szRet = szRet & uch
　　　　　　　 Else
　　　　　　　　　 uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
　　　　　　　　　 Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
　　　　　　　　　 Hex(nAsc And &H3F Or &H80)
　　　　　　　　　 szRet = szRet & uch
　　　　　　　 End If
　　　　　 End If
　　　 Next

9 7 3 12 4 8 :