errorpaperquestatistic.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 177 行
ASP
177 行
<!--#include file="conn.inc"-->
<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="css.css">
</head>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="javascript">
function testinfo(testid)
{
page="testinfo.asp?testid="+testid
window.open (page,'查看考试信息','width=320,height=470')
}
function quetinfo(QueID)
{
page="quetinfo.asp?QueID="+QueID;
window.open (page,'查看考试信息','width=700,height=350');
}
</script>
<body>
<%
v_PaperID = request("radioPaperID")
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<a href="news.asp">系统管理</a> >
<a href="adminremarkpaper.asp">评卷管理</a> > 考试记录</td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<tr>
<td bgcolor="#E1E1E1" height="30" colspan="6">
<p align="center"><b><font size="3" face="黑体">试卷 <a href="javascript:testinfo(<%=PaperID%>)"> <%=PaperID%></a> 错题统计</font></b></td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1" height="20" width="30"><b>序号</b></td>
<td align="center" bgcolor="#E1E1E1" width="160">题号</td>
<td align="center" bgcolor="#E1E1E1">答错人数</td>
<td align="center" bgcolor="#E1E1E1">答对人数</td>
<td align="center" bgcolor="#E1E1E1"><b>正确率 </b></td>
<td align="center" bgcolor="#E1E1E1" width="160"><b>错误率</b></td>
</tr>
<%
v_PaperID = request("radioPaperID")
'sql1="select * from test_user where Paper_ID= "&v_PaperID
'set rs1=server.createobject("adodb.recordset")
'rs1.open sql1,conn,3,2
'求参加次试卷考试的总人数
'n = 0
'do while not rs.eof
'n = n + 1
'rs1.movenext
'loop
'rs1.close
'set rs1 = nothing
'response.Write("n:"&n)
sql = "select * from stu_error_question where Paper_ID ="&v_PaperID
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
response.write "没有错题"
else
i = 0
do while not rs.eof
v_QueID = rs("Err_Que_ID")
%>
<tr>
<td align="center" bgcolor="#E1E1E1" height="20"><%=i%></td>
<td align="center"><a href="javascript:quetinfo(<%=v_QueID%>)">
<%=v_QueID%> </a> </td>
<%
'统计试卷中每个错误试题 打错的人数
sql1="select * from stu_error_question where Paper_ID ="&v_PaperID&" and Err_Que_ID= "&v_QueID&" "
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
errN = 0
do while not rs1.eof
errN = errN + 1
rs1.movenext
loop
rs1.close
set rs1 = nothing
%>
<td align="center"><%=errN%></td>
<%
'统计参加答 此题 的总人数
sql1 = "select * from student_answer_info where Paper_ID ="&v_PaperID&" and Que_ID= "&v_QueID&" "
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sumN = 0
DO while not rs1.eof
sumN = sumN + 1
rs1.movenext
loop
rs1.close
set rs1 = nothing
'答对人数
rightN = sumN - errN
if rightN <0 then
rightN = 0
end if
%>
<td align="center"><%=rightN%></td>
<td align="center">
<%
if sumN > 0 then
rRate = RightN/sumN * 100
else
rRate = 0
end if
response.Write(rRate)
%>% </td>
<td align="center">
<%
if sumN > 0 then
eRate = errN/sumN * 100
else
eRate = 0
end if
if (eRate >100) then
eRate = 100
end if
response.Write(eRate)
%>
% </td>
</tr>
<%
'根据统计结果，修改试题难度
vsql = "select * from question_database where QueID = "&v_QueID
set vrs=server.createobject("adodb.recordset")
vrs.open vsql,conn,3,2
if not vrs.eof then
vrs("DiffRate") = cint(eRate/20)
end if
vrs.update
vrs.close
set vrs = nothing
rs.MoveNext
i=i+1
loop
end if
conn.close
set conn = nothing
%>
</table>
<p>注：1、点击考试编号查看本次考试的详细信息<br>
2、点击试题编号查看试题的详细信息<br>
</p>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?