Un semplice circuito di rotazione banner

ASP E-Commerce con ASP Menu Javascript Area Aziende Cocktail Registrazione domini

Home + Articoli + Banner e Advertising + Articolo # 83

Grazie alle funzioni predefinite Randomize e Rnd del VBScript, e grazie all'utilizzo degli array, possiamo creare un semplicissimo circuito di rotazione banner per le nostre pagine ASP.

Negli articoli appena indicati abbiamo visto cosa vuol dire gestire numeri casuali e cosa sono gli array.Non ci resta che mettere insieme le nostre conoscenze, aggiungere un pizzico di fantasia ed il circuito è pronto!

Di seguito un semplice esempio di codice

<%
    Dim banner(2)

    banner(0) = "<a href='http://www.a.ext'><img src='a.gif'></a>"
    banner(1) = "<a href='http://www.b.ext'><img src='b.gif'></a>"

    Dim casuale
    Randomize()
    casuale = CInt(Rnd() * (UBound(banner) - 1))

    Response.Write banner(casuale)
%>

Il procedimento è semplice: dichiaro l'array e dichiaro il numero di occorrenze, elenco i banner del circuito, randomizzo l'output ed in fine mostro il banner.