📄 paper_record_detail.asp
字号:
<!--#include file="conn.inc"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<html>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<head>
<title>网络在线考试</title>
<link rel="stylesheet" type="text/css" href="css.css">
<style>
<!--
.outborder { border-left: 1px solid #333333; border-right: 1px solid #000000;
border-top: 1px solid #99CCFF; border-bottom: 1px solid #000000;
background-color: #336699 }
.inputborder { color: #00FF00; text-align: center; border-style: solid; border-width: 1;
background-color: #333333 }
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<%
v_PaperID = request("v_paperID")
if request("downloadok")<>"y" then
sql="select * from paper_info where PaperID="&v_PaperID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
v_subID=rs("Sub_ID")
singlecount=rs("singlecount")
singleper=rs("singleper")
multicount=rs("multicount")
multiper=rs("multiper")
judgecount=rs("judgecount")
judgeper=rs("judgeper")
rs.close
set rs=nothing
sql = "select * from subject_info where SubID ="&v_subID
SET rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
subject=rs("SubName")
rs.close
set rs = nothing
%>
<p align="center"><b><font face="黑体" size="5" color="#FF0000">《<%=subject%>》考试纪录</font></b></p>
<form method="POST" action="createresult.asp" onsubmit="return submitit();" name="testform">
<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">一、单项选择题(每题<%=singleper%>分,共<%=singlecount%>题)
</font></b></td>
</tr>
</table>
<%
sql1="select * from paper_detail where DQue_Type=0 and Paper_ID="&v_PaperID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sNoumber = 1
while not rs1.eof
tempQue_ID=rs1("Que_ID")
sql="select * from question_database where QueID="&tempQue_ID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber2" cellpadding="0">
<tr>
<td height="20" colspan="2" bgcolor="#EFEFEF"> <b><%=sNoumber%>、<%=rs("Question")%>
<input name="Que_ID" type="hidden" id="Que_ID" value="<%=rs("QueID")%>">
</b></td>
</tr>
<%
if rs("Option1")<>"" then
%>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="A" onClick="troublesave(<%=rs("QueID")%>);">
A、<%=rs("Option1")%></td>
</tr>
<%
end if
%>
<%
if rs("Option2")<>"" then
%>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="B">
B、<%=rs("Option2")%></td>
</tr>
<%
end if
%>
<%
if rs("Option3")<>"" then
%>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="C">
C、<%=rs("Option3")%></td>
</tr>
<%
end if
%>
<%
if rs("Option4")<>"" then
%>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="D">
D、<%=rs("Option4")%></td>
</tr>
<%
end if
%>
<%
if rs("Option5")<>"" then
%>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="E">
E、<%=rs("Option5")%></td>
</tr>
<%
end if
%>
<%
if rs("Option6")<>"" then
%>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="F">
F、<%=rs("Option6")%></td>
</tr>
<%
end if
%>
<tr>
<td width="12%"><strong>你选择的答案</strong>：</td>
<td width="88%">
<strong>
<%
qid = rs("QueID")
ansql = "select * from student_answer_info where Paper_ID = "&v_PaperID&" and Que_ID = "&qid&" and User_ID = "&request.Cookies("userid")
set anrs = server.CreateObject("adodb.recordset")
anrs.open ansql,conn,3,2
response.Write(anrs("Stu_Answer"))
anrs.close
set anrs= nothing
%>
</strong></td>
</tr>
<tr>
<td><span class="style1"><strong>标 准 答 案</strong>：</span></td>
<td><%=rs("StandKey")%></td>
</tr>
</table>
<% sNoumber=sNoumber+1
rs1.movenext
'rs.movenext
wend
rs1.close
'rs.close
%>
<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">二、多项选择题(每题<%=multiper%>分,共<%=multicount%>题。每题至少有2项正确的答案，少选每答对一题得<%=multiper/4%>分，多选不得分)</font></b></td>
</tr>
</table>
<%
sql1="select * from paper_detail where DQue_Type=1 and Paper_ID="&v_PaperID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
while not rs1.eof
tempQue_ID=rs1("Que_ID")
sql="select * from question_database where QueID="&tempQue_ID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td height="20" colspan="2" bgcolor="#EFEFEF"> <b><%=sNoumber%>、<%=rs("Question")%>
<input name="Que_ID2" type="hidden" id="Que_ID2" value="<%=rs("QueID")%>">
</b></td>
</tr>
<%
if rs("Option1")<>"" then
%>
<tr>
<td colspan="2">
<input type="checkbox" name="NO<%=rs("QueID")%>" value="A">
A、<%=rs("Option1")%></td>
</tr>
<%
end if
%>
<%
if rs("Option2")<>"" then
%>
<tr>
<td colspan="2">
<input type="checkbox" name="NO<%=rs("QueID")%>" value="B">
B、<%=rs("Option2")%></td>
</tr>
<%
end if
%>
<%
if rs("Option3")<>"" then
%>
<tr>
<td colspan="2">
<input type="checkbox" name="NO<%=rs("QueID")%>" value="C">
C、<%=rs("Option3")%></td>
</tr>
<%
end if
%>
<%
if rs("Option4")<>"" then
%>
<tr>
<td colspan="2">
<input type="checkbox" name="NO<%=rs("QueID")%>" value="D">
D、<%=rs("Option4")%></td>
</tr>
<%
end if
%>
<%
if rs("Option5")<>"" then
%>
<tr>
<td colspan="2">
<input type="checkbox" name="NO<%=rs("QueID")%>" value="E">
E、<%=rs("Option5")%></td>
</tr>
<%
end if
%>
<%
if rs("Option6")<>"" then
%>
<tr>
<td colspan="2">
<input type="checkbox" name="NO<%=rs("QueID")%>" value="F">
F、<%=rs("Option6")%></td>
</tr>
<%
end if
%>
<tr>
<td width="11%"><strong>你选择的答案</strong>：</td>
<td width="89%">
<strong>
<%
qid = rs("QueID")
ansql = "select * from student_answer_info where Paper_ID = "&v_PaperID&" and Que_ID = "&qid&" and User_ID = "&request.Cookies("userid")
set anrs = server.CreateObject("adodb.recordset")
anrs.open ansql,conn,3,2
response.Write(anrs("Stu_Answer"))
anrs.close
set anrs= nothing
%>
</strong></td>
</tr>
<tr>
<td><span class="style1"><strong>标 准 答 案</strong>：</span></td>
<td><%=rs("StandKey")%></td>
</tr>
</table>
<% sNoumber=sNoumber+1
rs1.movenext
'rs.movenext
wend
rs1.close
'rs.close
%>
<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">三、判断题(每题<%=judgeper%>分,共<%=judgecount%>题)</font></b></td>
</tr>
</table>
<%
sql1="select * from paper_detail where DQue_Type=2 and Paper_ID="&v_PaperID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
while not rs1.eof
tempQue_ID=rs1("Que_ID")
sql="select * from question_database where QueID="&tempQue_ID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td height="20" colspan="2" bgcolor="#EFEFEF"> <b><%=sNoumber%>、<%=rs("Question")%>
<input name="Que_ID3" type="hidden" id="Que_ID3" value="<%=rs("QueID")%>">
</b></td>
</tr>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="y">
正确</td>
</tr>
<tr>
<td colspan="2">
<input type="radio" name="NO<%=rs("QueID")%>" value="n">
不正确</td>
</tr>
<tr>
<td width="11%"><strong>你选择的答案</strong>：</td>
<td width="89%">
<strong>
<%
qid = rs("QueID")
ansql = "select * from student_answer_info where Paper_ID = "&v_PaperID&" and Que_ID = "&qid&" and User_ID = "&request.Cookies("userid")
set anrs = server.CreateObject("adodb.recordset")
anrs.open ansql,conn,3,2
response.Write(anrs("Stu_Answer"))
anrs.close
set anrs= nothing
%>
</strong></td>
</tr>
<tr>
<td><span class="style1"><strong>标 准 答 案</strong>：</span></td>
<td><%=rs("StandKey")%></td>
</tr>
</table>
<% sNoumber=sNoumber+1
rs1.movenext
'rs.movenext
wend
rs1.close
'rs.close
set rs=nothing
%>
</form>
<%
sql="select * from paper_info where Paper_Type=1"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
rs("Paper_Type")=2
rs.update
rs.movenext
loop
else
%>
<p></p>
<p align="center"><b><font face="Wingdings" size="7" color="#FF0000">I</font></b>发生致命
错误！因为您刷新了此页。</p>
<p align="center">请【<a href="relogin.asp">重新登录</a>】参加考试。</p>
<p align="center">如果上述错误发生超过三次，系统将取消您的考试资格，！</p>
<%
end if
conn.close
set conn = nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -