wap常用转换函数.docVIP

wap常用转换函数 2006-02-16 09:51:00| 分类： 技术交流 |字号 　　汉字转换为UTF-8的一段代码一个ASP写的中文转UTF-8，大家可以试试 汉字转换为UTF-8 function chinese2unicode(Str) dim i dim Str_one dim Str_unicode for i=1 to len(Str) Str_one=Mid(Str,i,1) Str_unicode=Str_unicodechr(38) Str_unicode=Str_unicodechr(35) Str_unicode=Str_unicodechr(120) Str_unicode=Str_unicode Hex(ascw(Str_one)) Str_unicode=Str_unicodechr(59) next Response.Write Str_unicode end function  UTF-8 To GB2312 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 if len(c2to16(Unicode))=4 then ConvChinese=ConvChinese chrw(int(H c2to16(Unicode))) else ConvChinese=ConvChinese chr(int(H c2to16(Unicode))) end if next end function function c2to16(x) i=1 for i=1 to len(x) step 4 c2to16=c2to16 hex(c2to10(mid(x,i,4))) next end function function c2to10(x) c2to10=0 if x=0 then exit function i=0 for i= 0 to len(x) -1 if mid(x,len(x)-i,1)=1 then c2to10=c2to10+2^(i) next end function function c16to2(x) i=0 for i=1 to len(trim(x))