FP2000:Récupérer l'URL d'une page Web en VBScript

Symptômes


Lorsque l'on clique sur un lien Hypertexte, est-il possible de récupérer
l'URL de la page Web contenant ce lien ?


Résolution


Les fonctionnalités proposées par FrontPage ne permettent pas de réaliser
implicitement une telle fonction.

Cependant il est tout à fait possible de récupérer l'URL d'une page Web
contenant un lien hypertexte lorsque l'on clique sur ce dernier, en
VBScript.


Exemple : Un site, dont l'adresse est "http: //www.MonSiteWeb.com ",
contient une page HTML (nommée : "MaPageWeb.htm") contient un lien
hypertexte pointant par exemple vers
http://www.microsoft.com/France/office/. Lorsque l'on clique sur ce lien,
on veut récupérer l'URL de la page actuelle en VBScript (ce qui donnerait
: "http: //www.MonSiteWeb.com/MaPageWeb.htm"). Cette URL sera affichée
dans une boîte de dialogue.


SOLUTION PROPOSEE:
==================

- Ouvrir FrontPage
- Dans la page vierge ouverte par défaut, cliquer sur l'onglet intitulé
"HTML" (en bas de la feuille)
- Sélectionner tout le contenu (CTRL + A)
- Copier - Coller le code suivant :

<HTML>
<HEAD>
<SCRIPT LANGUAGE='VBSCript'>
sub AfficherLienPageActuelle (RecupLien)
msgbox RecupLien
end sub
</SCRIPT>
</HEAD>
<BODY>
Page HTML.
<p><a href="http://www.microsoft.com/France/office/"
onClick="AfficherLienPageActuelle(document.URL)">Microsoft France
Office</a></p></BODY>
</HTML>

- Enregistrer la page via le menu Fichier\Enregistrer sous... puis saisir
le nom " MaPageWeb ". Format de fichier : htm (Cette page devra être
enregistrée dans la racine du site)


RESULTAT:
=========

Lorsque l'on clique sur le lien intitulé "Microsoft France Office", une
boîte de dialogue affichant l'URL ("http:
//www.MonSiteWeb.com/MaPageWeb.htm") de la page contenant le lien
hypertexte apparaît. Une fois que l'on clique sur le bouton "OK" de la
boîte de dialogue, le site correspondant à L'URL
"http://www.microsoft.com/France/office/" s'affiche dans le navigateur.

MOTS-CLES:
==========

La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette fiche technique :
VBScript, HTML, Internet Explorer, URL, Lien hypertexte, Programmation,
Web, Browser

kbother kbprb kbprg kbusage
Propriétés

ID d'article : 19913 - Dernière mise à jour : 19 juil. 2008 - Révision : 1

Commentaires