例4-26.htm
来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· HTM 代码 · 共 21 行
HTM
21 行
<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 + =
减小字号Ctrl + -
显示快捷键?