| auteur : David Pedehourcq | Imaginons ce bout de code sur une page appellée via l'url : http://localhost/mapage.aspx?id=1
Dim id As String
id = Request . Params (" id " )
|
id aura "1" comme valeur. Il s'agit bien de la chaîne de caractères "1" et non le chiffre 1.
|
| auteur : David Pedehourcq | 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
|
| auteur : David Pedehourcq |
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 . RawUrl
|
|
| auteur : Didier Danse |
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/".
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.
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
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2007
Developpez LLC. Tout 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'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|