Funcion URL decode para ASP clásico

Código ASP clásico

Este código define una función llamada URLDecode, que decodifica una cadena codificada en UTF-8 que se ha recibido a través de una solicitud HTTP. La función utiliza el objeto ScriptControl de ASP para llamar a la función decodeURIComponent en JavaScript, que realiza la decodificación.

La función es útil cuando se trabaja con formularios HTML y solicitudes HTTP, especialmente cuando se desea decodificar parámetros de URL codificados, como títulos, nombres de usuarios o contraseñas, para que puedan leerse correctamente. También es útil para registrar los términos de búsqueda que alguien ha utilizado para encontrar un sitio en Google, como se muestra en el ejemplo práctico proporcionado.

La función StripGoogleTerms utiliza la función URLDecode para decodificar una cadena de consulta y buscar si contiene la palabra "google". Si se encuentra la palabra, busca el parámetro "q" en la cadena y agrega el prefijo "GOOGLE:" a la cadena. Luego, las palabras clave se agregan al final de la cadena para su posterior análisis. Si no se encuentra la palabra "google", la función devuelve la cadena sin cambios.

En resumen, la función URLDecode es una herramienta útil para decodificar cadenas codificadas en UTF-8 y puede ser especialmente útil para decodificar parámetros de URL. La función StripGoogleTerms es un ejemplo práctico de cómo se puede utilizar la función URLDecode para procesar las consultas de búsqueda de Google y realizar un seguimiento de los términos de búsqueda utilizados por los visitantes del sitio.

ASP parece carecer de una funci�n de decodificaci�n de URL, pero tiene funci�n para codificar URL. Esta es una funci�n que puede decodificar cualquier direcci�n URL codificada:

 


<%

FUNCTION URLDecode(str)

'// This function:

'// - decodes any utf-8 encoded characters into unicode characters eg. (%C3%A5 = �)

'// - replaces any plus sign separators with a space character

'//

'// IMPORTANT:

'// Your webpage must use the UTF-8 character set. Easiest method is to use this META tag:

'// 

'//

    Dim objScript

    Set objScript = Server.CreateObject("ScriptControl")

    objScript.Language = "JavaScript"

    URLDecode = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))")

    Set objScript = NOTHING

END FUNCTION

%>

 

Aqu� est� un ejemplo pr�ctico de cu�ndo puede utilizar la funci�n URLDecode - para registrar los t�rminos de b�squeda que alguien ha utilizar para encontrar su sitio en Google. Esta funci�n analiza la cadena para ver si contiene "google". y si lo hace, asume la cadena contiene palabras clave de Google y busca "q =" dentro de la cadena. Si tambi�n se encuentra presente, el stripStr est� creado con el prefijo "GOOGLE:" y las palabras clave se a�ade al final.

 


<%

FUNCTION StripGoogleTerms(stripStr)

stripStr = URLDecode(stripStr)

IF InStr(stripStr, "google.") THEN 'Google Refer

WordArray = Split(stripStr, "&")

FOR i = LBound(WordArray) TO UBound(WordArray)

pos = InStr(WordArray(i), "q=")

IF pos <> 0 THEN

tempStr = "GOOGLE:" & MID(WordArray(i),pos+2)

END IF

NEXT

ELSE 'do nothing

tempStr = stripStr

END IF

StripGoogleTerms = tempStr

END FUNCTION

%>

 

tags: decode url, urlencoder, url encoder, urldecode, url decoder, urldecoder, url encode decode, url decode online