| ASP字符转换：UTF-8与GB2312互转 |
UTF-8转GB2312函数
02JXMv http://blog.numino.net/
<%
paBN12 http://blog.numino.net/
'用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字
S1w6f2 http://blog.numino.net/
'版權:雖說是原創，其實也參考了別人的部分算法
qV0BFJ http://blog.numino.net/
'用法:Response.write UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F%E5%BA%A7")
7i22QX http://blog.numino.net/
function UTF2GB(UTFStr)
z4g1HJ http://blog.numino.net/
for Dig=1 to len(UTFStr)
kZn5H2 http://blog.numino.net/
if mid(UTFStr,Dig,1)="%" then
hAgCu8 http://blog.numino.net/
if len(UTFStr) >= Dig+8 then
TiHI61 http://blog.numino.net/
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
KSEbP2 http://blog.numino.net/
Dig=Dig+8
3EM6kp http://blog.numino.net/
else
51hx37 http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
ICnnm1 http://blog.numino.net/
end if
LFB9TO http://blog.numino.net/
else
Ad76mP http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
7ktSmV http://blog.numino.net/
end if
zlJXIQ http://blog.numino.net/
next
Q8KnT0 http://blog.numino.net/
UTF2GB=GBStr
1DTyX4 http://blog.numino.net/
end function
crVDsF http://blog.numino.net/
function ConvChinese(x)
vNPS2X http://blog.numino.net/
A=split(mid(x,2),"%")
Mye5o1 http://blog.numino.net/
i=0
c335fC http://blog.numino.net/
j=0
wgv6lH http://blog.numino.net/
for i=0 to ubound(A)
QhP622 http://blog.numino.net/
A(i)=c16to2(A(i))
01spjt http://blog.numino.net/
next
THC6gy http://blog.numino.net/
for i=0 to ubound(A)-1
Is05Re http://blog.numino.net/
DigS=instr(A(i),"0")
IZn76j http://blog.numino.net/
Unicode=""
77M3FO http://blog.numino.net/
for j=1 to DigS-1
2R36qJ http://blog.numino.net/
if j=1 then
1F1joV http://blog.numino.net/
A(i)=right(A(i),len(A(i))-DigS)
Ta52AR http://blog.numino.net/
Unicode=Unicode & A(i)
k3892K http://blog.numino.net/
else
fbRFmF http://blog.numino.net/
i=i+1
1WGlQt http://blog.numino.net/
A(i)=right(A(i),len(A(i))-2)
yYvXUZ http://blog.numino.net/
Unicode=Unicode & A(i)
457WIf http://blog.numino.net/
end if
LSfwR1 http://blog.numino.net/
next
1lPlyg http://blog.numino.net/
if len(c2to16(Unicode))=4 then
rAEI6h http://blog.numino.net/
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
QN9UEB http://blog.numino.net/
else
4nsCvF http://blog.numino.net/
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
1a5QO4 http://blog.numino.net/
end if
FjZcYM http://blog.numino.net/
next
Bu1uJH http://blog.numino.net/
end function
y91wYN http://blog.numino.net/
function c2to16(x)
I9yOU0 http://blog.numino.net/
i=1
cp3gXM http://blog.numino.net/
for i=1 to len(x) step 4
7qew2s http://blog.numino.net/
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
11TWTq http://blog.numino.net/
next
sEt1Qe http://blog.numino.net/
end function
MR86Yb http://blog.numino.net/
function c2to10(x)
I2FXze http://blog.numino.net/
c2to10=0
EQij3f http://blog.numino.net/
if x="0" then exit function
so79nq http://blog.numino.net/
i=0
0Lp7le http://blog.numino.net/
for i= 0 to len(x) -1
Nh5s5X http://blog.numino.net/
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
9YhBQ5 http://blog.numino.net/
next
pw25Ir http://blog.numino.net/
end function
C9bR79 http://blog.numino.net/
function c16to2(x)
8f8pz6 http://blog.numino.net/
i=0
WWNXd9 http://blog.numino.net/
for i=1 to len(trim(x))
QxFTrc http://blog.numino.net/
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
4eO2nf http://blog.numino.net/
do while len(tempstr)<4
M7WJ4N http://blog.numino.net/
tempstr="0" & tempstr
0q5Sw3 http://blog.numino.net/
loop
kj1mQz http://blog.numino.net/
c16to2=c16to2 & tempstr
493Y79 http://blog.numino.net/
next
5khL2m http://blog.numino.net/
end function
2Y8RwX http://blog.numino.net/
function c10to2(x)
31yTwZ http://blog.numino.net/
mysign=sgn(x)
52msAq http://blog.numino.net/
x=abs(x)
kfmiz6 http://blog.numino.net/
DigS=1
I3yVzp http://blog.numino.net/
do
0HDMI8 http://blog.numino.net/
if x<2^DigS then
IWS66k http://blog.numino.net/
exit do
6427rn http://blog.numino.net/
else
z3YFV8 http://blog.numino.net/
DigS=DigS+1
VVC86R http://blog.numino.net/
end if
n3LY9P http://blog.numino.net/
loop
28C5Y5 http://blog.numino.net/
tempnum=x
D8e45X http://blog.numino.net/
i=0
Sd71Ap http://blog.numino.net/
for i=DigS to 1 step-1
yWfAzH http://blog.numino.net/
if tempnum>=2^(i-1) then
y8Qo09 http://blog.numino.net/
tempnum=tempnum-2^(i-1)
hhN3EI http://blog.numino.net/
c10to2=c10to2 & "1"
s5GNl9 http://blog.numino.net/
else
DMvHhr http://blog.numino.net/
c10to2=c10to2 & "0"
NapDR2 http://blog.numino.net/
end if
7a5o7l http://blog.numino.net/
next
49JDJd http://blog.numino.net/
if mysign=-1 then c10to2="-" & c10to2
IEO9Nr http://blog.numino.net/
end function
oJR751 http://blog.numino.net/
%>
0lkVo8 http://blog.numino.net/
-----------------------------------------------------------------------------------------------------------------------------
7bX8K8 http://blog.numino.net/
ASP编码转换函数GB2312转换UTF-8
nzZWyX http://blog.numino.net/
<%
E0aBH0 http://blog.numino.net/
Function chinese2unicode(Str)
BhD9Xl http://blog.numino.net/
dim i
1owpZA http://blog.numino.net/
dim Str_one
g1rqg0 http://blog.numino.net/
dim Str_unicode
iOw1VO http://blog.numino.net/
For i=1 to len(Str)
E6iGm5 http://blog.numino.net/
Str_one=Mid(Str,i,1)
MjLF94 http://blog.numino.net/
Str_unicode=Str_unicode&chr(38)
L6fs6N http://blog.numino.net/
Str_unicode=Str_unicode&chr(35)
jEUegt http://blog.numino.net/
Str_unicode=Str_unicode&chr(120)
Wh2s10 http://blog.numino.net/
Str_unicode=Str_unicode& Hex(ascw(Str_one))
2z6u9q http://blog.numino.net/
Str_unicode=Str_unicode&chr(59)
Mm645X http://blog.numino.net/
Next
24p9Lt http://blog.numino.net/
chinese2unicode = Str_unicode
3v7nwh http://blog.numino.net/
End Function
AJyg5d http://blog.numino.net/
Response.Write ("<style type='text/css'>body,td,textarea,fieldset,input,button{font-size:12px;background-color: #D4D0C8;color: #5B5B5B;}a{color:#5B5B5B;}textarea{SCROLLBAR-HIGHLIGHT-COLOR: #D4D0C8;color: #808080;background-color: #D4D0C8;font-size: 12px;font-family: Verdana, Arial, Helvetica, sans-serif;SCROLLBAR-SHADOW-COLOR: #D4D0C8;SCROLLBAR-3DLIGHT-COLOR: #D4D0C8;SCROLLBAR-TRACK-COLOR: #D4D0C8;SCROLLBAR-ARROW-COLOR: #D4D0C8;SCROLLBAR-BASE-COLOR: #D4D0C8;SCROLLBAR-DARKSHADOW-COLOR: #D4D0C8;}.noinp {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 12px;color: #808080;border: 0px solid #ffffff;background-color: #D4D0C8;text-decoration: none;background-repeat: repeat;background-position: top;}.line {border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-top-style: none;border-right-style: none;border-bottom-style: solid;border-left-style: none;border-bottom-color: #AAAAAA;}.xline {border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-top-style: none;border-right-style: none;border-bottom-style: dotted;border-left-style: none;border-bottom-color: #BBBBBB;}</style>")& vbCrlf& vbCrlf& vbCrlf
mSICho http://blog.numino.net/
Response.Write ("<body onload=""document.form1.a.focus();"">")& vbCrlf
46fk3g http://blog.numino.net/
action = Request.QueryString("action")
4Lbv0t http://blog.numino.net/
Select Case action
JPK7X6 http://blog.numino.net/
Case "do"
6Nst23 http://blog.numino.net/
Call doing()
e8kfU8 http://blog.numino.net/
Case else
gxJyFv http://blog.numino.net/
Call mains()
W3ETTB http://blog.numino.net/
End Select
I1nqyx http://blog.numino.net/
'-----------------------------
yGeTHF http://blog.numino.net/
Sub mains()
6H76A1 http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
R1N57m http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
35G01L http://blog.numino.net/
Response.Write ("<textarea name='a' style='width:99%' rows='8' onkeyup=""document.form1.submit();"" onafterpaste=""document.form1.submit();""></textarea></div><br>")& vbCrlf
7jmM9o http://blog.numino.net/
Response.Write ("<div align=center><textarea id='b' style='width:99%' rows='8'></textarea><br></div>")& vbCrlf
47iQ4q http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
cT1txN http://blog.numino.net/
End Sub
qCojJ0 http://blog.numino.net/
'-----------------------------
t5rMRe http://blog.numino.net/
Sub doing()
C7T6Ms http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
wfS17F http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
58D54a http://blog.numino.net/
Response.Write ("<textarea name='a' style='width:99%' rows='8' onkeyup=""document.form1.submit();"" onafterpaste=""document.form1.submit();"">"&Request.Form("a")&"</textarea></div><br>")& vbCrlf
lQYb8j http://blog.numino.net/
Response.Write ("<div align=center><textarea id='b' style='width:99%' rows='8' onmouseover=""if(this.value.length!=0){docopy()}"" onFocus=""if(this.value.length!=0){docopy()}""></textarea><br></div>")& vbCrlf
zAK8R2 http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
adFQBE http://blog.numino.net/
Response.Write ("<script>document.getElementById('b').innerHTML='"&server.htmlencode(chinese2unicode(Request.Form("a")))&"';")& vbCrlf
7296D1 http://blog.numino.net/
Response.Write ("function docopy(){")& vbCrlf
IUsMkr http://blog.numino.net/
Response.Write ("document.getElementById('b').select();")& vbCrlf
Tx6UlP http://blog.numino.net/
Response.Write ("js = document.getElementById('b').createTextRange();")& vbCrlf
3s5aFF http://blog.numino.net/
Response.Write ("js.execCommand('Copy');")& vbCrlf
dc7WC4 http://blog.numino.net/
Response.Write ("document.getElementById('a').value='';")& vbCrlf
7AA67j http://blog.numino.net/
Response.Write ("document.form1.submit();}")& vbCrlf
J476u6 http://blog.numino.net/
Response.Write ("</script>")& vbCrlf
9e88Wn http://blog.numino.net/
End Sub
2825TA http://blog.numino.net/
%>
|
|