test1.asp

来自「ASP 网页数据库短训教程源码」· ASP 代码 · 共 23 行

ASP
23
字号
<%@ Language=VBScript%> 
<HTML>
  <HEAD><TITLE>考试答题页面</TITLE></HEAD>
    <SCRIPT LANGUAGE=vbscript>    ' 这里定义了一个显示剩余时间的子程序
      Public m
      Sub tick(k)
        m=k-1
        t1.value = TimeSerial(0,0,m)
        if m =0 then exit sub
        window.settimeout "tick(m)",1000     '设定Window对象执行函数tick()的定时间隔为1秒
      End Sub
    </SCRIPT>
  </HEAD>
     <!--定义Window对象的load事件(加载该网页时)执行函数tick(),
         继而引发函数tick()中的window.setTimeout("tick();",1000)
         语句,从而使网页能在1秒内刷新一次时间-->
  <BODY onload =tick(30*60) bgcolor=LightYellow>
    <Center><FONT size=6 face=方正舒体 color= blue>网 上 考 试</FONT><HR>
    <FONT size=3 color= blue>考生编号:<%=Session("User")%></FONT>
        剩余时间:<INPUT type=text name=t1 size=10>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?