FAQ ASP.NET/VB.NET
FAQ ASP.NET/VB.NETConsultez toutes les FAQ
Nombre d'auteurs : 38, nombre de questions : 369, dernière mise à jour : 16 juin 2021
Sommaire→Navigation→General→Urls
Réponse : En utilisant le contructeur de la classe Uri comme ceci :
à partir de l'url courante :
Dim monUri As New Uri(Request.Url, "../../autrePage.aspx")
ou à partir de n'importe quelle Url :
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 :
Response.Redirect(monUri.ToString())
Merci à Julien Adam
Un petit bout de code trés simple qui affiche l'url de la page appelante.
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 !
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:
Dim urlAbsolue As String
urlAbsolue = Request.Url.ToString()tandis que l'url relative est récupérée par:
Dim urlRelative As String
urlRelative = Request.RawUrlLorsqu'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/".
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 FunctionBuildUrl permet d'ajouter le "http://" si celui-ci n'a pas été précisé dans l'Url.
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 FunctionIf Request.IsSecureConnection Then
Debug.WriteLine("Connexion sécurisée")
Else
Debug.WriteLine("Connexion non sécurisée")
End If