UTF-8 Unicode Ansi 漢字GB2321幾種編碼轉換程序

今天搞sxna,遇到了編碼轉換的難題，搞了一個多小時，歷盡千辛萬苦，總算總結瞭如下的漢字轉換為各種UTF-8UnicodeAnsi編碼的程序．不敢獨享，特此奉獻給各位編程愛好者！

--------------------------------------------------------------------------------

符合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-8UnicodeAnsi漢字GB2321幾種編碼轉換程序

今天搞sxna,遇到了編碼轉換的難題，找了一個多小時，歷盡千辛萬苦，總算總結瞭如下的漢字轉換為各種UTF-8UnicodeAnsi編碼的程序．不敢獨享，特此奉獻給各位編程愛好者！

<scriptlanguage="JAVASCRIPT"runat="server">

varss;

vardd;

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>

<scriptlanguage="vbscript"runat="server">

FunctionAnsiCode(vstrIn)

Dimi,strReturn,innerCode,ThisChr

DimHight8,Low8

strReturn=""

Fori=1ToLen(vstrIn)

ThisChr=Mid(vStrIn,i,1)

IfAbs(Asc(ThisChr))<&HFFThen

strReturn=strReturn&ThisChr

Else

innerCode=Asc(ThisChr)

IfinnerCode<0Then

innerCode=innerCode+&H10000