ASP URL Decode

 

Function URLDecode(Expression)  
    Dim strSource, strTemp, strResult, strchr
    Dim lngPos, AddNum, IFKor 

    strSource = Replace(Expression, "+", " ") 
    For lngPos = 1 To Len(strSource)   
        AddNum  = 2
        strTemp = Mid(strSource, lngPos, 1)       
  
        If strTemp = "%" Then       
            If lngPos + AddNum < Len(strSource) + 1 Then           
                strchr = CInt("&H" & Mid(strSource, lngPos + 1, AddNum))               

                If strchr > 130 Then                
                    AddNum = 5
                    IFKor = Mid(strSource, lngPos + 1, AddNum)
                    IFKor = Replace(IFKor, "%", "")
                    strchr = CInt("&H" & IFKor )                   
                End If               
           
                strResult = strResult & Chr(strchr)
                lngPos    = lngPos + AddNum               
            End If           
        Else
            strResult = strResult & strTemp
        End If       
    Next 
    URLDecode = strResult
End Function



use -

URLDecode(REQUEST("PRODUCT_NAME"))