Le code de fonction permettant d'obtenir l'adresse et les paramètres de la page en cours en asp est souvent nécessaire. Il est spécialement organisé pour la commodité des amis qui en ont besoin. Copiez le code comme suit :
Fonction getCurrentUrl()
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)
finir si
strTemp = strTemp & Request.ServerVariables (URL)
getCurrentUrl = strTemp
Fonction de fin
Fonction getUrlWithParams()
Dim ScriptAddress, nom du serveur, qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
Nom du serveur = CStr(Request.ServerVariables(Server_Name))
qs=Request.QueryString
Si Request.ServerVariables(SERVER_PORT) <> 80 Alors
Nom du serveur = Nom du serveur & : & Request.ServerVariables (SERVER_PORT)
finir si
si qs<> alors
getUrlWithParams =http://& Nom du serveur & ScriptAddress &?&qs
autre
getUrlWithParams =http://& Nom du serveur et adresse de script
finir si
Fonction de fin