Escrito por Mauro Rondinelli el Miércoles 11 de Julio de 2001 a las 00:00hs
En este articulo veremos la forma de administrar la visualizacion de banners, esto lo haremos gracias al componente AdRotator que nos permite mostrar determinadas veces un banner. Este componente viene con el Windows NT Option Pack y para utilizarlo nesecitaremos 3 archivos...
Desarollemos cada uno...
muestra_banner.asp
<HTML>
<HEAD><TITLE>Banners</TITLE>
</HEAD>
<BODY>
<%
Dim Banners
Set Banners = Server.CreateObject("MSWC.AdRotator")
%>
<CENTER>
<%= Banners.GetAdvertisement("banners.txt") %>
</CENTER>
</BODY></HTML>
Bueno, primero lo que hacemos es crear el objeto mediante "CreateObject" una ves creado y para que nos muestre el banner debemos utilizar el metodo "GetAdvertisement" seguido del nombre del archivo que contiene la informacion sobre los banners a mostrar, este archivo es "banners.txt" y a continuacion veremos su contenido y formato.
banners.txt
REDIRECT adurl.asp
WIDTH 468
HEIGHT 60
BORDER 0
*
gim.gif
http://www.gim.com
Gim - Tu Lugar
50
elguru.gif
http://www.elguruprogramador.com.ar
El Guru Programador
25
websol.gif
http://www.websol.com
WebSol
25
Bueno, este archivo se divide en dos partes separadas con un asterisco, la primera contiene informacion general como...
Y lo que sigue despues es la lista de los banners con el siguiente formato...
Ok, una ves realizado todo esto falta el archivo "adurl.asp" que es el que se encarga de redireccionar a la pagina de destino...
adurl.asp
<%
Response.Redirect Request.QueryString("url")
%>
El parametro URL es pasado automaticamente por el AdRotator asi que lo unico que debemos hacer es recupererlo y redireccionar hacia esa url, tambien por lo general se realiza un contador que lleva el calculo del numero de clicks realizados en cada banner.
No hay comentarios.