changetime.asp

来自「在线考试系统在线培训与考试系统适合政府、行业和企业内部组织员工借助网络开展网上学」· ASP 代码 · 共 22 行

<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&"秒"
settimeout "ChangeTime",1000
end sub
</script>