ASP erhält eine Zusammenfassung der URL-Funktion. Freunde, die sie benötigen, können darauf verweisen. Methode 1: Einfach, keine Parameter, nur ein virtueller Pfad
Kopieren Sie den Codecode wie folgt:
GetUrl =request(url)
Zum Beispiel: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Erhalten als: shiyan.asp
Kopieren Sie den Codecode wie folgt:
<%
dim changdu,url,ends,wurl
changdu=len(request.ServerVariables(URL))
url=instrrev(request.ServerVariables(URL),/)
URL=URL+1
endet=changdu+1-url
wurl=mid(request.ServerVariables(URL),url,ends)
%>
Methode 2: Holen Sie sich die gesamte URL und rufen Sie die Parameter ab
Kopieren Sie den Codecode wie folgt:
'Holen Sie sich die Adresse der aktuellen Seite
Funktion GetUrl()
Bei Fehler Weiter fortsetzen
Dimmen Sie strTemp
Wenn LCase(Request.ServerVariables(HTTPS)) = off Dann
strTemp = http://
Anders
strTemp = https://
Ende wenn
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
Wenn Request.ServerVariables(SERVER_PORT) <> 80, dann strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Request.ServerVariables(URL)
Wenn Trim(Request.QueryString) <> Then strTemp = strTemp & ? & Trim(Request.QueryString)
GetUrl = strTemp
Funktion beenden
Zum Beispiel: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Erhalten als: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Methode 3: Rufen Sie den virtuellen Pfad und die Parameter ab
Kopieren Sie den Codecode wie folgt:
Private Funktion GetUrl()
Dimmen Sie ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'Holen Sie sich die aktuelle Adresse
M_ItemUrl=
If (Request.QueryString <> ) Then
ScriptAddress = ScriptAddress & ?
Für jedes M_item in Request.QueryString
If M_item = page_num Then Exit for 'Die Funktion hier besteht darin, die Parameter von Page_num herauszufiltern (dieser Parameter wird in page_turn.asp selbst festgelegt und ändert sich entsprechend den persönlichen Einstellungen), andernfalls wird dieser bei jedem Umblättern überlagert. Parameter haben zwar keinen Einfluss auf die Funktion, sind aber dennoch nicht gut~~
Wenn InStr(page,M_Item)=0 Dann
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&))
anders
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &
Ende wenn
Nächste
Anders
ScriptAddress = ScriptAddress & ?
Ende wenn
GetUrl = ScriptAddress & M_ItemUrl
Funktion beenden
Zum Beispiel: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Erhalten als:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Methode 4: Nur die Parameterzeichenfolge abrufen
Kopieren Sie den Codecode wie folgt:
Funktion GetUrl()
Bei Fehler Weiter fortsetzen
Dimmen Sie strTemp
Wenn LCase(Request.ServerVariables(HTTPS)) = off Dann
strTemp = http://
Anders
strTemp = https://
Ende wenn
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
Wenn Request.ServerVariables(SERVER_PORT) <> 80, dann strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Request.ServerVariables(URL)
Wenn Trim(Request.QueryString) <> Then strTemp = strTemp & ? & Trim(Request.QueryString)
GetUrl = strTemp
geturl=mid(geturl,instr(geturl,?)+1)
Funktion beenden
Zum Beispiel: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Erhalten als: dfsdfsf=dsfsdfd&aa=dddd