ASP让url的中文显示为编码

　　asp解码url

　　

　　解码函数

　　[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]