ASP Content Rotator Composant ASP (3,0)
Composant ASP Content Rotator
Le composant Content Rotator ASP crée un objet ContentRotator qui affiche une chaîne de contenu différent à chaque fois qu'un visiteur pénètre ou actualise la page.
Un fichier texte, appelé le fichier du programme de contenu, comprend les informations sur les chaînes de contenu.
Les chaînes de contenu peut contenir des balises HTML de sorte que vous pouvez afficher n'importe quel type de contenu que le HTML peut représenter: textes, images, couleurs, ou des liens hypertextes.
Syntaxe
<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>
ASP Exemple de contenu des rotateurs
L'exemple suivant affiche un contenu différent à chaque fois qu'un visiteur affiche la page Web.
D'abord, créez un fichier texte nommé "textads.txt" et le placer dans un sous-dossier appelé "texte".
"Textads.txt":
%% #3
<h2>This is a great day!!</h2>
%% #3
<img src="smiley.gif">
%% #4
<a href="http://www.w3schools.com">Visit W3Schools.com</a>
<h2>This is a great day!!</h2>
%% #3
<img src="smiley.gif">
%% #4
<a href="http://www.w3schools.com">Visit W3Schools.com</a>
Notez le numéro # au début de chaque chaîne de contenu. Ce nombre est un paramètre facultatif qui indique le poids relatif de la chaîne de contenu HTML. Dans le fichier texte ci-dessus, le Content Rotator affichera la chaîne de contenu des premier et second de trois dixième du temps, et la troisième chaîne de quatre dixièmes du temps.
Ensuite, créez un fichier ASP, et insérez le code suivant:
Exemple
<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>
Afficher un exemple »
Composant ASP Content Rotator de méthodes
| Méthode | Description | Exemple |
|---|---|---|
| ChooseContent | Obtient et affiche une chaîne de contenu | <% dim cr Set cr = Server.CreateObject ("MSWC.ContentRotator") response.write (cr.ChooseContent ("text / textads.txt")) %>Sortie:  |
| GetAllContent | Récupère et affiche 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 un grand jour!Visitez W3Schools.com |
0 commentaires:
Post a Comment
HELLO VISITORS THANKS FOR YOUR VISIT AND COMMENT