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

Código ASP clásico

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
%>

tags: 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

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por CoreASP. Estos recursos se comparten de buena fe con el único objetivo de servir como base de conocimiento en el desarrollo de aplicaciones en ASP Clásico. CoreASP no garantiza la precisión, vigencia ni funcionamiento de los artículos o fragmentos de código publicados, y no se hace responsable por el uso que se les dé. Se recomienda siempre revisar, adaptar y probar el código antes de implementarlo en entornos de producción.