asp obtenir le résumé de la fonction URL

ASP obtient un résumé de la fonction url. Les amis qui en ont besoin peuvent s'y référer. Méthode 1 : simple, sans paramètres, seulement un chemin virtuel

Copiez le code comme suit :

GetUrl = requête (url)

Par exemple : http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

Obtenu sous le nom : shiyan.asp

Copiez le code comme suit :

<%

dim changdu,url,fin,wurl

changdu=len(request.ServerVariables(URL))

url=instrrev(request.ServerVariables(URL),/)

URL=URL+1

se termine = changdu + 1-url

wurl=mid(request.ServerVariables(URL),url,fins)

%>

Méthode 2 : obtenir l'URL complète et obtenir les paramètres

Copiez le code comme suit :

'Obtenir l'adresse de la page actuelle

Fonction GetUrl()

En cas d'erreur, reprendre ensuite

Dim strTemp

Si LCase(Request.ServerVariables(HTTPS)) = off Alors

strTemp = http://

Autre

strTemp = https://

Fin si

strTemp = strTemp & Request.ServerVariables (SERVER_NAME)

Si Request.ServerVariables(SERVER_PORT) <> 80 Alors strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)

strTemp = strTemp & Request.ServerVariables (URL)

Si Trim(Request.QueryString) <> Alors strTemp = strTemp & ? & Trim(Request.QueryString)

GetUrl = strTemp

Fonction de fin

Par exemple : http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

Obtenu sous : http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

Méthode 3 : obtenir le chemin virtuel et obtenir les paramètres

Copiez le code comme suit :

Fonction privée GetUrl()

Dim ScriptAddress, M_ItemUrl, M_item

ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'Obtenir l'adresse actuelle

M_ItemUrl=

Si (Request.QueryString <> ) Alors

ScriptAddress = ScriptAddress & ?

Pour chaque M_item dans Request.QueryString

Si M_item = page_num Alors Quittez pour 'La fonction ici est de filtrer les paramètres de Page_num (ce paramètre est défini par lui-même dans page_turn.asp et change en fonction des paramètres personnels), sinon cela se superposera à chaque fois que la page sera tournée. Les paramètres, bien qu'ils n'affectent pas la fonction, ne sont toujours pas bons ~~

Si InStr(page,M_Item)=0 Alors

M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&))

autre

M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &

Fin si

Suivant

Autre

ScriptAddress = ScriptAddress & ?

finir si

GetUrl = ScriptAddress & M_ItemUrl

Fonction de fin

Par exemple : http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

Obtenu sous :/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

Méthode 4 : obtenir uniquement la chaîne de paramètres

Copiez le code comme suit :

Fonction GetUrl()

En cas d'erreur, reprendre ensuite

Dim strTemp

Si LCase(Request.ServerVariables(HTTPS)) = off Alors

strTemp = http://

Autre

strTemp = https://

Fin si

strTemp = strTemp & Request.ServerVariables (SERVER_NAME)

Si Request.ServerVariables(SERVER_PORT) <> 80 Alors strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)

strTemp = strTemp & Request.ServerVariables (URL)

Si Trim(Request.QueryString) <> Alors strTemp = strTemp & ? & Trim(Request.QueryString)

GetUrl = strTemp

geturl=milieu(geturl,instr(geturl,?)+1)

Fonction de fin

Par exemple : http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

Obtenu sous la forme : dfsdfsf=dsfsdfd&aa=dddd