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]