Composant Content Rotator (ASP 3.0)

Exemple

Composant Content Rotator
Lorsque chaque utilisateur accède ou rafraîchit une page, ce composant affiche des chaînes de contenu HTML différentes.

Composant ASP Content Rotator

Le composant ASP Content Rotator crée un objet ContentRotator, qui affiche une chaîne de contenu HTML différente chaque fois qu'un utilisateur accède ou rafraîchit une page. Un fichier texte nommé fichier de plan de contenu (Content Schedule File) contient des informations sur les chaînes de contenu.

Les chaînes de contenu peuvent inclure des balises HTML, ce qui vous permet de visualiser tout contenu HTML présentable : texte, image, couleur ou lien hypertexte.

Syntaxe

<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>

Lorsque chaque utilisateur consulte une page Web, l'exemple suivant affiche du contenu différent. Créez d'abord un fichier nommé "textads.txt" dans le dossier texte du répertoire racine du site.

"textads.txt":

%% #1
C'est une grande journée !!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Voici un <a href="http://www.codew3c.com">lien</a>

Attention :Un numéro de # à l'emplacement de début de chaque chaîne de caractères de contenu. Ce numéro est un paramètre optionnel, utilisé pour définir le poids relatif de la chaîne de contenu HTML. Dans cet exemple, le Content Rotator a une chance sur dix de montrer la première chaîne de contenu, une chance sur deux de montrer la deuxième chaîne de contenu, une chance sur trois de montrer la troisième chaîne de contenu, et la quatrième chaîne de contenu a une chance sur quatre.

Ensuite, créez un fichier ASP et insérez le code suivant :

<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>

Méthodes du composant ASP Content Rotator

Méthode Description Exemple
ChooseContent Obtenir et afficher une chaîne de caractères spécifique 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Sortie :
GetAllContent Récupérer et afficher toutes les chaînes de caractères du fichier de texte 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Sortie :