UTF-8 Unicode Ansi 漢字GB2321幾種編碼轉換程序
2024-05-04 11:02:10
供稿：網友
今天搞sxna,遇到了編碼轉換的難題，搞了一個多小時，歷盡千辛萬苦，總算總結了如下的漢字轉換為各種UTF-8 Unicode Ansi編碼的程序．不敢獨享，特此奉獻給各位編程愛好者！
--------------------------------------------------------------------------------
符合GOOGLE的UTF編碼
漢字 經過encodeURIComponent變成 %E6%B1%89%E5%AD%97
%E6%B1%89%E5%AD%97經過decodeURIComponent變成漢字
用google搜索"漢字":
http://www.google.com/search?hl=zh-CN&q=%E6%B1%89%E5%AD%97
符合BAIDU的UTF-8編碼
漢字 經過 AnsiCode 變為 %BA%BA%D7%D6
BA%BA%D7%D6 經過 DeCodeAnsi 變為 漢字
用baidu搜索"漢字":
http://www.baidu.com/baidu?word=%BA%BA%D7%D6
--------------------------------------------------------------------------------
漢字經過chinese2unicode變為汉字
汉字經過UTF2GB變為漢字
--------------------------------------------------------------------------------
test.asp 原程序如下
（下載源程序 http://www.dc9.cn/upload/test.rar）
復制代碼 代碼如下:
UTF-8 Unicode Ansi 漢字GB2321幾種編碼轉換程序
今天搞sxna,遇到了編碼轉換的難題，找了一個多小時，歷盡千辛萬苦，總算總結了如下的漢字轉換為各種UTF-8 Unicode Ansi編碼的程序．不敢獨享，特此奉獻給各位編程愛好者！
<script language="JAVASCRIPT" runat="server">
var ss;
var dd;
ss=decodeURIComponent("%E6%B1%89%E5%AD%97");
dd=encodeURIComponent("漢字");
</script>
符合GOOGLE的UTF編碼
<p>
漢字 經過encodeURIComponent變成
<%=dd%>
</p>
<p>
%E6%B1%89%E5%AD%97經過decodeURIComponent變成
<%=ss%>
</p>
<script language="vbscript" runat="server">
Function AnsiCode(vstrIn)
Dim i, strReturn, innerCode, ThisChr
Dim Hight8, Low8
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
