Cómo extraer parámetros de una URL con ASP clásico

Cómo extraer parámetros de una URL con ASP clásico

Código ASP clásico

Por ASP clásico / 02/04/2023 @ 13:52:03 / 1482 visitas

El código proporcionado utiliza la función Split de ASP para extraer el token y el chart de una cadena de texto que contiene una URL con parámetros. Esta función permite dividir una cadena de texto en diferentes partes utilizando un separador específico.

En el código, primero se define la cadena de texto que contiene la URL con parámetros:

cadena = "https://www.paginilla.com/chance/chartlink.asp?token=wpLJXBWvloRJq7rbugLvc%2f8FI%3d&chart=dLmvQiUSZQDNTLbE0i8vdDU"

Luego, se utiliza la función Split para separar la cadena de texto en dos partes: la URL y los parámetros:

parametros = Split(cadena, "?")(1)

Esto devuelve la parte de la cadena de texto que contiene los parámetros de la URL. Luego, se utiliza la función Split nuevamente para separar los parámetros entre sí:

array_parametros = Split(parametros, "&")

Esto devuelve un array de parámetros, donde cada parámetro se separa utilizando el caracter "&".

Después, se utiliza un bucle For Each para recorrer el array de parámetros y extraer sus valores:

For Each parametro In array_parametrosnombre_parametro = Split(parametro, "=")(0)valor_parametro = Split(parametro, "=")(1)Response.Write nombre_parametro & ": " & valor_parametro & "
"Next

Dentro del bucle, se utiliza la función Split nuevamente para separar el nombre y el valor de cada parámetro utilizando el caracter "=". Luego, se imprimen los nombres y los valores de cada parámetro utilizando la función Response.Write.

Código ASP clásico para extraer parámetros

<%
cadena = "https://www.paginilla.com/chance/chartlink.asp?token=wpLJXBWvloRJq7rbugLvc%2f8FI%3d&chart=dLmvQiUSZQDNTLbE0i8vdDU"

' Extraer el token y el chart de la cadena de texto utilizando Split
token = Split(Split(cadena, "?")(1), "&")(0)
chart = Split(Split(cadena, "?")(1), "&")(1)

Response.Write "Cadena URL: " & cadena & "
"

Response.Write "
"

' Imprimir los valores extraídos
Response.Write "Token: " & token & "
"
Response.Write "Chart: " & chart & "
"

Response.Write "
"

' Separar la URL de los parámetros
parametros = Split(cadena, "?")(1)

' Separar los parámetros entre sí
array_parametros = Split(parametros, "&")

' Recorrer el array de parámetros utilizando For Each
For Each parametro In array_parametros
    ' Separar el nombre y el valor del parámetro
    nombre_parametro = Split(parametro, "=")(0)
    valor_parametro = Split(parametro, "=")(1)
    
    ' Imprimir el nombre y el valor del parámetro
    Response.Write nombre_parametro & ": " & valor_parametro & "
"
Next
%>

Descubre más sobre cómo simplificar y optimizar tu trabajo empresarial en el Blog de CoreASP.

ASP, Split, URL, parámetros, cadena de texto, ASP clásico, Split en ASP, Extraer parámetros de URL en ASP, Aplicaciones web clásicas Visual Basic Script