error.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 225 行
ASP
225 行
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>错题本</title>
</head>
<body>
<%
v_PaperID=request("v_paperID")
v_nowuserid=request.Cookies("userid")
sql="select * from stu_error_question where Paper_ID="&v_PaperID&" and User_ID="&v_nowuserid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
while not rs.eof
v_queid=rs("Err_Que_ID")
sql1="select * from question_database where QueID="&v_queid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
qtype = rs1("Que_Type")
%>
<%if qtype = 0 then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%" height="25"><b><font size="3" color="#000080">一、单项选择题</font></b></td>
</tr>
</table>
<%
'response.Write(sql1)
'response.End()
sql2="select * from student_answer_info where Paper_ID="&v_PaperID&" and Que_ID="&v_queid&" and User_ID="&v_nowuserid&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber2" cellpadding="0">
<tr>
<td width="90%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=rs1("Question")%></b></td>
</tr>
<%
if rs1("Option1")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs1("QueID")%>" value="A">A、<%=rs1("Option1")%></td>
</tr>
<%
end if
%> <%
if rs1("Option2")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs1("QueID")%>" value="B">B、<%=rs1("Option2")%></td>
</tr>
<%
end if
%> <%
if rs1("Option3")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs1("QueID")%>" value="C">C、<%=rs1("Option3")%></td>
</tr>
<%
end if
%> <%
if rs1("Option4")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs1("QueID")%>" value="D">D、<%=rs1("Option4")%></td>
</tr>
<tr>
<td height="20">正确答案为：<%=rs1("StandKey")%></td>
</tr>
<tr>
<td height="20">你的答案为：<%=rs2("Stu_Answer")%></td>
</tr>
<%
end if
%>
</table>
<%else if qtype = 1 then %>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="100%" height="25"><b><font color="#000080" size="3">二、多项选择题</font></b></td>
</tr>
</table>
<%
sNoumber=1
sql1="select * from question_database where QueID="&v_queid&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
'response.Write(sql1)
'response.End()
sql2="select * from student_answer_info where Paper_ID="&v_PaperID&" and Que_ID="&v_queid&" and User_ID="&v_nowuserid&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="90%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=rs1("Question")%></b></td>
</tr>
<%
if rs1("Option1")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs1("QueID")%>" value="A">A、<%=rs1("Option1")%></td>
</tr>
<%
end if
%> <%
if rs1("Option2")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs1("QueID")%>" value="B">B、<%=rs1("Option2")%></td>
</tr>
<%
end if
%> <%
if rs1("Option3")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs1("QueID")%>" value="C">C、<%=rs1("Option3")%></td>
</tr>
<%
end if
%> <%
if rs1("Option4")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs1("QueID")%>" value="D">D、<%=rs1("Option4")%></td>
</tr>
<%
end if
%> <%
if rs1("Option5")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs1("QueID")%>" value="E">E、<%=rs1("Option5")%></td>
</tr>
<%
end if
%> <%
if rs1("Option6")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs1("QueID")%>" value="F">F、<%=rs1("Option6")%></td>
</tr>
<tr>
<td height="20">正确答案为：<%=rs1("StandKey")%></td>
</tr>
<tr>
<td height="20">你的答案为：<%=rs2("Stu_Answer")%></td>
</tr>
<%
end if
%>
</table>
<%else if qtype = 2 then %>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="100%" height="25"><b><font color="#000080" size="3">三、判断题(每题<%=v_judgeper%>分,共<%=v_judgecount%>题)</font></b></td>
</tr>
</table>
<%
sql1="select * from question_database where QueID="&v_queid&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
'response.Write(sql1)
'response.End()
sql2="select * from student_answer_info where Paper_ID="&v_PaperID&" and Que_ID="&v_queid&" and User_ID="&v_nowuserid&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="90%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=rs1("Question")%></b></td>
</tr>
<tr>
<td> <input type="radio" name="NO<%=rs1("QueID")%>" value="y">正确</td>
</tr>
<tr>
<td> <input type="radio" name="NO<%=rs1("QueID")%>" value="n">不正确</td>
</tr>
<tr>
<td height="20">正确答案为：<%=rs1("StandKey")%></td>
</tr>
<tr>
<td height="20">你的答案为：<%=rs2("Stu_Answer")%></td>
</tr>
</table>
<%
end if
%>
<%
rs.movenext
wend
rs.close
%>
<form action="paper_record.asp" method="get">
<div align="center">
<input name="提交" type="submit" value="返回">
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?