📄 adminpaperview2.asp
字号:
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改试卷预览</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<%
'从试卷基本信息表paper_info中提取所需信息并录如监考老师信息
vid=request("id")
if vid=1 then
v_PaperID=request("TempPaperid")
else
v_PaperID=session("TempPaperid")
end if
sql="select * from paper_info where PaperID="&v_PaperID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
v_papername=rs("PaperName")
v_subjectid=rs("Sub_ID")
v_totalper=rs("TotalPer")
v_singlecount=rs("SingleCount")
v_multicount=rs("MultiCount")
v_judgecount=rs("JudgeCount")
v_singleper=rs("SinglePer")
v_multiper=rs("MultiPer")
v_judgeper=rs("JudgePer")
v_paperdifficultyrate=rs("TestDiffRate")
rs.update
rs.close
%>
<form name="form1" method="post" action="news.asp">
<p align="center"><b><font face="黑体" size="5" color="#FF0000">网络在线考试 <%=v_papername%></font></b></p>
<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">一、单项选择题(每题<%=v_singleper%>分,共<%=v_singlecount%>题)</font></b></td>
</tr>
</table>
<%
sNoumber=1
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
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 width="90%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=rs("Question")%></b></td>
</tr>
<%
if rs("Option1")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="A">A、<%=rs("Option1")%></td>
</tr>
<%
end if
%> <%
if rs("Option2")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="B">B、<%=rs("Option2")%></td>
</tr>
<%
end if
%> <%
if rs("Option3")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="C">C、<%=rs("Option3")%></td>
</tr>
<%
end if
%> <%
if rs("Option4")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="D">D、<%=rs("Option4")%></td>
</tr>
<%
end if
%> <%
if rs("Option5")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="E">E、<%=rs("Option5")%></td>
</tr>
<%
end if
%> <%
if rs("Option6")<>"" then
%>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="F">F、<%=rs("Option6")%></td>
</tr>
<%
end if
%>
</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">二、多项选择题(每题<%=v_multiper%>分,共<%=v_multicount%>题。每题至少有2项正确的答案，少选每答对一题得<%=v_multiper/4%>分，多选不得分)</font></b></td>
</tr>
</table>
<%
sNoumber=1
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 width="90%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=rs("Question")%></b></td>
</tr>
<%
if rs("Option1")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs("QueID")%>" value="A">A、<%=rs("Option1")%></td>
</tr>
<%
end if
%> <%
if rs("Option2")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs("QueID")%>" value="B">B、<%=rs("Option2")%></td>
</tr>
<%
end if
%> <%
if rs("Option3")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs("QueID")%>" value="C">C、<%=rs("Option3")%></td>
</tr>
<%
end if
%> <%
if rs("Option4")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs("QueID")%>" value="D">D、<%=rs("Option4")%></td>
</tr>
<%
end if
%> <%
if rs("Option5")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs("QueID")%>" value="E">E、<%=rs("Option5")%></td>
</tr>
<%
end if
%> <%
if rs("Option6")<>"" then
%>
<tr>
<td> <input type="checkbox" name="NO<%=rs("QueID")%>" value="F">F、<%=rs("Option6")%></td>
</tr>
<%
end if
%>
</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">三、判断题(每题<%=v_judgeper%>分,共<%=v_judgecount%>题)</font></b></td>
</tr>
</table>
<%
sNoumber=1
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 width="90%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=rs("Question")%></b></td>
</tr>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="y">正确</td>
</tr>
<tr>
<td> <input type="radio" name="NO<%=rs("QueID")%>" value="n">不正确</td>
</tr>
</table>
<% sNoumber=sNoumber+1
rs1.movenext
'rs.movenext
wend
rs1.close
'rs.close
set rs=nothing
%>
<table width="970" border="0">
<tr>
<td width="964">
<div align="center">
<input type="submit" name="Submit" value="返回">
</div></td>
</tr>
</table>
</form>
<%conn.close
set conn = nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -