ASP Content Rotator (ASP 3.0)

Voorbeeld

Content Rotator-component
Elke keer als een gebruiker een pagina bezoekt of vernieuwt, toont deze component verschillende HTML-inhoudsstrings.

ASP Content Rotator-component

De ASP Content Rotator-component maakt een ContentRotator-object aan, dat elke keer dat een gebruiker een pagina bezoekt of vernieuwt, een andere HTML-inhoudsstring weergeeft. Een tekstbestand genaamd inhoudsagenda (Content Schedule File) bevat informatie over de inhoudsstrings.

Inhoudsstrings kunnen HTML-tags bevatten, zodat je elke inhoud kunt weergeven die HTML kan weergeven: tekst, afbeeldingen, kleuren of hyperlinks.

Syntaxis

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

Elke keer als een gebruiker de pagina bekijkt, wordt de volgende voorbeeldweergave van verschillende inhoud weergegeven. Maak eerst een bestand genaamd "textads.txt" aan in de submap text in de rootmap van de site.

"textads.txt":

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

Let op:De #nummering aan het begin van elke inhoudsstring. Dit nummer is een optionele parameter en wordt gebruikt om de relatieve gewicht van de HTML-inhoudsstring te bepalen. In dit voorbeeld heeft de Content Rotator een kans van een tiende om de eerste inhoudsstring weer te geven, een kans van twee tienden om de tweede inhoudsstring weer te geven, een kans van drie tienden om de derde string weer te geven, en de vierde string heeft een kans van vier tienden.

Maak vervolgens een ASP-bestand aan en voeg de volgende code toe:

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

Methoden van de ASP Content Rotator-component

Methode Beschrijving Voorbeeld
ChooseContent Ophalen en weergeven van een specifieke tekststring
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>
	

Uitvoer:

GetAllContent Ophalen en weergeven van alle tekststrings in het tekstbestand
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>
	

Uitvoer: