Lewies URLDecode

Posted: 2002-06-01
By: ArchiveBot
Viewed: 54

Filed Under:

ASP/ HTML

No attachments for this post

Xao Xiong originally posted his version
of DecodeURL and asked for a reply for
a better way. I replied, but it didn't
turn out too well, so i'm posting it here
for him to see.
The approach i took is that when you look
at an encoded URL string, 2 hex characters
follow a percent sign. XAO listed a few
to translate into actual characters, but
he didn't account for all 256 of them.
Check it out!
See http://www.planetsourcecode.com/xq/ASP/
txtCodeId.6728/lngWId.4/qx/vb/scripts/
ShowCode.htm

Original Author: Lewis E. Moten III

Code

<%
Response.Write DecodeURL("http://www.lewismoten.com/1%2B2%3D3.asp")
Function DecodeURL(ByRef pstrURL)
Dim llngIndex
Dim llngMaxIndex
Dim lstrChar
Dim lstrResult

llngMaxIndex = Len(pstrURL)
llngIndex = 1

Do While llngIndex <= llngMaxIndex
lstrChar = Mid(pstrURL, llngIndex, 1)
If lstrChar = "%" Then
lstrResult = lstrResult & chr("&h" & Mid(pstrURL, llngIndex + 1, 2))
llngIndex = llngIndex + 3
ElseIf lstrChar = "+" Then
lstrResult = lstrResult & " "
llngIndex = llngIndex + 1
Else
lstrResult = lstrResult & lstrChar
llngIndex = llngIndex + 1
End If
Loop

DecodeURL = lstrResult
End Function
%>

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.