ASP让url的中文显示为编码

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]