URLDecode Function:
Decodes a urlencoded string.
Description:
The URLDecode function decodes a URL encoded string back into the original text.
Syntax:
string = URLDecode(encodedstring)
Example:
<%
Response.Write URLDecode(Server.URLEncode("@ can't find ... that & this?"))
%>
ASP Source Code:
<%
Private Function URLDecode(byVal encodedstring) Dim strIn, strOut, intPos, strLeft Dim strRight, intLoop strIn = encodedstring : strOut = "" : intPos = Instr(strIn, "+") Do While intPos strLeft = "" : strRight = "" If intPos > 1 then strLeft = Left(strIn, intPos - 1) End if If intPos < len(strIn) then strRight = Mid(strIn, intPos + 1) End if strIn = strLeft & " " & strRight intPos = InStr(strIn, "+") intLoop = intLoop + 1 Loop intPos = InStr(strIn, "%") Do while intPos If intPos > 1 then strOut = strOut & Left(strIn, intPos - 1) End if strOut = strOut & Chr(CInt("&H" & mid(strIn, intPos + 1, 2))) If intPos > (len(strIn) - 3) then strIn = "" Else strIn = Mid(strIn, intPos + 3) End If intPos = InStr(strIn, "%") Loop URLDecode = strOut & strIn End Function
%>
|