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> > 教师监考</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")%> </div></td>
<td width="71"><div align="center" class="style6"><%=rs("PaperName")%> </div></td>
<td width="103"><div align="center" class="style6"><%=rs_sub("SubName")%> </div></td>
<td width="92"><div align="center" class="style6"><%=rs_m("UserRName")%> </div></td>
<td width="125"><div align="center" class="style6"><%=rs("StartTime")%> </div></td>
<td width="123"><div align="center" class="style6"><%=rs("EndTime")%> </div></td>
<td width="54"><div align="center" class="style6"><%=rs("ExamTime")%> </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%>
</div></td>
</tr>
<%
rs.movenext
wend
rs.close
%>
</table>
<%
else
%>
没有需要监考的考试项目!!
<%
end if
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?