新微赢技术网

标题: [求助]怎么实现由时间来控制? [打印本页]

作者: ~~精灵小姐$    时间: 2010-1-19 23:35
标题: [求助]怎么实现由时间来控制?
我想实现“超过规定的时间,自动终止考试,调出错误提示窗口”这样的目的,我应该在下面的程序中加入什么语句?
<script language="vbscript">
Flag=0
<%
TimeGet=Session("tryTime")
response.Write("TimeGetF="&TimeGet)
%>
TimeNum=TimeGetF*60
Sub ChangeTime()
TimeNum=TimeNum-1
TimeNumF=TimeNum\60
TimeNumM=TimeNum mod 60
if TimeNumF<10 and TimeNumM=10 and Flag<2 then
MsgBox("只剩下"&TimeNumF&"分!请抓紧时间!")
Flag=Flag+1
elseif TimeNumF<5 and TimeNumM=10 and Flag<5 then
MsgBox("只剩下"&TimeNumF&"分!请提交试卷!")
Flag=Flag+1
end if
window.status="你的时间还剩"&TimeNumF&"分"&TimeNumM&"秒"
[知识问答 ωωω.χiuGoo.сom]
settimeout "ChangeTime",1000
end sub
</script>
作者: 熾天使rose    时间: 2010-1-19 23:35
if TimeNumF<=0 and TimeNumM=10 and Flag<5 then
MsgBox("考试结束,自动终止!")
'TODO:此处为终止代码
end if
作者: 鰰﹎話    时间: 2010-1-19 23:35
我想出现提示对话框以后,直接调用一个提交错误提示窗口,我应该怎么写?
作者: 鰰﹎話    时间: 2010-1-19 23:35
以下是引用szp2006在2006-4-25 22:09:00的发言:
我想出现提示对话框以后,直接调用一个提交错误提示窗口,我应该怎么写?
考试时间到时不是让强制交卷吗?
作者: ☆冬虫草☆    时间: 2010-1-19 23:35
是强制交卷,但是用上面的语句只是弹出一个对话框,但是我考试界面没有关闭啊!!




欢迎光临 新微赢技术网 (http://bbs.weiying.cn/) Powered by Discuz! X3.2