六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

UTF-8轉(zhuǎn)GB2312函數(shù)

[摘要]<% '用途:將UTF-8編碼漢字轉(zhuǎn)換為GB2312碼,兼容英文和數(shù)字 '版權(quán):雖說是原創(chuàng),其實(shí)也參考了別人的部分算法 '用法:Response.write UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%9...

<%
'用途:將UTF-8編碼漢字轉(zhuǎn)換為GB2312碼,兼容英文和數(shù)字
'版權(quán):雖說是原創(chuàng),其實(shí)也參考了別人的部分算法
'用法:Response.write UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F%E5%BA%A7")


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))
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(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
%>




主站蜘蛛池模板: 伊人手机在线观看 | 青青草原1769久久免费播放 | 欧美丝袜一区二区 | 亚洲视频一区二区在线观看 | 一区二区三区在线免费视频 | 亚洲另类电击调教在线观看 | 欧洲亚洲欧美国产日本高清 | 性刺激免费视频观看在线观看 | 亚欧精品在线观看 | 亚洲午夜一区 | 亚洲啪啪免费视频 | 午夜在线播放免费人成无 | 天天操 夜夜操 | 午夜在线播放 | 日本国产中文字幕 | 四虎2020| 日韩高清免费在线观看 | 天啪天天天天拍天天碰 | 五月天六月婷婷 | 婷婷亚洲综合一区二区 | 亚洲午夜一区 | 三级中文有码中文字幕 | 日韩色视频在线观看 | 色www精品视频在线观看 | 在线看污视频 | 三级精品视频在线播放 | 手机在线观看伦理片 | 中文在线观看免费网站 | 日本在线日本中文字幕日本在线视频播放 | 欧美视频在线播放观看免费福利资源 | 天天插天天狠天天透 | 日韩尤物| 日韩激情无码免费毛片 | 视频免费1区二区三区 | 日本无人区码卡1 | 欧美亚洲日本一区 | 日韩成人免费在线 | 亚洲成av人影片在线观看 | 日韩另类| 日本翁熄系列乱在线视频 | 在线观看亚洲欧美 |