📄 例4－26.txt
字号:
<html><head><title>window对象的Load和Unload事件</title></head>
<body>
<script language="VBScript">
Sub window_onLoad( )
call eclock( )
End Sub
Sub eclock( )
Dim datestring,timestring
datestring = " 现在是 " & Year(Date( )) & "年" & Month(Date()) & "月" & _
Day(Date( )) & "日"
timestring = Hour(time( )) & "时" & Minute(time( )) & "分" & Second(time()) & "秒"
Document.ClockForm.ClockTxt.value=datestring & " " & timestring
window.SetTimeOut "eclock",1000
End Sub
Sub window_onUnload
MsgBox "感谢您访问本网站，欢迎再次来访！"
End Sub
</script>
<form name="ClockForm"><input type=text name="ClockTxt" size=50></form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -