ASP写的汉字转换UTF-8及UTF-8转GB2312
2010-09-05 09:14
429 查看
汉字转换为UTF-8
UTF-8 To GB2312
转自http://www.cnblogs.com/sxbamboo/archive/2006/03/11/347907.html
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_unicode&chr(38) Str_unicode=Str_unicode&chr(35) Str_unicode=Str_unicode&chr(120) Str_unicode=Str_unicode& Hex(ascw(Str_one)) Str_unicode=Str_unicode&chr(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()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()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()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()function c16to2(x) i=0 for i=1 to len(trim(x)) tempstr= c10to2(cint(int("&h" & mid(x,i,1)))) do while len(tempstr)<4 tempstr="0" & tempstr loop c16to2=c16to2 & tempstr next end function Function c10to2()function c10to2(x) mysign=sgn(x) x=abs(x) DigS=1 do if x<2^DigS then exit do else DigS=DigS+1 end if loop tempnum=x i=0 for i=DigS to 1 step-1 if tempnum>=2^(i-1) then tempnum=tempnum-2^(i-1) c10to2=c10to2 & "1" else c10to2=c10to2 & "0" end if next if mysign=-1 then c10to2="-" & c10to2 end function
转自http://www.cnblogs.com/sxbamboo/archive/2006/03/11/347907.html
相关文章推荐
- ASP汉字转换UTF-8及UTF-8转GB2312 不知道繁体可不可以?
- ASP汉字转换UTF-8以及UTF-8转换GB2312
- ASP写的汉字转换UTF-8及UTF-8转GB2312
- ASP写的汉字转换UTF-8及UTF-8转GB2312
- ASP写的汉字转换UTF-8及UTF-8转GB2312
- ASP写的汉字转换UTF-8及UTF-8转GB2312
- ASP汉字转换UTF-8及UTF-8转换GB2312
- ASP写的汉字转换UTF-8及UTF-8转GB2312
- Asp.net把UTF-8编码转换为GB2312编码(转)
- Asp.net把UTF-8编码转换为GB2312编码(转)
- Asp.net把UTF-8编码转换为GB2312编码(转)
- asp不同编码下 UTF-8 GB2312转换收集
- ASP字符转换:UTF-8与GB2312互转
- ASP中汉字与UTF-8的互相转换
- ASP中汉字与UTF-8的互相转换
- utf-8编码用于asp 出现乱码的问题--从数据库调用的是乱码--gb2312转换utf-8
- asp.ent中把utf-8转换成gb2312格式
- ASP中将汉字转换为UTF-8的一段代码
- UTF-8转换成GB2312的全处理
- [iOS]把字符串汉字转换成UTF-8编码