Piccola guida sul VBScript: creare messaggi di benvenuto

[gymvideo]

Questa guida è rivolta a chi è un ignorantone del web ma anche a quelli che sanno ma non sanno molto .

Se volete rendere un sito più interattivo facendo uno script fatto in casa in cui chiede il nick e relativo messaggio fate così:

<language script="vbscript">
Dim nomegymvideo
nomegymvideo=inputbox("Scrivi il tuo nick! Benvenuto nel mio sito!!")
msgbox("Benvenuto " & nomegymvideo)
</script>

trampò vi darò altri script e non ho controllato se vanno bene o meno ma dovrebbero andare bene

[gymvideo]

Altra chicchina:

Per creare un quiz:


<script language=vbscript>
Dim Domanda1,domanda2,domanda3,punteggio
punteggio=0
Domanda1=inputbox("Di che colore è il cavallo bianco di napoleone?")
domanda2=inputbox("Quale è il nick di Gymvideo?")
domanda3=inputbox("Con che linguaggio è stato realizzato questo quiz?")
If domanda1="bianco" then
punteggio=punteggio+1
else
end if
if domanda2="Gymvideo" then
punteggio=punteggio+1
else
punteggio=punteggio-1
end if
if domanda3="vbscript" then
punteggio=punteggio+1
else
punteggio=punteggio-1
end if
msgbox("Il tuo punteggio è...... " & punteggio)
</script>

[kocam]

forse nel primo post intendevi <script non <language |)

[gymvideo]

eehehehe, quei piccoli errori che ti cambiano la vita

[nicjedi]

-__-
Guarda che se non devi scrivere il codice dell else, puoi cancellarlo, cioè puoi scrivere:
if....then
....
....
end if

e poi sbagli negli altri else, non dovresti togliere il punteggio. In questo modo se uno fa 1 domanda giustra e 2 sbagliate, si ritrova con punteggio = -1!!!

Ciao

Nicola

[gymvideo]

Novità assoluta
Editor testo html da input

<script language=vbscript>
Dim Richiesta
Richiesta=inputbox("Scrivi del testo e te lo tramuto in html !!!")
if richiesta="" then
msgbox("hei mongolo dovrai pur scrivere qualcosa!")
else
msgbox("<p>" & Richiesta & "</p>")
end if
</script>


Gymvideosoft - Codici inutili per il tuo sito

Datemi qualche idea per far codici nuovi altrimenti sforno ste cazzate

[gymvideo]

Altra cazzata:

Testoinfinitofinchètunonscriviesci 1.0

<script language=vbscript>
Dim INFINITO
do
INFINITO=inputbox("muahahahahaha")
loop while INFINITO<>"esci maledetto"
</script>