ASP necesita usar esta función para obtener la URL actual u obtener todos los parámetros de la página actual. No la he probado mucho. Le daré el código específico después de la prueba.
Si la dirección es:
http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html
Método 1: simple, sin parámetros, solo una ruta virtual
Copie el código de código de la siguiente manera:
GetUrl =request(url) 'Como no tenemos la palabra url=, podemos pasarla directamente.
Método 2: obtener la URL completa y obtener los parámetros
Copie el código de código de la siguiente manera:
'Obtener la dirección de la página actual
Función ObtenerUrl()
En caso de error Continuar siguiente
Temperatura de intensidad tenue
Si LCase(Request.ServerVariables(HTTPS)) = desactivado Entonces
strTemp = http://
Demás
strTemp = https://
Terminar si
strTemp = strTemp y Solicitud.ServerVariables(SERVER_NAME)
Si Request.ServerVariables(SERVER_PORT) <> 80 Entonces strTemp = strTemp &: & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp y Solicitud.ServerVariables(URL)
Si Trim(Request.QueryString) <> Entonces strTemp = strTemp & ?
ObtenerUrl = strTemp
Función final
Después de probar este código, la ruta obtenida es:
/test/geturl.asp?Param-VR52tmx3syn03777.html=
Método 2: obtener la ruta virtual y obtener los parámetros
Copie el código de código de la siguiente manera:
Función privada GetUrl()
Dim ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'Obtener la dirección actual
M_ItemUrl =
Si (Request.QueryString <>) Entonces
Dirección de secuencia de comandos = Dirección de secuencia de comandos &?
Para cada M_item en Request.QueryString
Si M_item = page_num Entonces salga para 'La función aquí es filtrar los parámetros de Page_num (este parámetro se establece por sí mismo en page_turn.asp y cambia según la configuración personal); de lo contrario, se superpondrá cada vez que se pase la página. Aunque los parámetros no afectan la función, todavía no son buenos ~~
Si InStr(página,M_Item)=0 Entonces
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&))
demás
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &
Terminar si
Próximo
Demás
Dirección de secuencia de comandos = Dirección de secuencia de comandos &?
terminar si
GetUrl = Dirección de secuencia de comandos y M_ItemUrl
Función final
La dirección obtenida por el código anterior es
http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html
basicamente lo mismo
Si solo queremos obtener el objeto después del número, podemos usar el siguiente código.
Copie el código de código de la siguiente manera:
respuesta.escribir reemplazar(solicitud.querystring,.html,)
Lo que obtenemos es Param-VR52tmx3syn03777. ¿Satisface nuestras necesidades?
PD: Todas las situaciones anteriores son solo para ASP puro. Si se combinan con urlrewrite, las funciones se mejorarán y también se mejorará la facilidad de búsqueda.