在網(wǎng)頁(yè)中，有時(shí)候會(huì)傳送一些中文參數(shù)，但是在某些瀏覽器下（比如IE，在Firefox就是正常的），這些中文參數(shù)轉(zhuǎn)換就會(huì)出錯(cuò)，會(huì)用到ASP中的URLEncode方法來(lái)解決這個(gè)問(wèn)題。

比如傳送的參數(shù)為：

http://weste.net/?西部e網(wǎng)

直接發(fā)送可能在程序接受方就是亂碼，尤其在UFT-8的編碼下，所以我們發(fā)送前要先轉(zhuǎn)換一下

<% Response.Write "/?"&Server.URLEncode("西部e網(wǎng)") %>

轉(zhuǎn)換后就變成了

http://weste.net/?id=%E8%A5%BF%E9%83%A8e%E7%BD%91

發(fā)送過(guò)去接收的程序還要將%E8%A5%BF%E9%83%A8e%E7%BD%91這部分轉(zhuǎn)換回原來(lái)的代碼，這個(gè)時(shí)候ASP就沒(méi)有提供一個(gè)解碼的方法了，要我們自己寫(xiě)一個(gè)：

<%
'Server.URLEncode(string)的解密函數(shù)
Function URLDecode(enStr)
   dim deStr,strSpecial
   dim c,i,v
     deStr=""
     strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
     for i=1 to len(enStr)
       c=Mid(enStr,i,1)
       if c="%" then
         v=eval("&h"+Mid(enStr,i+1,2))
         if inStr(strSpecial,chr(v))>0 then
           deStr=deStr&chr(v)
           i=i+2
         else
           v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
           deStr=deStr & chr(v)
           i=i+5
         end if
       else
         if c="+" then
           deStr=deStr&" "
         else
           deStr=deStr&c
         end if
       end if
     next
     URLDecode=deStr
End function
%>

接受的時(shí)候這樣寫(xiě)：

<% name = URLEncode(Request("id")) %>

這樣就轉(zhuǎn)換過(guò)來(lái)了！