| ASP字符转换：UTF-8与GB2312互转 |
UTF-8转GB2312函数
9BFG37 http://blog.numino.net/
<%
n9U1Xi http://blog.numino.net/
'用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字
87jajx http://blog.numino.net/
'版權:雖說是原創，其實也參考了別人的部分算法
I09UzQ 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")
v4w0xK http://blog.numino.net/
function UTF2GB(UTFStr)
5O03QS http://blog.numino.net/
for Dig=1 to len(UTFStr)
f276N8 http://blog.numino.net/
if mid(UTFStr,Dig,1)="%" then
OK81P0 http://blog.numino.net/
if len(UTFStr) >= Dig+8 then
nqkzrV http://blog.numino.net/
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
wsf3eT http://blog.numino.net/
Dig=Dig+8
kjwm7R http://blog.numino.net/
else
wC81xi http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
wz7u7V http://blog.numino.net/
end if
adfVcs http://blog.numino.net/
else
ZYbM3o http://blog.numino.net/
GBStr=GBStr & mid(UTFStr,Dig,1)
vnO6b6 http://blog.numino.net/
end if
3hJz5y http://blog.numino.net/
next
doD74H http://blog.numino.net/
UTF2GB=GBStr
sWxumN http://blog.numino.net/
end function
r7l9XI http://blog.numino.net/
function ConvChinese(x)
g00JxW http://blog.numino.net/
A=split(mid(x,2),"%")
NQbtV3 http://blog.numino.net/
i=0
7bIZzK http://blog.numino.net/
j=0
gL8sgG http://blog.numino.net/
for i=0 to ubound(A)
uNyxUH http://blog.numino.net/
A(i)=c16to2(A(i))
C2eJ4F http://blog.numino.net/
next
uUI9z4 http://blog.numino.net/
for i=0 to ubound(A)-1
s9miXl http://blog.numino.net/
DigS=instr(A(i),"0")
UbPItI http://blog.numino.net/
Unicode=""
8rrqOb http://blog.numino.net/
for j=1 to DigS-1
c1kOpR http://blog.numino.net/
if j=1 then
2o8S8A http://blog.numino.net/
A(i)=right(A(i),len(A(i))-DigS)
WkMlav http://blog.numino.net/
Unicode=Unicode & A(i)
1YvEG9 http://blog.numino.net/
else
PZZgxz http://blog.numino.net/
i=i+1
m8l8bo http://blog.numino.net/
A(i)=right(A(i),len(A(i))-2)
bTr8h9 http://blog.numino.net/
Unicode=Unicode & A(i)
la9IxI http://blog.numino.net/
end if
I82L3X http://blog.numino.net/
next
6b3Aq8 http://blog.numino.net/
if len(c2to16(Unicode))=4 then
8Iv75z http://blog.numino.net/
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
5ph9DR http://blog.numino.net/
else
5a89UK http://blog.numino.net/
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
8Cik3N http://blog.numino.net/
end if
E5NG6T http://blog.numino.net/
next
QBNqWq http://blog.numino.net/
end function
0qWYvD http://blog.numino.net/
function c2to16(x)
1g2X1J http://blog.numino.net/
i=1
7d2jVq http://blog.numino.net/
for i=1 to len(x) step 4
RyBhdq http://blog.numino.net/
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
5y9Iew http://blog.numino.net/
next
6Vc2Tx http://blog.numino.net/
end function
3P7h7H http://blog.numino.net/
function c2to10(x)
9NCR3P http://blog.numino.net/
c2to10=0
w22CzY http://blog.numino.net/
if x="0" then exit function
TUXznT http://blog.numino.net/
i=0
5HJvL5 http://blog.numino.net/
for i= 0 to len(x) -1
tvKfi0 http://blog.numino.net/
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
fNx9P2 http://blog.numino.net/
next
qiVqhx http://blog.numino.net/
end function
MhGSYz http://blog.numino.net/
function c16to2(x)
0bQ9Zw http://blog.numino.net/
i=0
K1ZVd1 http://blog.numino.net/
for i=1 to len(trim(x))
r6EOvZ http://blog.numino.net/
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
9ARkM7 http://blog.numino.net/
do while len(tempstr)<4
qZhuCe http://blog.numino.net/
tempstr="0" & tempstr
CZMQ33 http://blog.numino.net/
loop
7uTmuy http://blog.numino.net/
c16to2=c16to2 & tempstr
Fpi5cF http://blog.numino.net/
next
iW6ofG http://blog.numino.net/
end function
vDwK6J http://blog.numino.net/
function c10to2(x)
4p279x http://blog.numino.net/
mysign=sgn(x)
EqTG2q http://blog.numino.net/
x=abs(x)
45TGVQ http://blog.numino.net/
DigS=1
qZxtP9 http://blog.numino.net/
do
aUQzGc http://blog.numino.net/
if x<2^DigS then
Z1o3HS http://blog.numino.net/
exit do
98W6d6 http://blog.numino.net/
else
vr5ABG http://blog.numino.net/
DigS=DigS+1
g8eusJ http://blog.numino.net/
end if
BD43in http://blog.numino.net/
loop
6h8LMi http://blog.numino.net/
tempnum=x
7iURlC http://blog.numino.net/
i=0
4m1vL8 http://blog.numino.net/
for i=DigS to 1 step-1
8558gt http://blog.numino.net/
if tempnum>=2^(i-1) then
FYSF09 http://blog.numino.net/
tempnum=tempnum-2^(i-1)
EpwbN2 http://blog.numino.net/
c10to2=c10to2 & "1"
mFjXtz http://blog.numino.net/
else
JLv4PH http://blog.numino.net/
c10to2=c10to2 & "0"
W7PE36 http://blog.numino.net/
end if
4yTv73 http://blog.numino.net/
next
5HVp92 http://blog.numino.net/
if mysign=-1 then c10to2="-" & c10to2
HAiA60 http://blog.numino.net/
end function
v6mqnU http://blog.numino.net/
%>
SEqGZn http://blog.numino.net/
-----------------------------------------------------------------------------------------------------------------------------
VkZuNU http://blog.numino.net/
ASP编码转换函数GB2312转换UTF-8
vB3nsk http://blog.numino.net/
<%
UZVn8K http://blog.numino.net/
Function chinese2unicode(Str)
1e0o0X http://blog.numino.net/
dim i
r5M304 http://blog.numino.net/
dim Str_one
J5u1Iz http://blog.numino.net/
dim Str_unicode
mn889d http://blog.numino.net/
For i=1 to len(Str)
TGznsS http://blog.numino.net/
Str_one=Mid(Str,i,1)
cS7Jcc http://blog.numino.net/
Str_unicode=Str_unicode&chr(38)
VI0CO0 http://blog.numino.net/
Str_unicode=Str_unicode&chr(35)
E1PMrB http://blog.numino.net/
Str_unicode=Str_unicode&chr(120)
zr2uLd http://blog.numino.net/
Str_unicode=Str_unicode& Hex(ascw(Str_one))
s1lt9W http://blog.numino.net/
Str_unicode=Str_unicode&chr(59)
ZTW48L http://blog.numino.net/
Next
MheKdF http://blog.numino.net/
chinese2unicode = Str_unicode
R805TY http://blog.numino.net/
End Function
EuiyXT 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
XBRVu9 http://blog.numino.net/
Response.Write ("<body onload=""document.form1.a.focus();"">")& vbCrlf
hVgGWl http://blog.numino.net/
action = Request.QueryString("action")
n7R1V1 http://blog.numino.net/
Select Case action
sIxN5r http://blog.numino.net/
Case "do"
VBfE13 http://blog.numino.net/
Call doing()
XB52xQ http://blog.numino.net/
Case else
QayZrx http://blog.numino.net/
Call mains()
9gVmHq http://blog.numino.net/
End Select
uSHrrn http://blog.numino.net/
'-----------------------------
pZNnGh http://blog.numino.net/
Sub mains()
m4RHXE http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
64POOY http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
G6Wp2G 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
jxD7VG http://blog.numino.net/
Response.Write ("<div align=center><textarea id='b' style='width:99%' rows='8'></textarea><br></div>")& vbCrlf
9SCTG7 http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
bO2N8j http://blog.numino.net/
End Sub
mfo9pH http://blog.numino.net/
'-----------------------------
i2y6Yc http://blog.numino.net/
Sub doing()
WGs4t9 http://blog.numino.net/
Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf
Bb1Lyk http://blog.numino.net/
Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf
U1SXa6 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
6P6ulJ 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
CBq6jo http://blog.numino.net/
Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf
P6wg99 http://blog.numino.net/
Response.Write ("<script>document.getElementById('b').innerHTML='"&server.htmlencode(chinese2unicode(Request.Form("a")))&"';")& vbCrlf
rh5r4s http://blog.numino.net/
Response.Write ("function docopy(){")& vbCrlf
VfGcXL http://blog.numino.net/
Response.Write ("document.getElementById('b').select();")& vbCrlf
ONlVLH http://blog.numino.net/
Response.Write ("js = document.getElementById('b').createTextRange();")& vbCrlf
M4cTfk http://blog.numino.net/
Response.Write ("js.execCommand('Copy');")& vbCrlf
ouqu6M http://blog.numino.net/
Response.Write ("document.getElementById('a').value='';")& vbCrlf
ryancG http://blog.numino.net/
Response.Write ("document.form1.submit();}")& vbCrlf
Odhfy0 http://blog.numino.net/
Response.Write ("</script>")& vbCrlf
F660sd http://blog.numino.net/
End Sub
8mdykb http://blog.numino.net/
%>
|
|