Articulos de Colaboradores
Codigos Fuente
Compiladores
Documentos y Manuales
Programas y Librerias
Recursos y Articulos
Videotutoriales
Servidores (Aplicaciones)
Controles ActiveX

Analisis SEO
Conocer PageRank
Encriptar JS/HTML
Convertir HTML a JavaScript
Convertir HTML/JS a PHP
Tablas ASCII/HTML
Alertas de Virus
Base Windows API
Directorio de Empresas
Libros de Informatica
Rotador de Banners

ARTICULOS TECNICOS SOBRE PROGRAMAS Y PROGRAMACION
PROGRAMACION Y DISEƑO PARA PROGRAMADORES Y WEBMASTERS


Un Rotador de Banners al Azar - Programacion y Codigos en Perl







Un Rotador de Banners al Azar
Christian Gustavo Riva

El siguiente codigo te mostrara una de las formas en las cuales puedes hacer facilmente un script en Perl que despliegue al azar anuncios publicitarios (Banners) en tu Sitio Web.

Ademas, este mismo codigo te permitira gestionar banners de diferentes medidas en forma simultanea, por lo que una vez configurado podras agregarlo en distintos espacios de tus paginas para visualizar multiples anuncios.

Para implementarlo deberas generar el archivo banners.pl con el codigo listado, copiarlo a tu FTP y asignarle los permisos correspondientes de ejecucion, y luego agrega en tus paginas una referencia al script en SSI de la siguiente forma:

<!--#include virtual="/ruta_del_script/banners.pl?X" -->

Donde deberas reemplazar la X por el Formato de banners que quieres mostrar en determinadas posiciones de las paginas.

Recuerda que el codigo es para uso libre y su finalidad es introducirte en los conceptos que trata y animarte a que experimentes por tu cuenta.

BANNERS.PL
###################################
# (C) 2001 Christian Gustavo Riva #
# http://www.programasprogramacion.com #
###################################
#!/usr/bin/perl
## Requerido para servidores Unix/Linux unicamente.

$formato = $ENV{'QUERY_STRING'};
## Tomamos del entorno la variable QUERY_STRING, la cual contiene
## todo lo que se encuentre seguido al signo ? en la linea que llamo
## al script (/ruta_del_script/banners.pl?2)

if ($formato==1) { $banner=&Formato_1(); }
elsif($formato==2) { $banner=&Formato_2(); }
else { $banner="Formato incorrecto o no especificado."; }
## En estas lineas lo que hacemos es asignar a la variable $banners
## el codigo HTML que corresponda mostrar.
## Segun el $formato reconocido (en el paso previo) peticionamos
## la asignacion de la variable a distintas funciones
## (en el ejemplo denominadas Formato_1 y Formato_2).

print "Content-type: text/html\n\n";
## Le indicamos al cliente (Navegador) el tipo de datos que le
## enviaremos (html).

print $banner;
## Y finalmente enviamos el codigo html del banner a mostrar
## (o en su defecto un mensaje de error).

exit;

## Funciones donde deberemos configurar los Banners ##

sub Formato_1()
{
@htm = ( 'codigo del banner1', 'codigo del banner2','etc' );

return( $htm[rand(@htm)] );
}

sub Formato_2()
{
@htm = ( 'codigo del banner3', 'codigo del banner4','etc');

return( $htm[rand(@htm)] );
}

## Observa que en ambas funciones hacemos lo mismo:
## - Creamos una variable List (vector en 1xn), a la cual
## le asignamos para cada uno de sus items el codigo
## html (completo) del banner a mostrar. El codigo html
## que ingresemos estara delimitado por comillas simples
## para no tener que utilizar codigos de escape (\", por ej).
## De esta forma, asignamos a la variable @htm de la
## funcion Formato_1 cada uno de los banners entre
## los cuales debera elegir. E idem para su homonima
## pero de la funcion Formato_2.
## - Una vez asignados los codigos, solo retornamos como
## valor de la funcion uno de los items seleccionado al azar.
## (recuerda que al comienzo asignamos a nuestra variable
## $banner el valor que estas funciones devuelven).

## En todos los casos, el codigo HTML que representa un
## banner debera ser del tipo:
## <a href="http://www.destino.com">
## <img src="http://www.destino.com/grafico.gif">
## </a>
## Incluso puedes utilizar codigo en JavaScript, o cualquier
## otro (Rich Media inclusive), solo deberas tener cuidado
## de las comillas simples que este codigo contenga.
 






A continuacion puedes escribir tus comentarios sobre esta pagina:





ProgramasProgramacion.com (ex-CGR Software.com) © 2001-2018 C.G.R. @ Buenos Aires, Republica Argentina
Contacto | Thumbshots