Rotateur de contenu ASP



Composant ASP Content Rotator

Le composant ASP Content Rotator crée un objet ContentRotator qui affiche une chaîne de contenu différente chaque fois qu'un visiteur entre sur le site Web ou actualise la page.

Les informations sur la chaîne de contenu sont contenues dans un fichier texte appelé Content Schedule File.

Les chaînes de contenu peuvent contenir des balises HTML, vous permettant d'afficher tout type de contenu que HTML peut restituer : texte, images, couleurs ou hyperliens.

Syntaxe

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


Exemple de rotateur de contenu ASP

L'exemple ci-dessous affiche un contenu différent chaque fois qu'un visiteur parcourt la page Web.

Tout d'abord, créez un fichier texte nommé "textads.txt" et placez-le dans un sous-dossier nommé "text".

"textads.txt":

%% #3
<h2>C'est une belle journée !!</h2>

%% #3
<img src="../style/images/smiley.gif">

%% #4
<a href="http://www .w3cschool.cc">Visitez W3CSchool.cc</a>

Veuillez noter le numéro # au début de chaque chaîne de contenu. Ce nombre est un paramètre facultatif utilisé pour indiquer le poids relatif de la chaîne de contenu HTML. Dans le fichier texte ci-dessus, Content Rotator a 3 chances sur 10 d'afficher la première chaîne de contenu, 3 chances sur 10 d'afficher la deuxième chaîne de contenu et 4 chances sur 10 d'afficher la troisième chaîne.

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

Instance

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

Exécuter l'instance»

Cliquez sur le bouton « Exécuter l'instance » pour afficher l'instance en ligne



Méthodes du composant Rotateur de contenu ASP

MéthodeDescriptionExemple
ChooseContentObtenir et afficher une certaine chaîne de contenu. <%
方法描述实例
ChooseContent获取并显示某个内容字符串。<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>

输出:

smiley.gif

GetAllContent取回并显示文本文件中所有的内容字符串。<%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.GetAllContent("text/textads.txt"))
%>

输出:

This is a great day!!

smiley.gif

Visit W3CSchool.cc

dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator") response.write( cr.ChooseContent("text/textads.txt"))<🎜>%>

Sortie : <🎜><🎜>smiley.gif

GetAllContent< /td>Récupérer et afficher toutes les chaînes de contenu dans le fichier texte. <%<🎜>dim cr<🎜>Set cr=Server.CreateObject("MSWC.ContentRotator") <🎜>response.write( cr.GetAllContent("text/textads.txt")<🎜>%>

Sortie :

<🎜>C'est une excellente journée !!<🎜>

smiley.gif

Visitez W3CSschool.cc

<🎜><🎜>