ASP obtiene un resumen de la función URL. Los amigos que la necesiten pueden consultarla. Método 1: simple, sin parámetros, solo una ruta virtual
Copie el código de código de la siguiente manera:
Obtener URL = solicitud (URL)
Por ejemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtenido como: shiyan.asp
Copie el código de código de la siguiente manera:
<%
tenue changdu,url,extremos,wurl
changdu=len(solicitud.ServerVariables(URL))
url=instrrev(solicitud.ServerVariables(URL),/)
URL=URL+1
termina = changdu + 1-url
wurl=mid(solicitud.ServerVariables(URL),url,extremos)
%>
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
Por ejemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtenido como: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Método 3: 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 Then Exit for '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. Los parámetros, aunque 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
Por ejemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtenido como:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Método 4: obtener solo la cadena de parámetro
Copie el código de código de la siguiente manera:
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
obtenerurl=mid(geturl,instr(geturl,?)+1)
Función final
Por ejemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtenido como: dfsdfsf=dsfsdfd&aa=dddd