ASP obtém um resumo da função url. Amigos que precisam dela podem consultá-la. Método 1: Simples, sem parâmetros, apenas um caminho virtual
Copie o código do código da seguinte forma:
GetUrl =solicitação(url)
Por exemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtido como: shiyan.asp
Copie o código do código da seguinte forma:
<%
dim changdu,url,termina,wurl
changdu=len(request.ServerVariables(URL))
url=instrrev(request.ServerVariables(URL),/)
url=url+1
termina=changdu+1-url
wurl=mid(request.ServerVariables(URL),url,ends)
%>
Método 2: obtenha o URL inteiro e os parâmetros
Copie o código do código da seguinte forma:
'Obtém o endereço da página atual
Função GetUrl()
Em caso de erro, retomar o próximo
Dim strTemp
Se LCase(Request.ServerVariables(HTTPS)) = desativado Então
strTemp = http://
Outro
strTemp = https://
Terminar se
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
Se Request.ServerVariables(SERVER_PORT) <> 80 Então strTemp = strTemp &: & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Request.ServerVariables(URL)
Se Trim(Request.QueryString) <> Então strTemp = strTemp & ?
GetUrl = strTemp
Função final
Por exemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtido como: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Método 3: Obtenha o caminho virtual e os parâmetros
Copie o código do código da seguinte forma:
Função privada GetUrl()
Dim ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'Obtém o endereço atual
M_ItemUrl=
Se (Request.QueryString <>) Então
ScriptAddress = ScriptAddress & ?
Para cada M_item em Request.QueryString
Se M_item = page_num Então saia para 'A função aqui é filtrar os parâmetros de Page_num (este parâmetro é definido por si mesmo em page_turn.asp e muda de acordo com as configurações pessoais), caso contrário, será sobreposto toda vez que a página for virada. Os parâmetros, embora não afetem a função, ainda não são bons ~~
Se InStr(página,M_Item)=0 Então
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&))
outro
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &
Terminar se
Próximo
Outro
ScriptAddress = ScriptAddress & ?
terminar se
GetUrl = ScriptAddress e M_ItemUrl
Função final
Por exemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtido como:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Método 4: obtenha apenas a string do parâmetro
Copie o código do código da seguinte forma:
Função GetUrl()
Em caso de erro, retomar o próximo
Dim strTemp
Se LCase(Request.ServerVariables(HTTPS)) = desativado Então
strTemp = http://
Outro
strTemp = https://
Terminar se
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
Se Request.ServerVariables(SERVER_PORT) <> 80 Então strTemp = strTemp &: & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Request.ServerVariables(URL)
Se Trim(Request.QueryString) <> Então strTemp = strTemp & ?
GetUrl = strTemp
geturl=mid(geturl,instr(geturl,?)+1)
Função final
Por exemplo: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Obtido como: dfsdfsf=dsfsdfd&aa=dddd