| ASP字符转换：UTF-8与GB2312互转 |
UTF-8转GB2312函数
87RMDP http://blog.numino.net/
<%
d7rZHj http://blog.numino.net/
'用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字
6mWgv5 http://blog.numino.net/
'版權:雖說是原創，其實也參考了別人的部分算法
G1y38A 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")
ayX61u http://blog.numino.net/
function UTF2GB(UTFStr)
C4X3la http://blog.numino.net/
for Dig=1 to len(UTFStr)
cy4GsV http://blog.numino.net/
if mid(UTFStr,Dig,1)="%" then
15y07y http://blog.numino.net/
if len(UTFStr) >= Dig+8 then
La5TQK http://blog.numino.net/
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
MiPoBt http://blog.numino.net/
Dig=Dig+8
8mJEQq http://blog.numino.net/
else
84M5DM http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
F1d9d2 http://blog.numino.net/
end if
kUJL1L http://blog.numino.net/
else
HXtzrQ http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
Hg2sLp http://blog.numino.net/
end if
bK4Urw http://blog.numino.net/
next
zl3JNd http://blog.numino.net/
UTF2GB=GBStr
NnbMH6 http://blog.numino.net/
end function
HzODst http://blog.numino.net/
function ConvChinese(x)
L790Pi http://blog.numino.net/
A=split(mid(x,2),"%")
atOzkJ http://blog.numino.net/
i=0
GspR52 http://blog.numino.net/
j=0
b3Alco http://blog.numino.net/
for i=0 to ubound(A)
3H0QuH http://blog.numino.net/
A(i)=c16to2(A(i))
3F5Tuh http://blog.numino.net/
next
0fhndh http://blog.numino.net/
for i=0 to ubound(A)-1
G3c31J http://blog.numino.net/
DigS=instr(A(i),"0")
0ISvWS http://blog.numino.net/
Unicode=""
n9V5eL http://blog.numino.net/
for j=1 to DigS-1
6Fo4Tf http://blog.numino.net/
if j=1 then
ImA44y http://blog.numino.net/
A(i)=right(A(i),len(A(i))-DigS)
JgJQHR http://blog.numino.net/
Unicode=Unicode & A(i)
kNNC08 http://blog.numino.net/
else
G8kZeS http://blog.numino.net/
i=i+1
29UU2T http://blog.numino.net/
A(i)=right(A(i),len(A(i))-2)
7v9FtE http://blog.numino.net/
Unicode=Unicode & A(i)
DHrIGS http://blog.numino.net/
end if
77c6GM http://blog.numino.net/
next
n4lX8a http://blog.numino.net/
if len(c2to16(Unicode))=4 then
3RISfz http://blog.numino.net/
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
9b1hQB http://blog.numino.net/
else
lWZ9rp http://blog.numino.net/
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
THkniK http://blog.numino.net/
end if
v932Tr http://blog.numino.net/
next
nFV28B http://blog.numino.net/
end function
EC5Xy2 http://blog.numino.net/
function c2to16(x)
HI7VXW http://blog.numino.net/
i=1
KaKguD http://blog.numino.net/
for i=1 to len(x) step 4
X4U7RZ http://blog.numino.net/
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
JNf1vi http://blog.numino.net/
next
RIYx79 http://blog.numino.net/
end function
ytbv05 http://blog.numino.net/
function c2to10(x)
8FDMam http://blog.numino.net/
c2to10=0
XGERgv http://blog.numino.net/
if x="0" then exit function
8B7784 http://blog.numino.net/
i=0
11SaGR http://blog.numino.net/
for i= 0 to len(x) -1
GInkL1 http://blog.numino.net/
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
i8bfrF http://blog.numino.net/
next
2WYFAm http://blog.numino.net/
end function
w103D3 http://blog.numino.net/
function c16to2(x)
zDAlFA http://blog.numino.net/
i=0
3ZCE4o http://blog.numino.net/
for i=1 to len(trim(x))
d6Mti3 http://blog.numino.net/
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
Vl0Hb1 http://blog.numino.net/
do while len(tempstr)<4
5D0fzr http://blog.numino.net/
tempstr="0" & tempstr
90E51V http://blog.numino.net/
loop
TzDYm2 http://blog.numino.net/
c16to2=c16to2 & tempstr
wS5DJm http://blog.numino.net/
next
D551vI http://blog.numino.net/
end function
L6Yyf2 http://blog.numino.net/
function c10to2(x)
t6Y9xP http://blog.numino.net/
mysign=sgn(x)
Pb2nZz http://blog.numino.net/
x=abs(x)
ASoas4 http://blog.numino.net/
DigS=1
8QkLU7 http://blog.numino.net/
do
2T069C http://blog.numino.net/
if x<2^DigS then
6lopcF http://blog.numino.net/
exit do
97aJ3t http://blog.numino.net/
else
8c306g http://blog.numino.net/
DigS=DigS+1
2mrSGj http://blog.numino.net/
end if
awo736 http://blog.numino.net/
loop
04vZb9 http://blog.numino.net/
tempnum=x
p3TLHg http://blog.numino.net/
i=0
q81p1a http://blog.numino.net/
for i=DigS to 1 step-1
Xh71w9 http://blog.numino.net/
if tempnum>=2^(i-1) then
92QY14 http://blog.numino.net/
tempnum=tempnum-2^(i-1)
V6GtpM http://blog.numino.net/
c10to2=c10to2 & "1"
zyZZt7 http://blog.numino.net/
else
72aDzG http://blog.numino.net/
c10to2=c10to2 & "0"
9uT1r4 http://blog.numino.net/
end if
Vp5mI1 http://blog.numino.net/
next
9eyy2K http://blog.numino.net/
if mysign=-1 then c10to2="-" & c10to2
l8GeIn http://blog.numino.net/
end function
oi6NtI http://blog.numino.net/
%>
bIGfH5 http://blog.numino.net/
-----------------------------------------------------------------------------------------------------------------------------
NH30wh http://blog.numino.net/
ASP编码转换函数GB2312转换UTF-8
qiGy9Y http://blog.numino.net/
<%
E5sfz5 http://blog.numino.net/
Function chinese2unicode(Str)
VLqkT9 http://blog.numino.net/
dim i
d84ydg http://blog.numino.net/
dim Str_one
29Sh98 http://blog.numino.net/
dim Str_unicode
j8Lzi0 http://blog.numino.net/
For i=1 to len(Str)
37tW6q http://blog.numino.net/
Str_one=Mid(Str,i,1)
X3tXRm http://blog.numino.net/
Str_unicode=Str_unicode&chr(38)
0rUzG1 http://blog.numino.net/
Str_unicode=Str_unicode&chr(35)
MkBWyC http://blog.numino.net/
Str_unicode=Str_unicode&chr(120)
iJXN93 http://blog.numino.net/
Str_unicode=Str_unicode& Hex(ascw(Str_one))
9N92UP http://blog.numino.net/
Str_unicode=Str_unicode&chr(59)
339Dmh http://blog.numino.net/
Next
Jb8gL9 http://blog.numino.net/
chinese2unicode = Str_unicode
A81aAi http://blog.numino.net/
End Function
v10V4n 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
HM1g5g http://blog.numino.net/
Response.Write ("<body onload=""document.form1.a.focus();"">")& vbCrlf
UQNMxR http://blog.numino.net/
action = Request.QueryString("action")
I74oQz http://blog.numino.net/
Select Case action
EI43g1 http://blog.numino.net/
Case "do"
ljTG01 http://blog.numino.net/
Call doing()
rES881 http://blog.numino.net/
Case else
XnYVnA http://blog.numino.net/
Call mains()
v7r3qn http://blog.numino.net/
End Select
wNvrNG http://blog.numino.net/
'-----------------------------
K199do http://blog.numino.net/
Sub mains()
AxM3z5 http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
i4wdC8 http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
91zw0m 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
Y0ko5i http://blog.numino.net/
Response.Write ("<div align=center><textarea id='b' style='width:99%' rows='8'></textarea><br></div>")& vbCrlf
Sl4iyp http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
5cSEMg http://blog.numino.net/
End Sub
rFEtdP http://blog.numino.net/
'-----------------------------
p7TIs5 http://blog.numino.net/
Sub doing()
Y81uvE http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
z4LGDb http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
XmaWp3 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
T8OLuZ 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
3u4Esb http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
TL304J http://blog.numino.net/
Response.Write ("<script>document.getElementById('b').innerHTML='"&server.htmlencode(chinese2unicode(Request.Form("a")))&"';")& vbCrlf
U5JTTG http://blog.numino.net/
Response.Write ("function docopy(){")& vbCrlf
rsWsc2 http://blog.numino.net/
Response.Write ("document.getElementById('b').select();")& vbCrlf
W24956 http://blog.numino.net/
Response.Write ("js = document.getElementById('b').createTextRange();")& vbCrlf
fLnVfh http://blog.numino.net/
Response.Write ("js.execCommand('Copy');")& vbCrlf
KX4Ff3 http://blog.numino.net/
Response.Write ("document.getElementById('a').value='';")& vbCrlf
K4m9pR http://blog.numino.net/
Response.Write ("document.form1.submit();}")& vbCrlf
omydG1 http://blog.numino.net/
Response.Write ("</script>")& vbCrlf
1IfJaY http://blog.numino.net/
End Sub
BmkWrU http://blog.numino.net/
%>
|
|