ASP字符转换:UTF-8与GB2312互转 |
UTF-8转GB2312函数 MGNbeh http://blog.numino.net/ <% I8tzcs http://blog.numino.net/ '用途:將UTF-8編碼漢字轉換為GB2312碼,兼容英文和數字 CdpIM3 http://blog.numino.net/ '版權:雖說是原創,其實也參考了別人的部分算法 39V09q 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") hcYHIB http://blog.numino.net/ function UTF2GB(UTFStr) hIL82T http://blog.numino.net/ for Dig=1 to len(UTFStr) 1X9psw http://blog.numino.net/ if mid(UTFStr,Dig,1)="%" then 0ZwN8Y http://blog.numino.net/ if len(UTFStr) >= Dig+8 then pZRe60 http://blog.numino.net/ GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) mvJ7P4 http://blog.numino.net/ Dig=Dig+8 rEMK4I http://blog.numino.net/ else h0FFri http://blog.numino.net/ GBStr=GBStr & mid(UTFStr,Dig,1) U6H0e3 http://blog.numino.net/ end if PWOE1s http://blog.numino.net/ else 3vU1ZE http://blog.numino.net/ GBStr=GBStr & mid(UTFStr,Dig,1) 06AkKT http://blog.numino.net/ end if 1v2qFN http://blog.numino.net/ next 3KSpIc http://blog.numino.net/ UTF2GB=GBStr O71C5R http://blog.numino.net/ end function op3rPi http://blog.numino.net/ function ConvChinese(x) q8i0G0 http://blog.numino.net/ A=split(mid(x,2),"%") 2GdG2b http://blog.numino.net/ i=0 6p911P http://blog.numino.net/ j=0 KXBhes http://blog.numino.net/ for i=0 to ubound(A) l1LNn9 http://blog.numino.net/ A(i)=c16to2(A(i)) 3amgdm http://blog.numino.net/ next Pq72EW http://blog.numino.net/ for i=0 to ubound(A)-1 9Gn0E6 http://blog.numino.net/ DigS=instr(A(i),"0") P7jP91 http://blog.numino.net/ Unicode="" w8uXy0 http://blog.numino.net/ for j=1 to DigS-1 hn2zCB http://blog.numino.net/ if j=1 then T643lw http://blog.numino.net/ A(i)=right(A(i),len(A(i))-DigS) wBtx8l http://blog.numino.net/ Unicode=Unicode & A(i) agFe2L http://blog.numino.net/ else ad48f8 http://blog.numino.net/ i=i+1 MFE0w8 http://blog.numino.net/ A(i)=right(A(i),len(A(i))-2) 6E45KT http://blog.numino.net/ Unicode=Unicode & A(i) 32HrAr http://blog.numino.net/ end if TsMRvh http://blog.numino.net/ next YDME4U http://blog.numino.net/ if len(c2to16(Unicode))=4 then yYfTz2 http://blog.numino.net/ ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode))) EG19A1 http://blog.numino.net/ else 1b2ZuP http://blog.numino.net/ ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode))) 6vmuMq http://blog.numino.net/ end if bO0PsN http://blog.numino.net/ next Vz32nA http://blog.numino.net/ end function zUTZkk http://blog.numino.net/ function c2to16(x) KQTVcX http://blog.numino.net/ i=1 b2JVM4 http://blog.numino.net/ for i=1 to len(x) step 4 Am1E9I http://blog.numino.net/ c2to16=c2to16 & hex(c2to10(mid(x,i,4))) KfmG4x http://blog.numino.net/ next ESH9nI http://blog.numino.net/ end function 6T4nlR http://blog.numino.net/ function c2to10(x) Wo8uIE http://blog.numino.net/ c2to10=0 AZZ1dG http://blog.numino.net/ if x="0" then exit function a8OZBh http://blog.numino.net/ i=0 u9lZRF http://blog.numino.net/ for i= 0 to len(x) -1 eop7bB http://blog.numino.net/ if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i) r6M3Cd http://blog.numino.net/ next F7VOZ1 http://blog.numino.net/ end function 7Wg2x4 http://blog.numino.net/ function c16to2(x) VVN62j http://blog.numino.net/ i=0 NhF9Jt http://blog.numino.net/ for i=1 to len(trim(x)) i9BHmt http://blog.numino.net/ tempstr= c10to2(cint(int("&h" & mid(x,i,1)))) g8PUhd http://blog.numino.net/ do while len(tempstr)<4 72aeQV http://blog.numino.net/ tempstr="0" & tempstr 9lM333 http://blog.numino.net/ loop FbdCP7 http://blog.numino.net/ c16to2=c16to2 & tempstr W9Ct4D http://blog.numino.net/ next cOs14N http://blog.numino.net/ end function 91s8yv http://blog.numino.net/ function c10to2(x) 3CtwJG http://blog.numino.net/ mysign=sgn(x) I7800k http://blog.numino.net/ x=abs(x) esZ1yO http://blog.numino.net/ DigS=1 qE83gm http://blog.numino.net/ do 7aeyj7 http://blog.numino.net/ if x<2^DigS then 7UGbOE http://blog.numino.net/ exit do 6B6VVm http://blog.numino.net/ else mRs6qO http://blog.numino.net/ DigS=DigS+1 I4MjUD http://blog.numino.net/ end if 64DwT8 http://blog.numino.net/ loop Y0I1LJ http://blog.numino.net/ tempnum=x RuShvW http://blog.numino.net/ i=0 lqfvtV http://blog.numino.net/ for i=DigS to 1 step-1 9lEj3p http://blog.numino.net/ if tempnum>=2^(i-1) then l9TjIb http://blog.numino.net/ tempnum=tempnum-2^(i-1) fxJLo0 http://blog.numino.net/ c10to2=c10to2 & "1" 73U1Xo http://blog.numino.net/ else mh8tPc http://blog.numino.net/ c10to2=c10to2 & "0" RBJR4L http://blog.numino.net/ end if cV9WR1 http://blog.numino.net/ next ZTP29m http://blog.numino.net/ if mysign=-1 then c10to2="-" & c10to2 mahDSS http://blog.numino.net/ end function G12XjR http://blog.numino.net/ %> OR76Lk http://blog.numino.net/ ----------------------------------------------------------------------------------------------------------------------------- 32texJ http://blog.numino.net/ ASP编码转换函数GB2312转换UTF-8 9QDXL4 http://blog.numino.net/ <% C8QpPN http://blog.numino.net/ Function chinese2unicode(Str) KI7U5U http://blog.numino.net/ dim i 586F9l http://blog.numino.net/ dim Str_one P9o28S http://blog.numino.net/ dim Str_unicode Gj4o62 http://blog.numino.net/ For i=1 to len(Str) 38gBU1 http://blog.numino.net/ Str_one=Mid(Str,i,1) VFV77p http://blog.numino.net/ Str_unicode=Str_unicode&chr(38) Wo1Q4Z http://blog.numino.net/ Str_unicode=Str_unicode&chr(35) Q9dCF1 http://blog.numino.net/ Str_unicode=Str_unicode&chr(120) hXV3B1 http://blog.numino.net/ Str_unicode=Str_unicode& Hex(ascw(Str_one)) 4067WO http://blog.numino.net/ Str_unicode=Str_unicode&chr(59) GQnn4q http://blog.numino.net/ Next 3jeYyN http://blog.numino.net/ chinese2unicode = Str_unicode av3k83 http://blog.numino.net/ End Function 7Oesg8 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 4b4ANj http://blog.numino.net/ Response.Write ("<body onload=""document.form1.a.focus();"">")& vbCrlf 0CF6K6 http://blog.numino.net/ action = Request.QueryString("action") KCtVpA http://blog.numino.net/ Select Case action QgysDL http://blog.numino.net/ Case "do" 79BXIm http://blog.numino.net/ Call doing() 9TPZi1 http://blog.numino.net/ Case else 9fPOqQ http://blog.numino.net/ Call mains() M3BuB5 http://blog.numino.net/ End Select SHrutv http://blog.numino.net/ '----------------------------- 248Hvb http://blog.numino.net/ Sub mains() DjEEUG http://blog.numino.net/ Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf vO8olg http://blog.numino.net/ Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf vBtPk0 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 8vHr78 http://blog.numino.net/ Response.Write ("<div align=center><textarea id='b' style='width:99%' rows='8'></textarea><br></div>")& vbCrlf 137Fi3 http://blog.numino.net/ Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf 1tm3NT http://blog.numino.net/ End Sub 3SP70t http://blog.numino.net/ '----------------------------- KDn0tL http://blog.numino.net/ Sub doing() x29d3r http://blog.numino.net/ Response.write "<fieldset style=""width:60%"" align=""center""><legend>Gb2312 - Utf-8</legend>"& vbCrlf 04PS81 http://blog.numino.net/ Response.Write ("<form name=""form1"" method=post action='?action=do'><div align=center>")& vbCrlf XbuYzV 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 VjyNNJ 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 u8OkOI http://blog.numino.net/ Response.Write ("<br> <input type='submit' value='开始转换'></form></fieldset>")& vbCrlf 1479OY http://blog.numino.net/ Response.Write ("<script>document.getElementById('b').innerHTML='"&server.htmlencode(chinese2unicode(Request.Form("a")))&"';")& vbCrlf 9iJ05f http://blog.numino.net/ Response.Write ("function docopy(){")& vbCrlf Ta7RC3 http://blog.numino.net/ Response.Write ("document.getElementById('b').select();")& vbCrlf 58VHod http://blog.numino.net/ Response.Write ("js = document.getElementById('b').createTextRange();")& vbCrlf x5mf36 http://blog.numino.net/ Response.Write ("js.execCommand('Copy');")& vbCrlf cZOAcq http://blog.numino.net/ Response.Write ("document.getElementById('a').value='';")& vbCrlf 89mE9J http://blog.numino.net/ Response.Write ("document.form1.submit();}")& vbCrlf g9WRg7 http://blog.numino.net/ Response.Write ("</script>")& vbCrlf aiXCUw http://blog.numino.net/ End Sub TmwlP7 http://blog.numino.net/ %>
|
|