Content Rotator (ASP 3.0)

Esempio

Componente Content Rotator
Ogni volta che un utente accede o aggiorna una pagina, questo componente visualizza stringhe di contenuto HTML diverse.

Componente ASP Content Rotator

Il componente ASP Content Rotator crea un oggetto ContentRotator, che visualizza una stringa di contenuto HTML diversa ogni volta che un utente accede o aggiorna una pagina. Un file di testo denominato elenco dei contenuti (Content Schedule File) contiene informazioni sulle stringhe di contenuto.

Le stringhe di contenuto possono includere tag HTML, quindi è possibile visualizzare qualsiasi contenuto HTML presentabile: testo, immagini, colori o link.

Sintassi

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

Ogni volta che un utente visualizza una pagina web, l'esempio seguente visualizza contenuti diversi. Prima di tutto, crea un file "textads.txt" nella sottocartella "text" situata nella directory radice del sito.

"textads.txt":

%% #1
This is a great day!!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Ecco un <a href="http://www.codew3c.com">link</a>

Attenzione:All'inizio di ogni stringa di contenuto c'è un numero #. Questo numero è un parametro opzionale e viene utilizzato per assegnare un peso relativo alla stringa di contenuto HTML. Nel presente esempio, il Content Rotator ha una probabilità del dieci per cento di visualizzare la prima stringa di contenuto, una probabilità del venti per cento di visualizzare la seconda stringa di contenuto, una probabilità del trenta per cento di visualizzare la terza stringa e una probabilità del quaranta per cento per la quarta stringa.

Quindi, crea un file ASP e inserisci il seguente codice:

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

Metodi del componente ASP Content Rotator

Metodo Descrizione Esempio
ChooseContent Recupera e visualizza una stringa di contenuto specifica 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Output:
GetAllContent Recupera e visualizza tutti i contenuti stringa di un file di testo 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Output: