adminpaperview.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 281 行
ASP
281 行
<!--#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("v_PID")
end if
sql="select * from paper_info where PaperID="&v_PaperID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
'rs.addnew
'randomize
'v_PaperID=1+fix(10000*Rnd)
'v_subjectid=request("subject")
'rs("PaperID")=v_PaperID
'rs("Monitor_User_ID")=request("moniUser")
'rs("PaperName")=request("papername")
v_papername=rs("PaperName")
v_subjectid=rs("Sub_ID")
v_totalper=rs("TotalPer")
'v_totalper=request("totalper")
'rs("singlecount")=request("singlecount")
v_singlecount=rs("SingleCount")
'rs("multicount")=request("multicount")
v_multicount=rs("MultiCount")
'rs("judgecount")=request("judgecount")
v_judgecount=rs("JudgeCount")
'rs("singleper")=request("singleper")
v_singleper=rs("SinglePer")
'rs("multiper")=request("multiper")
v_multiper=rs("MultiPer")
'rs("judgeper")=request("judgeper")
v_judgeper=rs("JudgePer")
'rs("starttime")=request("starttime")
'rs("endtime")=request("endtime")
'starttime=request("starttime")
'endtime=request("endtime")
'texttime=endtime-starttime
'rs("ExamTime")=texttime
'rs("SetTime")=date()
'rs("Set_User_ID")=request.cookies("userid")
v_paperdifficultyrate=rs("TestDiffRate")
'v_paperdifficultyrate=request("paperdifficultyrate")
'rs("Pass_User_ID")=request("shenhr")
'rs("Monitor_User_ID")=request("moniUser")
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>
<%
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>
<td width="10%" bgcolor="#EFEFEF"><a href="admincreatepaperedit1.asp?vquestionID=<%=rs("QueID")%>&vpaperID=<%=v_PaperID%>">修 改
</a></td>
</tr>
<%
if rs("Option1")<>"" then
%>
<tr>
<td colspan="2"> <input type="radio" name="NO<%=rs("QueID")%>" value="A">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
%>
</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>
<%
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>
<td width="10%" bgcolor="#EFEFEF"><a href="admincreatepaperedit1.asp?vquestionID=<%=rs("QueID")%>&vpaperID=<%=v_PaperID%>">修 改
</a></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
%>
</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>
<%
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>
<td width="10%" bgcolor="#EFEFEF"><a href="admincreatepaperedit1.asp?vquestionID=<%=rs("QueID")%>&vpaperID=<%=v_PaperID%>">修 改
</a></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>
</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 + =
减小字号Ctrl + -
显示快捷键?