Le composant AdRotator permet d'afficher des annonces différentes à chaque affichage d'une page ASP.
La déclaration ci-dessous, permet de créer une instance du composant AdRotator sous VBScript.
Set objet = Server.CreateObject("MSWC.AdRotator")Sous JScript, il suffit de remplacer l'instruction Set par var si l'objet n'a pas été préalablement déclaré, sinon supprimer la simplement.
Les annonces sont spécifiées dans un fichier texte spécifique pointé par la méthode GetAdvertissement(fichier).
objet.GetAdvertissement(nom_fichier)
Ce fichier de planification d'annonces possède le format suivant :
REDIRECT URL du fichier de redirection WIDTH largeur HEIGHT hauteur BORDER taille * URL de l'annonce URL Cible de l'annonce Commentaire Importance ...
Le paramètre REDIRECT permet de faire appel à un fichier tiers utilisé pour rediriger les liens.
Les paramètres width, height et border sont optionnels et définissent les dimensions de l'ensemble des annonces présentes dans le fichier.
L'adresse URL Cible de l'annonce correpond donc à un lien pointant vers le document à atteindre en cliquant sur l'image de l'annonce. Si aucune cible ne doit être indiquée, alors, un tiret (-) doit être spécifié.
Le paramètre Importance est représenté par un nombre représentant le pourcentage d'affichage de l'annonce à chaque chargement de la page. Ainsi plus une annonce est importante, plus le nombre est élevé par rapport aux autres. Dans l'exemple en bas du document, la première annonce sera affichée sur 25 pourcent des pages chargées, et pour les deux autres respectivement sur 20 et 15 pourcent.
Les Propriétés| Propriété |
|---|
| Description |
| Border |
| spécifie si l'annonce est entourée d'une bordure. |
| Clickable |
| spécifie si l'annonce rotative doit prendre la forme d'un lien. |
| TargetFrame |
| spécifie dans quelle cadre doit s'afficher le contenu pointé par l'annonce. |
| Méthode |
|---|
| Description |
| GetAdvertissement(nom_fichier) |
| retourne l'annonce suivante indiquée dans le fichier de planification d'annonces précisé par l'argument nom_fichier. |
<html>
<body>
<%
' Page hôte affichant les bannières aléatoires.
Dim objet
' Création de l'objet
Set objet = Server.CreateObject("MSWC.AdRotator")
Response.Write objet.GetAdvertisement("liste.txt")
' Destruction de l'objet
Set objet = Nothing
%>
<a href="adrotator.asp">Recharger la page</a>
</body>
</html>
<%
' Fichier de redirection des liens : lien.asp
Response.Redirect Request.QueryString("url")
%>
Fichier présentant le liste des bannières et liens : liste.txt
REDIRECT lien.asp
WIDTH 468
HEIGHT 60
BORDER 0
*
http://www.laltruiste.com/coursasp/images/alapage.gif
http://www.alapage.com/
Visitez la librairie en ligne!
5
http://www.laltruiste.com/coursasp/images/blackorange.gif
http://www.blackorange.com/
Découvrez la logithèque en ligne !
4
http://www.laltruiste.com/coursasp/images/oreilly.gif
http://www.editions-oreilly.com/
Découvrez le célèbre éditeur de livres !
3 |