?? changetime.asp
字號:
<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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -