FAQ ASP.NET/VB.NETConsultez toutes les FAQ

Nombre d'auteurs : 38, nombre de questions : 369, dernière mise à jour : 28 juin 2013 

 
OuvrirSommaireNavigationGeneralUrls

Réponse : En utilisant le contructeur de la classe Uri comme ceci :

à partir de l'url courante :

 
Sélectionnez

Dim monUri As New Uri(Request.Url, "../../autrePage.aspx")
				



ou à partir de n'importe quelle Url :

 
Sélectionnez

Dim monUri As New Uri(New Uri("http://www.exemple.com/Contenu/Categorie/Test.aspx"),  _
 "../../autrePage.aspx")
				

On peut obtenir une réprésentation sous forme de chaîne au lieu d'un objet Uri en appelant ToString() sur les instances d'Uri :

 
Sélectionnez

Response.Redirect(monUri.ToString())
				



Merci à Julien Adam

Mis à jour le 19 juin 2005  par David Pedehourcq

Un petit bout de code trés simple qui affiche l'url de la page appelante.

 
Sélectionnez

Dim str As String
str = Request.ServerVariables("HTTP_REFERER")
Response.Write(str)
				



Attention lors des post back, la page appelante est la page en cours !

Créé le 21 janvier 2004  par David Pedehourcq

Lien : Working With Server Variables in ASP.NET
Lien : Comment détecter le navigateur d'un visiteur ?
Lien : Comment détecter le langage du navigateur d'un visiteur ?
Lien : Comment récupérer l'adresse ip d'un visiteur ?

Nous allons voir ici comment récupérer l'url complète (avec les paramètres) de la page sur laquelle on se trouve. L'url absolue s'obtient par:

 
Sélectionnez

Dim urlAbsolue As String
urlAbsolue = Request.Url.ToString()
				

tandis que l'url relative est récupérée par:

 
Sélectionnez

Dim urlRelative As String
urlRelative = Request.RawUrl
				
Créé le 12 octobre 2003  par David Pedehourcq

Lorsqu'une adresse n'existe pas ou que la page ne peut être affichée pour quelque raison que ce soit, le serveur d'application Web (quelqu'il soit également) renvoie un numéro d'erreur.
La fonction ci-dessous envoie false si une exception est lancée lors de la "lecture" de la page.
On remarquera que le même test est présent dans le catch car certains serveurs font une différence entre "http://site/rep" et "http://site/rep/".

 
Sélectionnez

Public Shared Function UrlIsValid(ByVal Host As String) As Boolean
	Dim oRequest As HttpWebRequest = Nothing
	Dim oResponse As HttpWebResponse = Nothing
	Try
		oRequest = CType(WebRequest.Create(BuildUrl(Host)), HttpWebRequest)
		oResponse = CType(oRequest.GetResponse, HttpWebResponse)
		Return True
	Catch generatedExceptionVariable0 As Exception
		Try
			oRequest = CType(WebRequest.Create(BuildUrl(Host) + "\"), HttpWebRequest)
			oResponse = CType(oRequest.GetResponse, HttpWebResponse)
			Return True
		Catch generatedExceptionVariable0 As Exception
			Return False
		End Try
	End Try
End Function
				

BuildUrl permet d'ajouter le "http://" si celui-ci n'a pas été précisé dans l'Url.

 
Sélectionnez

Public Shared Function BuildUrl(ByVal Url As String) As String
	If Url.StartsWith("http://") Then
		Return Url
	End If
	Return Url.Insert(0, "http://")
End Function
				
Créé le 19 juin 2005  par Didier Danse
 
Sélectionnez

If Request.IsSecureConnection Then
	Debug.WriteLine("Connexion sécurisée")
Else
	Debug.WriteLine("Connexion non sécurisée")
End If
Créé le 29 mai 2006  par Didier Danse
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2007 Dotnet Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.