adminmoniter.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 107 行

ASP
107
字号
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
<title>无标题文档</title>



</head>

<body>
<table width="877" height="32" border="0">
  <tr>
    <td>当前位置:<a href="news.asp" class="style5">系统管理</a> &gt; 教师监考</td>
  </tr>
</table>
<form name="form1" method="post" action="">

<table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#C9DEF3">
  <tr>
    <td width="74" height="18"><div align="center"><strong>考试号</strong></div></td>
    <td width="122"><div align="center"><strong>考试名称</strong></div></td>
    <td width="127"><div align="center"><strong>科目</strong></div></td>
    <td width="96"><div align="center"><strong>监考人</strong></div></td>
    <td width="129"><div align="center"><strong>开始时间</strong></div></td>
    <td width="128"><div align="center"><strong>结束时间</strong></div></td>
    <td width="88"><div align="center"><strong>考试用时</strong></div></td>
    <td width="133"><div align="center"><strong>开始监考</strong></div></td>
  </tr>

<%
sql="select * from paper_info where PaperID in (select objid from waitforpass where objname='考试计划' and havepass=1) and Monitor_User_ID="& request.cookies("userid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
while not rs.eof
%>

<%
vsub_id=rs("Sub_ID")
sql_sub="select * from subject_info where SubID="&vsub_id&""
set rs_sub=server.createobject("adodb.recordset")
rs_sub.open sql_sub,conn,3,2
%>
<%
vuser_id=rs("Monitor_User_ID")
sql_m="select * from user_info where UserID="&vuser_id&""
set rs_m=server.createobject("adodb.recordset")
rs_m.open sql_m,conn,3,2
%>



  <tr>
    <td width="74" height="40"><div align="center" class="style6"><%=rs("PaperID")%>&nbsp;</div></td>
    <td width="71"><div align="center" class="style6"><%=rs("PaperName")%>&nbsp;</div></td>
    <td width="103"><div align="center" class="style6"><%=rs_sub("SubName")%>&nbsp;</div></td>
    <td width="92"><div align="center" class="style6"><%=rs_m("UserRName")%>&nbsp;</div></td>
    <td width="125"><div align="center" class="style6"><%=rs("StartTime")%>&nbsp;</div></td>
    <td width="123"><div align="center" class="style6"><%=rs("EndTime")%>&nbsp;</div></td>
    <td width="54"><div align="center" class="style6"><%=rs("ExamTime")%>&nbsp;</div></td>
	
	
	<td width="203">
	  <div align="center" class="style6">
	    <%
	   now_time=now()
       start_time=rs("StartTime")
       end_time=rs("EndTime")
	   if now_time > start_time and now_time < end_time then
	%>
	    <a href="examrule.asp?PaperId=<%=rs("PaperID")%>">进入考场</a>
	    <%
	elseif  now_time < start_time then
	%>
	    <a href="news.asp">未到考试时间</a>
	    <%
	elseif   now_time > end_time then
	%>	
	    <a href="news.asp">考试时间已过!</a>	
	    <%end if%>	
		  
&nbsp;      	</div></td>
  </tr>	
	
	


<%
rs.movenext
wend
rs.close
%>
</table>
<%
else
%>
     没有需要监考的考试项目!!

<%
end if
%>
</form>
</body>
</html>

⌨️ 快捷键说明

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