|
|
Visualizzare
delle frasi diverse ad ogni reload di pagina |
Per visualizzare delle brevi frasi (suggerimenti, novità, informazioni) diverse ad ogni reload di pagina ASP basta sfruttare la tecnica esposta nell'articolo relativo alla generazione di numeri casuali unita alla struttura condizionale dell'istruzione CASE, così come mostrato nel seguente frammento di codice sorgente:
<%
' Dichiara tutte le variabili usate
Dim tot_tips, one_tip, txt_tip
' Inizializza il generatore pseudo-casuale
Randomize()
' Imposta il numero massimo di suggerimenti
tot_tips = 3
' Genera un numero pseudo-casuale compreso tra 1 e il massimo
one_tip = CInt( tot_tips*Rnd() + 1 )
' Setta il testo del suggerimento in base
' al valore del numero pseudo-casule
Select Case one_tip
Case 1 txt_tip = "<font color=red>Frase numero UNO</font>"
Case 2 txt_tip = "<font color=green>Frase numero DUE</font>"
Case 3 txt_tip = "<font color=blue>Frase numero TRE</font>"
Case Else txt_tip = "<b>Frase di comodo !!!</b>"
End Select
' Mostra a video il suggerimento
Response.Write( txt_tip )
%>
A cura di
Marco Girol
|
|
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti