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.
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.
A cura di: Membro non piu' appartenente alla Community