ASP Content Rotator (ASP 3.0)

Exempel

Content Rotator-komponenten
Visar olika HTML-innehållssträngar varje gång en användare besöker eller uppdaterar en sida.

ASP Content Rotator-komponenten

ASP Content Rotator-komponenten skapar en ContentRotator-objekt, som visar en annan HTML-innehållssträng varje gång en användare besöker eller uppdaterar en sida. En textfil som kallas innehållskalenderfil (Content Schedule File) innehåller information om innehållssträngarna.

Innehållssträngar kan innehålla HTML-taggar, så att du kan visa vilket som helst innehåll som HTML kan visa: text, bild, färg eller länk.

Syntaks

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

Varje gång en användare visar en webbsida visas följande exempel med olika innehåll. Skapa först en fil namngiven "textads.txt" i en mapp under webbplatsens rotkatalog i mappen text.

"textads.txt":

%% #1
Detta är en fantastisk dag!!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Här är en <a href="http://www.codew3c.com">länk</a>

Observera:En #nummer vid varje innehållssträngs början. Detta nummer är ett valfritt argument som används för att ge HTML-innehållssträngar relativa vikt. I detta exempel har Content Rotator en tio procent chans att visa den första innehållssträngen, en tjugofem procent chans att visa den andra innehållssträngen, en trettio procent chans att visa den tredje strängen och den fjärde strängen har en tjugofyra procent chans.

Skapa sedan en ASP-fil och infoga följande kod:

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

Metoder för ASP Content Rotator-komponenten

Metod Beskrivning Exempel
ChooseContent Hämta och visa en viss innehållssträng 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Utdata:
GetAllContent Återfå och visa alla innehållssträngar i textfilen 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Utdata: