HTMLpointHTMLpoint HTMLpoint.com


 IIS: banner múltiples 3/3



En el caso de visualización de más de un banner en un único espacio de página, se debe construir un ASP específico que muestre al azar imágenes diversas cada vez que se carga la página.

La referencia a la página HTML queda prácticamente igual, mientras que el ASP se debe construir como sigue:

ROUTINE.ASP

<%
Dim Array(4) (el número de Array corresponde al número de banner)

' Initialize the VBScript Random

' Number Generator
Randomize
Array(1)="http://server*/banner_immagine1.gif"
Array(2)="http://server*/banner_immagine2.gif"
Array(3)="http://server*/banner_immagine3.gif"
Array(4)="http://server*/banner_immagine4.gif"
upperbound=UBound(Array)
lowerbound=1
lRandom = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Response.Redirect(Array(lRandom))
%>

Esto permite la visualización de cuatro banner diversos que aparecerán en secuencia random.
El enlace relativo a los banner será, sin embargo, el mismo para las cuatro visualizaciones. Para permitir una relación entre el banner visualizado y el respectivo enlace se deberá usar un ASP específico.
El código que figura a continuación produce un indicador específico para cada imagen mostrada, la elección operada por el cliente será transmitida al servidor que identificará el indicador correspondiente.

ROUTINE.ASP <%
Dim Array(4) (El número de Array corresponde al número de banner)
' Initialize the VBScript Random
' Number Generator
Randomize

Array(1)="http://server*/banner_immagine1.gif"
Array(2)="http://server*/banner_immagine2.gif"
Array(3)="http://server*/banner_immagine3.gif"
Array(4)="http://server*/banner_immagine4.gif"

upperbound=UBound(Array)

lowerbound=1
lRandom = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Response.Cookies("BannerId")=lRandom

Response.Redirect(Array(lRandom))

%>

La identificación se efectuará por parte del servidor con el siguiente ASP

LINK.ASP

<%

Dim Array(4)
lBannerId = Request.Cookies("BannerId")
Array(1)="http://www.***********"
Array(2)= "http://www.***********"
Array(3)="http://www.***********"
Array(4)= "http://www.***********"
Response.Redirect(Array(lBannerId))
%>



[ índice ]
  Vuelve a principio de página