色々なＶＢ Ｓｃｒｉｐｔ

３．時間帯によって、メッセージが変わる。




罫線で挟まれた部分にメッセージが表示されます。
↓
↑



このスクリプトは、次のように書かれています。

<HTML>
<HEAD>
<TITLE>**********</TITLE>
</HEAD>

<BODY>
<CENTER>
罫線で挟まれた部分にメッセージが表示されます。<BR>
↓
<HR WIDTH="40%">
<FONT SIZE="4" COLOR="#ff0000">
<B>
<SCRIPT LANGUAGE="VBScript">
<!- -
today=Time
h=Hour(today)
If h>=0 And h<4 Then
document .write "夜も更けてまいりました。「おやすみＴｉｍｅです」"
ElseIf h>=4 And h<6 Then
document .write "もうすぐ夜明けですよ。"
ElseIf h>=6 And h<10 Then
document .write "おはようございます！！"
ElseIf h>=10 And h<12 Then
document .write "まもなく「昼食Ｔｉｍｅです」"
ElseIf h>=12 And h<13 Then
document .write "お昼のひととき、いかがお過ごしですか？"
ElseIf h>=13 And h<17 Then
document .write "こんにちは！！"
ElseIf h>=17 And h<19 Then
document .write "夕飯は何かな？"
ElseIf h>=19 And h<23 Then
document .write "今晩は！！楽しんでますか？"
ElseIf h=23 Then
document .write "テレホーダイの時間です。混んでますか？"
End If
- ->
</SCRIPT>
</B>
</FONT>
<HR WIDTH="40%">
↑
<BR>
</CENTER>
</BODY>
</HTML>

backtopnext