Content Rotator (ASP 3.0)

Ejemplo

Componente Content Rotator
Cada vez que un usuario accede o actualiza una página, este componente muestra cadenas de contenido HTML diferentes.

Componente ASP Content Rotator

El componente ASP Content Rotator crea un objeto ContentRotator, que muestra una cadena de contenido HTML diferente cada vez que un usuario accede o actualiza una página.

Las cadenas de contenido pueden incluir etiquetas HTML, lo que te permite mostrar cualquier contenido que HTML pueda presentar: texto, imágenes, colores o enlaces.

Sintaxis

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

Cada vez que un usuario visualiza una página web, el siguiente ejemplo muestra contenido diferente. Primero, crea un archivo llamado "textads.txt" en la carpeta subdirectorio text ubicada en el directorio raíz del sitio.

"textads.txt":

%% #1
¡Este es un gran día!!
%% #2 
<h1>Smile</h1>
%% #3
<img src="smiley.gif">
%% #4
Aquí hay un <a href="http://www.codew3c.com">enlace</a>

Nota:En la posición de inicio de cada cadena de contenido se encuentra el número de #. Este número es un parámetro opcional utilizado para establecer el peso relativo de la cadena de contenido HTML. En este ejemplo, el Content Rotator tiene una probabilidad de una décima parte de mostrar la primera cadena de contenido, una probabilidad de dos décimas partes de mostrar la segunda cadena de contenido, una probabilidad de tres décimas partes de mostrar la tercera cadena y una probabilidad de cuatro décimas partes para la cuarta cadena.

Luego, crea un archivo ASP e inserta el siguiente código:

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

Métodos del componente ASP Content Rotator

Método Descripción Ejemplo
ChooseContent Obtener y mostrar una cadena de contenido específica 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.ChooseContent("text/textads.txt"))
    %>

Salida:
GetAllContent Recupera y muestra todas las cadenas de contenido del archivo de texto 
	<%
    dim cr
    Set cr=Server.CreateObject("MSWC.ContentRotator") 
    response.write(cr.GetAllContent("text/textads.txt"))
    %>

Salida: