网络考场(4)(转)smessage.asp

发表于:2007-06-30来源:作者:点击数: 标签:
%@ Language= VB Script % % ‘’计算考试已过时间 gotime=hour(now())*60+minute(now())-hour(session(starttime))*60-minute(session(starttime)) ‘’计算考试剩余时间 lefttime=session(testtime)-gotime % HTML HEAD META http-equiv=refresh content=60
<%@ Language=VBScript %>
<%
‘’计算考试已过时间
gotime=hour(now())*60+minute(now())-hour(session("starttime"))*60-minute(session("starttime"))
‘’计算考试剩余时间
lefttime=session("testtime")-gotime
%>
<HTML>
<HEAD>
<META http-equiv=refresh content=60>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P><FONT face=幼圆 size=2>考试时间:
<%=session("testtime")%></FONT><BR>
<FONT face=幼圆 size=2>已过时间:
<%=gotime%></FONT><BR>
<FONT face=幼圆 size=2>剩余时间:
<%=lefttime%></FONT><BR>
<FONT face=幼圆 size=2>考试题量:
<%=session("testnum")%></FONT><BR>
<FONT face=幼圆 size=2>已做题目:
<%=session("page")%></FONT><BR>
<FONT face=幼圆 size=2>剩余题目:
<%=session("testnum")-session("page")%></FONT><BR>
<P><FONT face="" size=2>
<A href="logon.asp"  target="_top">退出网络考场</A></FONT></P>
</BODY>
</HTML>

原文转自:http://www.ltesting.net