高手请进：UTF-8转汉字问题
本人做了一个网站流量分析系统，网页编码是：GB2312,现在想把UTF-8的编码转换成汉字，于是baidu了下面代码：

<%  

function   UTF2GB(UTFStr)
        for   Dig=1   to   len(UTFStr)
                if   mid(UTFStr,Dig,1)= "% "   then
                        if   len(UTFStr)   > =   Dig+8   then
                                GBStr=GBStr   &   ConvChinese(mid(UTFStr,Dig,9))
                                Dig=Dig+8
                        else
                                GBStr=GBStr   &   mid(UTFStr,Dig,1)
                        end   if
                else
                        GBStr=GBStr   &   mid(UTFStr,Dig,1)
                end   if
        next
        UTF2GB=GBStr
end   function  


function   ConvChinese(x)  
        A=split(mid(x,2), "% ")
        i=0
        j=0
       
        for   i=0   to   ubound(A)  
                A(i)=c16to2(A(i))
        next
               
        for   i=0   to   ubound(A)-1
                DigS=instr(A(i), "0 ")
                Unicode= " "
                for   j=1   to   DigS-1
                        if   j=1   then  
                                A(i)=right(A(i),len(A(i))-DigS)
                                Unicode=Unicode   &   A(i)
                        else
                                i=i+1
                                A(i)=right(A(i),len(A(i))-2)
                                Unicode=Unicode   &   A(i)  
                        end   if  
                next