| ASP字符转换：UTF-8与GB2312互转 |
UTF-8转GB2312函数
j35NLc http://blog.numino.net/
<%
vULEjH http://blog.numino.net/
'用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字
ZEfTdn http://blog.numino.net/
'版權:雖說是原創，其實也參考了別人的部分算法
Iguo7g 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")
AsQkGa http://blog.numino.net/
function UTF2GB(UTFStr)
xLNkDk http://blog.numino.net/
for Dig=1 to len(UTFStr)
PxkWaD http://blog.numino.net/
if mid(UTFStr,Dig,1)="%" then
QdZyb6 http://blog.numino.net/
if len(UTFStr) >= Dig+8 then
mf7gqg http://blog.numino.net/
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
9M0qo2 http://blog.numino.net/
Dig=Dig+8
SXH6wv http://blog.numino.net/
else
08l91Q http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
23kC0Y http://blog.numino.net/
end if
a7JE8T http://blog.numino.net/
else
Ogk81J http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
cy3aKy http://blog.numino.net/
end if
V6mVB3 http://blog.numino.net/
next
9CIrv5 http://blog.numino.net/
UTF2GB=GBStr
Ptz3A4 http://blog.numino.net/
end function
eHd336 http://blog.numino.net/
function ConvChinese(x)
MmVgWx http://blog.numino.net/
A=split(mid(x,2),"%")
Y77aP9 http://blog.numino.net/
i=0
0v4FMz http://blog.numino.net/
j=0
WP1vJ3 http://blog.numino.net/
for i=0 to ubound(A)
or3HXZ http://blog.numino.net/
A(i)=c16to2(A(i))
kg4Rc6 http://blog.numino.net/
next
d49qPK http://blog.numino.net/
for i=0 to ubound(A)-1
yo70Fg http://blog.numino.net/
DigS=instr(A(i),"0")
F59g9n http://blog.numino.net/
Unicode=""
g9tp9H http://blog.numino.net/
for j=1 to DigS-1
vlfoZk http://blog.numino.net/
if j=1 then
dUjpRF http://blog.numino.net/
A(i)=right(A(i),len(A(i))-DigS)
0c2tN8 http://blog.numino.net/
Unicode=Unicode & A(i)
wmkSPd http://blog.numino.net/
else
1geWmD http://blog.numino.net/
i=i+1
7xZjU9 http://blog.numino.net/
A(i)=right(A(i),len(A(i))-2)
62rZBO http://blog.numino.net/
Unicode=Unicode & A(i)
3mmsJs http://blog.numino.net/
end if
H9LnGP http://blog.numino.net/
next
uE6M3X http://blog.numino.net/
if len(c2to16(Unicode))=4 then
hoJ0PD http://blog.numino.net/
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
zpp05P http://blog.numino.net/
else
N8yv9P http://blog.numino.net/
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
O9odSN http://blog.numino.net/
end if
x0hByp http://blog.numino.net/
next
jg3qD8 http://blog.numino.net/
end function
4bj7J3 http://blog.numino.net/
function c2to16(x)
HI4eNp http://blog.numino.net/
i=1
fT1Qe0 http://blog.numino.net/
for i=1 to len(x) step 4
lIpI0G http://blog.numino.net/
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
et6ZAl http://blog.numino.net/
next
V2QTM3 http://blog.numino.net/
end function
p1EJbp http://blog.numino.net/
function c2to10(x)
gb2lqF http://blog.numino.net/
c2to10=0
X69dbD http://blog.numino.net/
if x="0" then exit function
D98lwe http://blog.numino.net/
i=0
Yq0Mc9 http://blog.numino.net/
for i= 0 to len(x) -1
74afHm http://blog.numino.net/
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
j3Io6Z http://blog.numino.net/
next
WymVLA http://blog.numino.net/
end function
M6tQ71 http://blog.numino.net/
function c16to2(x)
mr2OLx http://blog.numino.net/
i=0
v70HOp http://blog.numino.net/
for i=1 to len(trim(x))
njEyko http://blog.numino.net/
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
2iUKBP http://blog.numino.net/
do while len(tempstr)<4
aTwFrC http://blog.numino.net/
tempstr="0" & tempstr
jFaqKj http://blog.numino.net/
loop
lh1M44 http://blog.numino.net/
c16to2=c16to2 & tempstr
b6kbcm http://blog.numino.net/
next
2vxtGE http://blog.numino.net/
end function
joJhGy http://blog.numino.net/
function c10to2(x)
oTSk04 http://blog.numino.net/
mysign=sgn(x)
EFTYo4 http://blog.numino.net/
x=abs(x)
LXQXfd http://blog.numino.net/
DigS=1
kj36qD http://blog.numino.net/
do
2eHC3H http://blog.numino.net/
if x<2^DigS then
Q6By6p http://blog.numino.net/
exit do
IDKmL2 http://blog.numino.net/
else
47Bcey http://blog.numino.net/
DigS=DigS+1
N5hapP http://blog.numino.net/
end if
eCJin3 http://blog.numino.net/
loop
bcD7Qe http://blog.numino.net/
tempnum=x
D3uywP http://blog.numino.net/
i=0
DYKZRL http://blog.numino.net/
for i=DigS to 1 step-1
N8284z http://blog.numino.net/
if tempnum>=2^(i-1) then
xZ4109 http://blog.numino.net/
tempnum=tempnum-2^(i-1)
804LRr http://blog.numino.net/
c10to2=c10to2 & "1"
iH29bN http://blog.numino.net/
else
6a62hz http://blog.numino.net/
c10to2=c10to2 & "0"
wHLo60 http://blog.numino.net/
end if
e8gFjw http://blog.numino.net/
next
UGqkPx http://blog.numino.net/
if mysign=-1 then c10to2="-" & c10to2
Ld4fGS http://blog.numino.net/
end function
gSVvE4 http://blog.numino.net/
%>
2ep15O http://blog.numino.net/
-----------------------------------------------------------------------------------------------------------------------------
9a0224 http://blog.numino.net/
ASP编码转换函数GB2312转换UTF-8
1r40hk http://blog.numino.net/
<%
lXqZIM http://blog.numino.net/
Function chinese2unicode(Str)
6w3Gw8 http://blog.numino.net/
dim i
1E3L47 http://blog.numino.net/
dim Str_one
q1UWDa http://blog.numino.net/
dim Str_unicode
tRFb8o http://blog.numino.net/
For i=1 to len(Str)
2E14zE http://blog.numino.net/
Str_one=Mid(Str,i,1)
AZOLnd http://blog.numino.net/
Str_unicode=Str_unicode&chr(38)
V0b1aA http://blog.numino.net/
Str_unicode=Str_unicode&chr(35)
okCSHw http://blog.numino.net/
Str_unicode=Str_unicode&chr(120)
JJ4ia4 http://blog.numino.net/
Str_unicode=Str_unicode& Hex(ascw(Str_one))
M1iqt6 http://blog.numino.net/
Str_unicode=Str_unicode&chr(59)
c8eFu8 http://blog.numino.net/
Next
XB0G04 http://blog.numino.net/
chinese2unicode = Str_unicode
kJ0Vcc http://blog.numino.net/
End Function
i5EZ7R 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
4hqiO1 http://blog.numino.net/
Response.Write ("<body onload=""document.form1.a.focus();"">")& vbCrlf
o9BrLe http://blog.numino.net/
action = Request.QueryString("action")
62V1Wq http://blog.numino.net/
Select Case action
K0365o http://blog.numino.net/
Case "do"
e2wINA http://blog.numino.net/
Call doing()
QS3pmw http://blog.numino.net/
Case else
0S67hM http://blog.numino.net/
Call mains()
c3DJfj http://blog.numino.net/
End Select
j59yIg http://blog.numino.net/
'-----------------------------
gs4gb6 http://blog.numino.net/
Sub mains()
52Grvz http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
6U6Y0J http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
uX9uFw 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
i9F4U1 http://blog.numino.net/
Response.Write ("<div align=center><textarea id='b' style='width:99%' rows='8'></textarea><br></div>")& vbCrlf
sGJmhZ http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
DgRnoH http://blog.numino.net/
End Sub
5XJ0d4 http://blog.numino.net/
'-----------------------------
NQCL8b http://blog.numino.net/
Sub doing()
98y1qc http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
Yi4SrA http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
9VA2zC 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
5zn6Vh 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
5h1VMV http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
xMgNOh http://blog.numino.net/
Response.Write ("<script>document.getElementById('b').innerHTML='"&server.htmlencode(chinese2unicode(Request.Form("a")))&"';")& vbCrlf
0EwfQT http://blog.numino.net/
Response.Write ("function docopy(){")& vbCrlf
Hsk2o0 http://blog.numino.net/
Response.Write ("document.getElementById('b').select();")& vbCrlf
6uMLQA http://blog.numino.net/
Response.Write ("js = document.getElementById('b').createTextRange();")& vbCrlf
hzi6ZJ http://blog.numino.net/
Response.Write ("js.execCommand('Copy');")& vbCrlf
On4EUJ http://blog.numino.net/
Response.Write ("document.getElementById('a').value='';")& vbCrlf
O16Hrz http://blog.numino.net/
Response.Write ("document.form1.submit();}")& vbCrlf
o4ulJt http://blog.numino.net/
Response.Write ("</script>")& vbCrlf
gt2HpU http://blog.numino.net/
End Sub
146IMy http://blog.numino.net/
%>
|
|