汉字转换为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
结束函数