A menudo se necesita el código de función para obtener la dirección y los parámetros de la página actual en ASP. Está especialmente organizado para comodidad de los amigos que lo necesitan. Copie el código de código de la siguiente manera:
Función obtenerUrlActual()
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 &: & Solicitud.ServerVariables(SERVER_PORT)
terminar si
strTemp = strTemp y Solicitud.ServerVariables(URL)
getCurrentUrl = strTemp
Función final
Función getUrlWithParams()
Dim ScriptAddress, nombre del servidor, qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
Nombre del servidor = CStr(Request.ServerVariables(Nombre_del_servidor))
qs=Solicitud.QueryString
Si Request.ServerVariables(SERVER_PORT) <> 80 Entonces
Nombre del servidor = Nombre del servidor &: & Request.ServerVariables(SERVER_PORT)
terminar si
si qs <> entonces
getUrlWithParams =http://& Nombre del servidor y dirección del script &?&qs
demás
getUrlWithParams =http://& Nombre del servidor y dirección del script
terminar si
Función final