Analyse et résumé de plusieurs méthodes permettant à asp d'obtenir les paramètres d'URL

ASP doit utiliser cette fonction pour obtenir l'URL actuelle, ou obtenir tous les paramètres de la page actuelle. Je ne l'ai pas beaucoup testé, je vous donnerai le code spécifique après le test.

Si l'adresse est :

http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html

Méthode 1 : simple, sans paramètres, seulement un chemin virtuel

Copiez le code comme suit :

GetUrl =request(url) 'Comme nous n'avons pas le mot url=, nous pouvons le transmettre directement.

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

Après avoir testé ce code, le chemin obtenu est :

/test/geturl.asp?Param-VR52tmx3syn03777.html=

Méthode 2 : 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. Bien que les paramètres n'affectent pas la fonction, ils 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

L'adresse obtenue par le code ci-dessus est

http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html

En principe pareil

Si nous voulons juste obtenir la chose après le numéro ?, nous pouvons utiliser le code suivant

Copiez le code comme suit :

réponse.write replace (request.querystring,.html,)

Ce que nous obtenons est Param-VR52tmx3syn03777. Répond-il à nos besoins ?

PS : Toutes les situations ci-dessus concernent uniquement l'ASP pur. Si elles sont combinées avec la réécriture d'url, les fonctions seront améliorées et la convivialité de la recherche sera également améliorée.