...Personalizza la tua HomePage...
Questa Sezione è Dedicata a Tutti i Webmaster Nofiti e Non
| Frasi Random ad ogni Reload di Pagina | ||||
|
||||
| Questo script serve a visualizzare delle frasi diverse ad ogni reload (aggiornamento) di una pagina asp. Ottimo per "locandine" di News, Pillole o alto... Ecco il codice asp, commentato in tutte le sue parti, consiglio sempre di commentare il codice aiuterà a risparmiare tempo quando si vorrà modificarlo in un secondo momento. <% ' dichiarazione variabili usate Dim tot_tips, one_tip, txt_tip 'randomizza un numero Randomize() 'numero massimo di frasi tot_tips = 10 'genera un umero compreso tra 1 e il numero massimo one_tip = CInt( tot_tips*Rnd() + 1 ) 'imposta il testo delle frasi 'con una piccola modifica si può far pescare la frase su di un database Select Case one_tip Case 1 txt_tip = "Frase numero UNO" Case 2 txt_tip = "Frase numero DUE" Case 3 txt_tip = "Frase numero TRE" ' La seguente frase non verrà mai visualizzata, perchè non 'verrà mai generato un numero che è diverso da 1,2,3...,10 'ma è meglio prevedere anche errori impossibili Case Else txt_tip = "Frase" End Select 'mostra la frase Response.Write( txt_tip ) %> Abbiamo appena analizzato lo script asp, se però la frase da visualizzare è troppo lunga da entrare tutta in una riga, ecco come fare. Vediamolo subito. Basta semplicemente inserire la breve stringa "&_ Esempio: Case 1 txt_tip = "Nulla è più pericoloso "&_ "di un grande pensiero "&_ "in un piccolo cervello." Case 2 txt_tip = "Eagleyes.it il Portale per i Webmaster"&_ " qui trovi quello che cerchi." Case 3 txt_tip = "Terza Frase" ..... Come avete notato è possibile utilizzare nelle frasi casuali anche i tag HTML, per esempio se si vuole inserire un link ad un sito web, basta semplicemente, inserire: Case 1 txt_tip = "frase..." Ricordatevi però di inserire due virgolette alte ("") al posto di una ("), altrimenti, verrà generato un errore. |
