漢字轉換為UTF-8
函數 chinese2unicode(Str)
昏暗的我
昏暗的Str_one
暗淡的Str_unicode
對於 i=1 到 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)
下一個
Response.Write Str_unicode
結束函數
UTF-8轉GB2312
函數 UTF2GB(UTFStr)
對於 Dig=1 到 len(UTFStr)
如果 mid(UTFStr,Dig,1)="%" 那麼
如果 len(UTFStr) >= Dig+8 那麼
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
挖=挖+8
別的
GBStr=GBStr & mid(UTFStr,Dig,1)
結束如果
別的
GBStr=GBStr & mid(UTFStr,Dig,1)
結束如果
下一個
UTF2GB=GBStr
結束函數
函數 ConvChinese(x)
A=分割(中(x,2),"%")
我=0
j=0
對於 i=0 至 ubound(A)
A(i)=c16to2(A(i))
下一個
對於 i=0 到 ubound(A)-1
DigS=instr(A(i),"0")
統一碼=“”
對於 j=1 到 DigS-1
如果 j=1 那麼
A(i)=right(A(i),len(A(i))-DigS)
Unicode=Unicode & A(i)
別的
我=我+1
A(i)=右(A(i),len(A(i))-2)
Unicode=Unicode & A(i)
結束如果
下一個
如果 len(c2to16(Unicode))=4 那麼
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
別的
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
結束如果
下一個
結束函數
函數c2to16(x)
我=1
對於 i=1 到 len(x) 第 4 步
c2to16=c2to16 & 十六進位(c2to10(mid(x,i,4)))
下一個
結束函數
函數 c2to10(x)
c2至10=0
如果 x="0" 則退出函數
我=0
對於 i= 0 到 len(x) -1
如果 mid(x,len(x)-i,1)="1" 則 c2to10=c2to10+2^(i)
下一個
結束函數
函數c16to2(x)
我=0
對於 i=1 到 len(trim(x))
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
當 len(tempstr)<4 時執行
臨時字串=“0”和臨時字串
環形
c16to2=c16to2 & 臨時字串
下一個
結束函數
函數c10to2(x)
mysign=sgn(x)
x=絕對值(x)
地基S=1
做
如果 x<2^DigS 那麼
退出做
別的
迪格S=迪格S+1
結束如果
環形
臨時數=x
我=0
對於 i=DigS 到 1 步驟-1
如果 tempnum>=2^(i-1) 那麼
臨時數=臨時數-2^(i-1)
c10to2=c10to2 & "1"
別的
c10to2=c10to2 & "0"
結束如果
下一個
如果 mysign=-1 則 c10to2="-" & c10to2
結束函數