jk.asp

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

<!--#include file="conn.inc"-->

<%
'获得监考的试卷ID
v_PaperID=request("PaperId")
%>
<style type="text/css">
<!--
.style2 {
	font-size: 18px;
	font-family: "Times New Roman", Times, serif;
	font-weight: bold;
}
.style3 {
	font-size: 18px;
	font-weight: bold;
}
.style4 {
	font-size: 16px;
	color: #FBF5CA;
}
-->
</style>

        <p>&nbsp;</p>
        <table width="100%"  border="0">
          <tr>
            <td> <div align="center" class="style2">在考名单</div></td>
            <td><div align="center" class="style3">交卷名单</div></td>
            <td><div align="center" class="style3">未考试名单</div></td>
          </tr>
          <tr>
            <td width="33%"><table width="100%" height="16%" border="1" bordercolor="#0080C0" bgcolor="#CCCCCC">
              <tr>
                <td width="43%" bgcolor="#CCCCCC"><div align="center"><strong>考生帐号</strong></div></td>
                <td width="43%" bgcolor="#CCCCCC"><div align="center"><strong>考生姓名</strong></div></td>
              </tr>
            </table>
              <table width="100%" height="16%"  border="0">
                <% 
dim sql,rs
sql="select * from  user_info where  UserID in (select User_ID from test_user where Paper_ID="&v_PaperID&" and isTest=-1)"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
	Response.Write("当前没有考生在线")
else
	 while not rs.eof
		%>
                <tr>
                  <td width="43%" bgcolor="#FFFFFF"><div align="center"><%=rs("UserAccount")%></div></td>
                  <td width="43%"><div align="center"><%=rs("UserRName")%></div></td>
                </tr>
                <%
		rs.movenext
	wend
	
end if
 %>
              </table></td>
            <td width="33%"><table width="100%" height="16%" border="1" bordercolor="#0080C0" bgcolor="#CCCCCC">
              <tr>
                <td width="43%" bgcolor="#CCCCCC"><div align="center"><strong>考生帐号</strong></div></td>
                <td width="43%" bgcolor="#CCCCCC"><div align="center"><strong>考生姓名</strong></div></td>
              </tr>
            </table>
              <table width="100%" height="16%"  border="0">
                <% 
dim sql2,rs2
sql2="select * from  user_info where  UserID in (select User_ID from test_user where Paper_ID="&v_PaperID&" and isTest=1)"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
if rs2.eof then
	Response.Write("当前没有考生交卷")
else
	 while not rs2.eof
		%>
                <tr>
                  <td width="43%"><div align="center"><%=rs2("UserAccount")%></div></td>
                  <td width="43%"><div align="center"><%=rs2("UserRName")%></div></td>
                </tr>
                <%
		rs2.movenext
	wend
	
end if
 %>
              </table></td>
            <td width="34%"><table width="100%" height="16%" border="1" bordercolor="#0080C0" bgcolor="#CCCCCC">
              <tr>
                <td width="43%" bgcolor="#CCCCCC"><div align="center"><strong>考生帐号</strong></div></td>
                <td width="43%" bgcolor="#CCCCCC"><div align="center"><strong>考生姓名</strong></div></td>
              </tr>
            </table>
              <table width="100%" height="16%"  border="0">
                <% 
dim sql3,rs3
sql3="select * from  user_info where  UserID in (select User_ID from test_user where Paper_ID="&v_PaperID&" and isTest=0)"
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
if rs3.eof then
	Response.Write("当前没有考生交卷")
else
	 while not rs3.eof
		%>
                <tr>
                  <td width="43%"><div align="center"><%=rs3("UserAccount")%></div></td>
                  <td width="43%"><div align="center"><%=rs3("UserRName")%></div></td>
                </tr>
                <%
		rs3.movenext
	wend
	
end if
 %>
              </table></td>
          </tr>
        </table>
		
		<form name="form1" method="post" action="mon-teacher.asp">
		<div align="center">
		  <input name="button1" type="submit" id="button1" value="教师监考信息反馈">
		  </div>
		
	    </form>
		<p align="center">&nbsp;</p>