Banners aleatorios sin AdRotator

La mayoría de los sitios medianamente importantes de hoy en día tienen como objetivo a demás de dar a conocer las ideas y opiniones o brindar información de el o los autores. Generar algunos ingresos para que el trabajo que costo desarrollar el sitio, no sea totalmente en bano.
Por eso es muy útil, utilizar algún sistema que muestre la cantidad mas variada de banners en un espacio determinado que los diseñadores del sitio crean conveniente y que no arruine el estilo sitio. Para esto se utilizan script's ASP, JavaScript, PHP, etc. Que hacen que varias imagen, en este caso banners se carguen aleatoria mente cuando se carga una página X del sitio.

Cuando hablamos de AdRotator, hablamos de un componente que tienen normalmente los servidores lo que hace este componente es justo lo que queremos lograr ahora, pero a pesar de todas las ventajas que tiene, como poder configurar el porcentaje de aparición de los sitios y ser de fácil configuración. Tiene la desventaja que toda la configuración de las imágenes o banners que se van a mostrar se extraen de un archivo de texto .txt. Esto dificulta un poco la tarea de actualización del sitio, por ejemplo a la hora que queramos modificar un link de una página de un sponsor y estemos en un cyberbar o en la oficina, donde no disponemos de un cliente FTP, para bajar el txt, editarlo y volverlo a subir.
La única manera de solucionar el problema es no usar el AdRotator y crearnos un sistema de rotación de banners nosotros mismos y que además utilice base de datos. Esto para poder programar un simple administrador que sea accesible desde cualquier máquina que pueda tener acceso a una internet.

Para hacer que el sistema funcione correctamente, debemos crear una base de datos con una tabla llamada patrocinadores que contenga los campos: sponsor, url y imagen. Los tres campos sponsor, url y imagen van a ser de tipo texto. Los valores de los mismo serán: Sponsor, el nombre del patrocinador; Url, la dirección HTTP del patrocinador y Imagen, la dirección completa de la images. Cuando tengamos guardada la base de datos, hacemos lo siguiente: Abrimos el bloc de notas y creamos un archivo .inc donde vamos a ingresar el código que vemos a continuación:

archivo.inc

  
<%

    Dim dbc,rs,rn

    Set dbc=Server.CreateObject("ADODB.Connection") 'Creamos el objeto de conexión

    Set rs=Server.CreateObject("ADODB.RecordSet") 'Creamos el objeto recordset
  
'Abrimos la conexión a la base de datos

    dbc.open "dnsusuario"
  
'Hacemos la consulta SQL a la tabla

    rs.open "Select * from patrocinadores",dbc,3,3
  
'Iniciamos el motor de numeros aleatorios

    RANDOMIZE

    'Asignamos a la variable rn un numero aleatorio entre el numero de registros o sponsors y 0

    rn = int(rs.recordcount*rnd)
  
'nos movemos al primer registro para luego movernos a el numero de sponsor aleatorio

    rs.movefirst

    rs.move(rn)
  
'Mostramos la imagen con un link y ALT.

    Response.Write("<A HREF="&RS("URL")&">")

    Response.Write("<IMG SRC="&RS("imagen")&" ALT="&RS("sponsor")&" BORDER=0>")

    Response.Write("</A>")
   

			
Siguiente
		
	
	
	
	

Usuarios que han visto este tema también han visto...


 - Cómo redondear decimales con ASP
 - Como poner Wiewstate para optimizar Google
 - Uso del objeto diccionario de ASP
 - Agrupa el código ASP
 - Validar usuarios con Sesiones con ASP

	

	

	 - Versión imprimible de este documento

	 - Enviar por e-mail este documento