• Programmazione » ASP » Tutorial ASP - Base

<%
'------------------------ DICHIARA TUTTE LE VARIABILI USATE

Dim tot_tips, one_tip, txt_tip

'----------------------- FUNZIONE CHE SELEZIONA CASUALMENTE LA FRASE
Randomize()

'---------------------- NUMERO MASSIMO DI SUGGERIMENTI
tot_tips = 3

' --------------------- GENERA UN NUMERO CASUALE FRA 1 E IL NUMERO
' --------------------- MASSIMO DI SUGGERIMENTI
one_tip = CInt( tot_tips*Rnd() + 1 )

'-------------------- SETTA IL TESTO DELLE FRASI

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.
'----------------- Per maggiori dettagli sulla "LOGICA DI TIPO
'----------------- CONDIZIONALE" , visita l'area "APPROFONDIMENTI ASP" ,
'----------------- cliccando qui

Case Else txt_tip = "Frase"

' -------------- TERMINA LA CONDIZIONE
End Select

' ------------- MOSTRA IL SUGGERIMENTO NEL SITO WEB
Response.Write( txt_tip )
%>

Abbiamo appena analizzato lo script asp, se però la frase da visualizzare non può entrare tutta in rigo (frasi molto lunghe), cosa fare?? Vediamolo subito. Basta semplicemente inserire la breve stringa "&_ Esempio:

 

.....

Case 1 txt_tip = "Mirabil Web Computer è il nuovo portale sul mondo dei "&_
"PC e dell'Informatica: Troverai ASP, Manuali, News, Dossier e "&_
"quant'altro riguardi il mondo dei PC."

Case 2 txt_tip = "Mirabil Web ADVBanner è il nuovo scambio banner "&_
"Per dettagli, clicca <a href=""http://www.advbanner.tk"">qui!</a>"

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 = "<a href=""http://www.webmasterpoint.org"">webmasterpoint.orgter</a>"

Ricordatevi però di inserire due virgolette alte ("") al posto di una ("),
altrimenti, verrà generato un errore.