UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序

今天搞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
        End If
        Hight8 = (innerCode And &HFF00)  &HFF
        Low8 = innerCode And &HFF
        strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
      End If 
    Next 
    AnsiCode = strReturn 
  End Function