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.