ASP写的汉字转换UTF-8及UTF-8转GB2312

 

汉字转换为UTF-8

 

Function chinese2unicode()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()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