Fabrizio.tommasi.name

Le poche righe seguenti spiegano come ottenere un numero pseudo-causale in ASP.
Per fare questo è possibile usare la funzione di VBScript Rnd().
Il semplice utilizzo di questa funzione, tuttavia, non produce numeri "realmente casuali", in quanto genera sempre la stessa sequenza di numeri.
Per ovviare a questo, prima di utilizzare la funzione Rnd(), è necessario inizializzare il generatore di numeri casuali tramite l'istruzione Randomize(), che sfrutta il timer del sistema per generare una sequenza di numeri random.

Ecco come:

<%
Randomize()
Response.write Rnd()
%>

Il risultato di questo script è quello di produrre un numero decimale compreso tra 0 e 1.
Se abbiamo bisogno di un numero intero moltiplichiamo per 100 e facciamo un "cast" ad intero (funzione CInt) per eliminare i decimali ed ottenere un numero intero compreso tra 0 e 99.
Così:

<%
Randomize()
Response.write CInt(Rnd()*100)
%>

Se volessimo generare un numero compreso, ad esempio, tra 1 e 7 basterebbe fare:

<%
Dim Limite
Limite = 7
Randomize()
Response.Write CInt((Limite - 1)*Rnd() + 1 )
%>

Scritto il 15/08/2008 alle ore 11:00:00

Condividi su Facebook