例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 + -
显示快捷键?