Crear banners aleatorios


Asp ya tiene una función especializada para esta labor; el AdRotator; para utilizarlo primero tienes que crear un txt; con un contenido como este:

REDIRECT adredir.asp
WIDTH 300
HEIGHT 40
BORDER 0
*
imagen1.jpg
http://www.mcanam.com/
Visite McAnam
60
imagen2.jpg
http://www.programasweb.com/
Visite ProgramasWeb
40
El REDIRECT linca la página a un asp intermediario.
El WIDTH el HEIGHT y el BORDER le añaden sus etiquetas HTML que le dan el ancho, el alto y el grosor de borde; estos son los datos "fijos".A continuación (después del *) se ponen los datos de cada banner.
El primer dato es la dirección de la imagen; el segundo la dirección de la página a la que queremos lincar; el tercero es el "alt" o mensaje que aparece cuando el ratón pasa por encima y el cuarto las posibilidades en porcentaje de que esta página aparezca.
Esto lo que hace es meter la imagen y cuando el usuario cliquee pasarle dos variables a adredir.asp (Señalado por el REDIRECT) que son 'url' e 'image'; la que nos interesa es url para mandar al usuario a la página del banner (el segundo dato).
Asi adredir.asp debería tener un código parecido a este:
<%
Response.Redirect Request.QueryString("url")
%>
Por fin el código que hemos introducido establece la variable anuncios como AdRotator; a la que la decimos que se cargue en una nueva página (_blank) y la última línea le dice de donde debe coger los datos; en este caso banners.txt



Código:
<%
    'Copyright © 2002 McAnam.com
    dim Anuncios
    Set Anuncios = Server.CreateObject("MSWC.AdRotator")
    Anuncios.TargetFrame="_blank"
    Response.Write Anuncios.GetAdvertisement("banners.txt")
%>


Para cualquier duda, consulta, sugerencia, opinión, colaboración, etc; no dude en ponerse en contacto con nosotros

Copyright © 2002-2017 [McAnam]. Reservados todos los derechos.
www.mcanam.com