Decodificar URL

[trasgukabi]

' An inverse to Server.URLEncode
function URLDecode(str)
dim re
set re = new RegExp

str = Replace(str, "+", " ")

re.Pattern = "%([0-9a-fA-F]{2})"
re.Global = True
URLDecode = re.Replace(str, GetRef("URLDecodeHex"))
end function

' Replacement function for the above
function URLDecodeHex(match, hex_digits, pos, source)
URLDecodeHex = chr("&H" & hex_digits)
end function