📄 testlog.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
Dim i
Dim subject
Dim starttime
Dim endtime
Dim setno
Dim factno
Dim no
Dim max
Dim maxusername
Dim min
Dim minusername
Dim avg
Dim rs1
Dim sql1
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../DEFAULT.CSS">
<script language="javascript">
function userinfo(userid)
{ 
  page="userinfo.asp?userid="+userid
  window.open (page,'查看用户信息','width=260,height=300')
}
function examinfo(examid)
{ 
  page="examinfo.asp?examid="+examid
  window.open (page,'查看考试信息','width=280,height=360,scrollbars=1')
}
</script>
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>

<body bgcolor="#FFFFFF">

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" height="25" cellpadding="0">
  <tr>
    <td width="100%">当前位置：统计查询/报表 &gt; <a href="searchscore.asp">考试成绩</a> &gt; 考试记录</td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="30">
  <tr>
    <td width="100%">
    <p align="right"><img border="0" src="../images/printer.gif"></td>
  </tr>
</table>
<%
sql="select * from exam_test where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  subject=rs("subject")
  starttime=rs("starttime")
  endtime=rs("endtime")
end if
rs.close
sql="select * from exam_testuser where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  setno=rs.recordcount
end if
rs.close
sql="select * from exam_score where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  factno=rs.recordcount
end if
rs.close
no=setno-factno
sql="select max(score) as maxper from exam_score where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  max=rs("maxper")
end if
rs.close
sql="select min(score) as minper from exam_score where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  min=rs("minper")
end if
rs.close
sql="select avg(score) as avgper from exam_score where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  avg=rs("avgper")
end if
rs.close


%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" bgcolor="#F1F1F1">
  <tr>
    <td width="100%" class="border_blue">
    <p align="center">基本信息</td>
  </tr>
  <tr>
    <td width="100%">
    <p style="line-height: 200%">&nbsp;考试编号：<font color="#ff0000"><%=request("examid")%>
    </font>考试科目：<font color="#ff0000"><%=subject%></font><br>
&nbsp;开始时间：<font color="#ff0000"><%=starttime%></font> 结束时间：<font color="#ff0000"><%=endtime%></font><br>
&nbsp;应考人数：<font color="#ff0000"><%=setno%></font> 【<a href="report_ykuser.asp?examid=<%=request("examid")%>">查看应考人员</a>】 
    实际人数：<font color="#ff0000"><%=factno%></font> 【<a href="report_sjuser.asp?examid=<%=request("examid")%>">查看实际人员</a>】 
    未考人数：<font color="#ff0000"><%=no%></font> 【<a href="report_myuser.asp?examid=<%=request("examid")%>">查看未考人员</a>】<br>
&nbsp;最高分数：<font color="#ff0000"><%=max%></font> 【<a href="report_maxuser.asp?examid=<%=request("examid")%>">查看最高人数人员信息</a>】 
    最低分数：<font color="#ff0000"><%=min%></font> 【<a href="report_minuser.asp?examid=<%=request("examid")%>">查看最低分数人员信息</a>】 
    平均分数：<font color="#ff0000"><%=avg%></font></td>
  </tr>
</table>
<hr noshade color="#FFFFFF" size="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" class="withborder" bgcolor="#F1F1F1">
  <tr>
    <td height="30" colspan="9" class="border_blue">
    <p align="center"><b>[<%=request("starttime")%>]—[<%=request("endtime")%>][<a href="javascript:examinfo('<%=request("examid")%>')">
    <%=request("examid")%></a>]<%=request("subject")%>考试纪录</b></td>
  </tr>
  <tr>
    <td align="center" height="20" class="border">序号</td>
    <td align="center" class="border">
    <p align="center">证件号码</td>
    <td align="center" class="border">姓名</td>
    <td align="center" class="border">部门</td>
    <td align="center" class="border">单位</td>
    <td align="center" class="border">职务</td>
    <td align="center" class="border">级别</td>
    <td align="center" class="border">岗位</td>
    <td align="center" class="border">是否参加了考试</td>
  </tr>
  <% 
sql="select * from exam_testuser where examid='" & request("examid") & "' order by havetest"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
i=0
do while not rs.eof
sql1="select * from cadre_info where userid="&rs("userid")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
if not rs.eof then
%>
  <tr>
    <td align="center" height="20"><%=i%></td>
    <td align="center"><a href="javascript:userinfo(<%=rs("userid")%>)">
    <%=rs("userid")%></a>　</td>
    <td align="center"><%=rs1("username")%>　</td>
    <td align="center"><%=rs1("department")%>　</td>
    <td align="center"><%=rs1("office")%>　</td>
    <td align="center"><%=rs1("duties")%>　</td>
    <td align="center"><%=rs1("rank")%>　</td>
    <td align="center"><%=rs1("post")%>　</td>
    <td align="center"><%=rs("havetest")%>　</td>
  </tr>
  <% end if
  rs1.close
rs.MoveNext
i=i+1
loop
%>
</table>
<p>注：1、点击证件号码查看该考生的详细信息<br>
&nbsp;&nbsp;&nbsp; 2、点击考试编号查看本次考试的详细信息<br>
&nbsp;&nbsp;&nbsp; 3、“0”表示为参加考试，“1”表示已经参加了考试</p>

</body>

</html>
⌨️ 快捷键说明

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