色々なＶＢ Ｓｃｒｉｐｔ

１．現在の時刻をテキストボックス内に表示する。



現在の時刻は、です。


次のように赤字の部分を書き込めばＯＫです。

<HTML>
<HEAD>
<TITLE>**********</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!- -
Dim Tid
Sub today()
Tid =setTimeout("today()",1000)
document .MyForm .DayTimeText .value=Now
End Sub
- ->
</SCRIPT>
</HEAD>

<BODY>
<CENTER>

<FORM NAME="MyForm">
現在の時刻は、
<INPUT NAME="DayTimeText" size="18">
です。
</FORM>
<SCRIPT LANGUAGE="VBScript">
<!- -
today()
- ->
</SCRIPT>

</CENTER>
</BODY>
</HTML>



２．ユーザーが使用しているブラウザの情報を指摘する。






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

<BODY>

<SCRIPT LANGUAGE="VBScript>
<!- -
document .write "YourAgent ; ",navigator .userAgent,"<BR>"
- ->
</SCRIPT>

</BODY>
</HTML>

topnext