ASP让url的中文显示为编码

<a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a> 
 
解码函数 
[code] 
<% 
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")) 
%> 
[html]