ASP让地址栏中文显示为编码方法

有时候asp地址栏传递中文会出现乱码，最好的解决方法是对中文参数进行编码处理。
下面是对地址栏中文编码和解码的方法
代码如下:

<a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a> 

解码函数

<% 
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 

response.Write URLDecode(request.QueryString("action")) 
%>