Guida VBScript
Capitolo 20° - Includere applicazioni in pagine web
Nelle pagine web, si può scrivere dentro (anche tag html), per fare questo si usa la funzione "Document.Write":
FUNZIONE: document.write(text -string) text è il testo (tag inclusi) da visualizzare. Ecco adesso un esempio (con un'applicazione vista precedentemente) CODICE: <HTML> <HEAD> <TITLE>Costruisco la pagina HTML con VBS</TITLE> </HEAD> <BODY bgcolor=lightgoldenrodyellow> <script language=vbscript> <!-- On Error Resume Next document.write("Ciao, l'url di questa pagina e': " & document.URL & "<br />") 'Visualizza l'url document.write("Il colore di sfondo di questa pagina e': " & document.bgColor & "<br />") 'Visualizza il colore di sfondo document.write("Il titolo del documento e': " & document.title & "<br /> <br />") 'Visualizza il titolo document.write("Ecco un esempio di applicazione VBScript <br /> <br /> <br />") 'Visualizza un testo semplice Dim n,elev n = InputBox("Inserisci un numero") 'La variabile n è un numero elev=1 'Le volte dell'elevamento a potenza è 1 If CDbl(n)/2 <> Int(CDbl(n)/2) Then 'Se n/2 è diverso dalla forma intera 'di n/2 (dispari), allora n = n + 1 'Aggiunge 1 per rendere pari il numero End If Do Until n = 2 'Esegue fino a quando n è uguale a 2 document.write(n & " : 2 e' uguale a " & CDbl(n/2) & "<br />") 'Visualizza il risultato n = CInt(n/2) 'Divide per due n elev = elev+1 'Incrementa l'elevamento Loop document.write("<b> 2 ^ " & elev & " = " & CInt(n)^elev & "</b> (Elevamento a potenza piu' vicino al numero di partenza). <br />") 'Visualizza in un messaggio l'elevamento effettuato --> </script> </BODY> </HTML> Da notare è che ci sono "document.URL", "document.bgColor" e "document.title". Che rispettivamente sono i valori dell'url, del colore di sfondo e del titolo della pagina.
|