|
11 VBScript: aliohjelmat ja funktiot
VBScript-kieli sisältää yli 80 sisäänrakennettua funktiota. Tässä yhteydessä käymme esimerkin vuoksi läpi kaksi päivämääräfunktiota eli Date ilmoittaa päivän ja DateDiff erotuksen kahden eri päivämäärän välillä.
<HTML>
<HEAD>
<TITLE>VBScript esimerkki 1</TITLE>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
document.write("Tänään on: " & Date & "<br />")
document.write(DateDiff("d",Date,"12/24/2004"))
</SCRIPT>
</HTML>
|
13) Muuta esimerkki niin, että se laskee montako päivää on jouluun. Siis kirjoittaa "Jouluun on.." päivää
Tässä esimerkki siitä kuinka viikonpäivä saadaan näkyviin ja se tietysti vaihtuu, kun päivä vaihtuu.
<html>
<body>
<script type="text/vbscript">
d=weekday(date)
select case d
case 1
document.write("Sunnuntai")
case 2
document.write("Maanantai!")
case 3
document.write("Tiistai!")
case 4
document.write("Keskiviikko!")
case 5
document.write("Torstai")
case 6
document.write("Yes! Perjantai")
case else
document.write("Launtai!!!!")
end select
</script>
<p>HUOM! Tervehdys vaihtuu päivittäin</p>
</body>
</html>
|
Tässä taas yksinkertainen aliohjelma väreistä
<HTML>
<HEAD><TITLE>Väritesti</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub vari_1
Document.BGColor="yellow"
Document.FGColor="#FF0000"
End Sub
Sub vari_2
Document.BGColor="white"
Document.FGColor="#000000"
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="varijutska">
<INPUT TYPE="Button" NAME="pain1" VALUE="v1" onClick="vari_1">
<INPUT TYPE="Button" NAME="pain2" VALUE="v2" onClick="vari_2">
</FORM>
<SCRIPT LANGUAGE="VBScript">
<!--
Document.Write "Taustaväri = " & Document.BGColor & "<br>"
Document.Write "Tekstin väri = " & Document.FGColor & "<br>"
-->
</SCRIPT>
</BODY>
</HTML>
|
14) Muuta esimerkki niin, että siinä onkin viisi erilaista väripainiketta.
|