Content Rotator (ASP 3.0)

Exemplo

Componente Content Rotator
Cada vez que um usuário acessar ou atualizar a página, o componente exibirá strings de conteúdo HTML diferentes.

Componente ASP Content Rotator

O componente ASP Content Rotator cria um objeto ContentRotator, que exibe uma string de conteúdo HTML diferente a cada vez que um usuário acessa ou atualiza uma página.

As strings de conteúdo podem conter tags HTML, permitindo que você exiba qualquer conteúdo que pode ser apresentado em HTML: texto, imagens, cores ou links.

Sintaxe

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

Cada vez que um usuário visualizar a página da web, o exemplo a seguir exibirá conteúdo diferente. Primeiro, crie um arquivo chamado "textads.txt" na subpasta "text" do diretório raiz do site.

"textads.txt":

%% #1
Este é um ótimo dia!!
%% #2 
<h1>Sorria</h1>
%% #3
<img src="smiley.gif">
%% #4
Aqui está um <a href="http://www.codew3c.com">link</a>

Atenção:No início de cada string de conteúdo, o número #. Este número é um parâmetro opcional usado para definir o peso relativo do conteúdo HTML. Neste exemplo, o Content Rotator tem uma chance de um décimo de mostrar a primeira string de conteúdo, uma chance de dois décimos de mostrar a segunda string de conteúdo, uma chance de três décimos de mostrar a terceira string e a quarta string tem uma chance de quatro décimos.

Em seguida, crie um arquivo ASP e insira o seguinte código:

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

Métodos do componente ASP Content Rotator

Método Descrição Exemplo
ChooseContent Obtenha e exiba uma string de conteúdo específica 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Saída:
GetAllContent Recupere e exiba o conteúdo de todas as strings de conteúdo no arquivo de texto 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Saída: