在浏览器上直接输入url 时，中文传参乱码问题
这样的地址 xxx.asp?name=中国 ，通过 超链接打开这个链接 ，xxx.asp能够成才接收参数，但是如果将地址直接放到浏览器地址栏上，回车， xxx.asp就无法正确接收中文参数，一直显示乱码。做了很多实验终于知道原因：
因为我的xxx.asp是gb2312编码， 如果通过超链接进入，地址编码与xxx.asp编码会保持一致， 而如果通过浏览器地址栏进入， 现在大部分浏览器地址栏中的字符都被当做utf-8处理。 所以我们知道原因了，通过地址栏传过来的字符串都被当成了utf-8的编码进行传递，自然xxx.asp处理会变成乱码。
所以解决这个问题就是要将url中的utf-8字符转成gb2312然后再，重新传一遍参数
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head> <body> <% function chinese2unicode(Str) dim i dim Str_one dim Str_unicode for i=1 to len(Str) Str_one=Mid(Str,i,1) Str_unicode=Str_unicode&chr(38) Str_unicode=Str_unicode&chr(35) Str_unicode=Str_unicode&chr(120) Str_unicode=Str_unicode& Hex(ascw(Str_one)) Str_unicode=Str_unicode&chr(59) next Response.Write Str_unicode end function function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) if mid(UTFStr,Dig,1)="%" then if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig,1) end if else GBStr=GBStr & mid(UTFStr,Dig,1) end if next UTF2GB=GBStr end function function ConvChinese(x) A=split(mid(x,2),"%") i=0 j=0 for i=0 to ubound(A) A(i)=c16to2(A(i)) next for i=0 to ubound(A)-1 DigS=instr(A(i),"0") Unicode="" for j=1 to DigS-1 if j=1 then A(i)=right(A(i),len(A(i))-DigS) Unicode=Unicode & A(i) else i=i+1 A(i)=right(A(i),len(A(i))-2) Unicode=Unicode & A(i) end if next if len(c2to16(Unicode))=4 then ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode))) else ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode))) end if next end function function c2to16(x) i=1 for i=1 to len(x) step 4 c2to16=c2to16 & hex(c2to10(mid(x,i,4))) next end function function c2to10(x) c2to10=0 if x="0" then exit function i=0 for i= 0 to len(x) -1 if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i) next end function function c16to2(x) i=0 for i=1 to len(trim(x)) tempstr= c10to2(cint(int("&h" & mid(x,i,1)))) do while len(tempstr)<4 tempstr="0" & tempstr loop c16to2=c16to2 & tempstr next end function function c10to2(x) mysign=sgn(x) x=abs(x) DigS=1 do if x<2^DigS then exit do else DigS=DigS+1 end if loop tempnum=x i=0 for i=DigS to 1 step-1 if tempnum>=2^(i-1) then tempnum=tempnum-2^(i-1) c10to2=c10to2 & "1" else c10to2=c10to2 & "0" end if next if mysign=-1 then c10to2="-" & c10to2 end function response.Write UTF2GB(request.QueryString)&"<br>" response.Redirect("bb.asp?"&UTF2GB(request.QueryString))%> </body> </html>
bb.asp
<% response.Write request.QueryString&"<br>" response.Write request.QueryString("id") %>
bb.asp 中的request.QueryString("id") 可以正常显示成中文了。
UTF2GB函数就是将utf-8编码的字符 ，转换成了中文，然后再讲参数重新传递一下，就正常了。
这里为什么不在xxx.asp里直接
UTF2GB（request.QueryString("id")）这样来做？
这样做并不会显示成正确的中文，因为
request.QueryString("id") 取值的时候已经被系统自动转化成了中文，因为编码不对所以，就变成了乱码的中文， 在这之上再进行转换已经没有意义，它已经不是utf-8编码，而是被转化成乱码的中文
。
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
半个小时后，我终于找到问题的关键。。。继续更新。。。。。。。。。
知道为什么会出现乱码了， 因为在地址栏输入地址，地址会被执行utf-8 的 urlencode ，地址被转码了， 到了xxx.asp后，取值的时候， 会自动按页面编码执行相应的urldecode函数， 也就是gb2312编码下的urldecode 函数， 所以就出现了乱码，有个很简单的办法就是 ，对url执行utf-8编码的 urldecode就可以了， 在网上又找到一个简单的函数
<% Function UrlEncode_GBToUtf8(ByVal str) Dim B ''单个字符 Dim ub ''中文字的Unicode码(2字节) Dim High8b, Low8b ''Unicode码的高低位字节 Dim UtfB1, UtfB2, UtfB3 ''Utf-8码的三个字节 Dim i, s For i = 1 To Len(str) B=Mid(str, i, 1) ub = AscW(B) If (ub>=48 And ub<=57) Or (ub>=65 And ub<=90) Or (ub>=97 And ub<=122) Or ub=42 Or ub=45 Or ub=46 Or ub=64 Or ub=95 Then ''48 to 57代表0~9;65 to 90代表A~Z;97 to 122代表a~z ''42代表*;46代表.;64代表@;45代表-;95代表_ s=s & B ElseIf ub=32 Then ''空格转成+ s=s & "+" ElseIf ub<128 Then ''低于128的Ascii转成1个字节 s=s & "%" & Right("00" & Hex(ub),2) Else High8b = (ub And &HFF00) / &H100 ''Unicode码高位 Low8b = ub And &HFF ''Unicode码低位 UtfB1 = (High8b And &HF0) / &H10 Or &HE0 ''取Unicode高位字节的二进制的前4位 + 11100000 UtfB2 = ((High8b And &HF) * &H4 + (Low8b And &HC0) / &H40) Or &H80 ''取Unicode高位字节的后4位及低位字节的前2位 +10000000 UtfB3 = (Low8b And &H3F) Or &H80 ''取Unicode低位字节的二进制后6位 + 10000000 s = s & "%" & Hex(UtfB1) & "%" & Hex(UtfB2) & "%" & Hex(UtfB3) End If Next UrlEncode_GBToUtf8 = s End Function ''“汉”－AscW("汉")=27721(十进制) 01101100 01001001(二进制) 6C49(十六进制) ''将Gb2312码转成Utf-8码（十六进制表示）的方法为，先用AscW将Gb2312转为Unicode码(2字节),再''将Unicode码的二进制中的位按utf-8(3字节）模板规则填充 x 位： ''URL解码，Gb2312页面提交到Utf-8页面 Function UrlDecode_GBToUtf8(ByVal str) Dim B,ub ''中文字的Unicode码(2字节) Dim UtfB ''Utf-8单个字节 Dim UtfB1, UtfB2, UtfB3 ''Utf-8码的三个字节 Dim i, n, s n=0 ub=0 For i = 1 To Len(str) B=Mid(str, i, 1) Select Case B Case "+" s=s & " " Case "%" ub=Mid(str, i + 1, 2) UtfB = CInt("&H" & ub) If UtfB<128 Then i=i+2 s=s & ChrW(UtfB) Else UtfB1=(UtfB And &H0F) * &H1000 ''取第1个Utf-8字节的二进制后4位 UtfB2=(CInt("&H" & Mid(str, i + 4, 2)) And &H3F) * &H40 ''取第2个Utf-8字节的二进制后6位 UtfB3=CInt("&H" & Mid(str, i + 7, 2)) And &H3F ''取第3个Utf-8字节的二进制后6位 s=s & ChrW(UtfB1 Or UtfB2 Or UtfB3) i=i+8 End If Case Else ''Ascii码 s=s & B End Select Next UrlDecode_GBToUtf8 = s End Function Private Function UrlEncode_GBToUtf8_V2(szInput) Dim wch, uch, szRet Dim x Dim nAsc, nAsc2, nAsc3 If szInput = "" Then UrlEncode_GBToUtf8_V2= szInput Exit Function End If For x = 1 To Len(szInput) wch = Mid(szInput, x, 1) nAsc = AscW(wch) If nAsc < 0 Then nAsc = nAsc + 65536 If wch = "+" then szRet = szRet & "%2B" ElseIf wch = "%" then szRet = szRet & "%25" ElseIf (nAsc And &HFF80) = 0 Then szRet = szRet & wch Else If (nAsc And &HF000) = 0 Then uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80) szRet = szRet & uch Else uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _ Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _ Hex(nAsc And &H3F Or &H80) szRet = szRet & uch End If End If Next UrlEncode_GBToUtf8_V2= szRet End Function
response.Write UrlDecode_GBToUtf8(request.QueryString)&"<br>"
response.Redirect("bb.asp?"&UTF2GB(request.QueryString))
- UrlEncode_GBToUtf8 不支持生僻字，比如：鎔。
- UrlEncode_GBToUtf8_V2 支持生僻字
- UrlDecode_GBToUtf8 支持生僻字
如果xxx.asp是utf-8的编码， 就不存在以上问题
