<META http-equiv=Content-Type content="text/html; charset=utf-8">
<%
Function f_URLDecoder(str)
'// 函数功能：
'// - 将任何 utf-8 编码字符解码为 unicode 字符，例如。(%C3%A5 = &#229;)
'// - 用空格字符替换任何加号分隔符
'//重要：
'//您的网页必须使用 UTF-8 字符集。最简单的方法是使用这个 META 标签：
'//<META http-equiv=Content-Type content="text/html; charset=utf-8">
'//
    Dim objScript
    Set objScript = Server.CreateObject("ScriptControl")
    objScript.Language = "JavaScript"
    f_URLDecoder = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))")
    Set objScript = Nothing
End Function

str="%C3%A5"
response.write f_URLDecoder(str)
%>