paper.asp

网络考试系统最终备份

		  set rst = nothing
		  %>  > 
          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">二、多项选择题(每题<%=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 width="100%" bgcolor="#EFEFEF" height="20">&nbsp;&nbsp;<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 width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="NO<%=rs("QueID")%>" value="A" onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof then 
		  if  instr(ucase(rst("StuAnswer")),"A")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          A、<%=rs("Option1")%></td>
    </tr>
    <%
  end if
  %>
    <%
  if rs("Option2")<>"" then
  
  %>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="NO<%=rs("QueID")%>" value="B"  onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof then 
		  if  instr(ucase(rst("StuAnswer")),"B")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          B、<%=rs("Option2")%></td>
    </tr>
    <%
  end if
  %>
    <%
  if rs("Option3")<>"" then
  
  %>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="NO<%=rs("QueID")%>" value="C"  onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof then 
		  if instr(ucase(rst("StuAnswer")),"C")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          C、<%=rs("Option3")%></td>
    </tr>
    <%
  end if
  %>
    <%
  if rs("Option4")<>"" then
  
  %>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="NO<%=rs("QueID")%>" value="D"  onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof then 
		  if  instr(ucase(rst("StuAnswer")),"D")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          D、<%=rs("Option4")%></td>
    </tr>
    <%
  end if
  %>
    <%
  if rs("Option5")<>"" then
  
  %>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="NO<%=rs("QueID")%>" value="E"  onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof then
		  if instr(ucase(rst("StuAnswer")),"E")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          E、<%=rs("Option5")%></td>
    </tr>
    <%
  end if
  %>
    <%
  if rs("Option6")<>"" then
  
  %>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="NO<%=rs("QueID")%>" value="F"  onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof  then
		  if instr(ucase(rst("StuAnswer")),"F")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          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">三、判断题(每题<%=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 width="100%" bgcolor="#EFEFEF" height="20">&nbsp;&nbsp;<b><%=sNoumber%>、<%=rs("Question")%>
        <input name="Que_ID3" type="hidden" id="Que_ID3" value="<%=rs("QueID")%>">
      </b></td>
    </tr>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="radio" name="NO<%=rs("QueID")%>" value="y" onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof then
		  if  instr(ucase(rst("StuAnswer")),"Y")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          正确</td>
		 
    </tr>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="radio" name="NO<%=rs("QueID")%>" value="n"  onClick="troublesave(<%=rs("QueID")%>);"
		    <%
		  sqlt = "select * from trouble_restore where Paper_ID = "&v_PaperID&" and Que_ID = "&tempQue_ID&" and User_ID="&request.Cookies("userid")
		  set rst = server.CreateObject("adodb.recordset")
		  rst.open sqlt,conn,3,2
		 
		  if not rst.eof  then 
		  if instr(ucase(rst("StuAnswer")),"N")<>0 then
	
		  %>checked
		  <%
		  end if
		  end if
		  rst.close
		  set rst = nothing
		  %>  >
          不正确</td>
		 
    </tr>
  </table>
  <%   sNoumber=sNoumber+1
     rs1.movenext
	'rs.movenext
wend
rs1.close
'rs.close
set rs=nothing
%>
<p align="center">　</p>
  <p align="center">　</p>
  <p align="center">　</p>
  <p align="center">　</p>
  <p align="center">　</p>
  <input type="hidden" name="kstime" value="<%=now()%>" size="20">
  <input type="hidden" name="testid" value="<%=request("testid")%>" size="20">
  <input type="hidden" name="subject" value="<%=subject%>" size="20">
  <input type="hidden" name="singlecount" value="<%=singlecount%>" size="20">
  <input type="hidden" name="singleper" value="<%=singleper%>" size="20">
  <input type="hidden" name="multicount" value="<%=multicount%>" size="20">
  <input type="hidden" name="multiper" value="<%=multiper%>" size="20">
  <input type="hidden" name="judgecount" value="<%=judgecount%>" size="20">
  <input type="hidden" name="judgeper" value="<%=judgeper%>" size="20">
  <input type="hidden" name="subjectid" value="<%=request("id")%>" size="20">
  <input type="hidden" name="starttime" value="<%=starttime%>" size="20">
  <input type="hidden" name="endtime" value="<%=endtime%>" size="20">
  <input type="hidden" name="testtime" value="<%=testtime%>" size="20">
  <!-- PersistentLayer-->
  <div id="persistMenu" style="position: absolute; height:150px; width:230px; left:360px; top:1px;z-index: 100; visibility: hidden" class="blueborder">
    <table border="1" cellspacing="0" style="border-collapse: collapse; border-width: 1" bordercolor="#111111" width="230" id="AutoNumber1" class="outborder" cellpadding="0" height="20">
      <tr>
        <td>
        <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="160" id="AutoNumber5" height="20">
          <tr>
            <td width="20"><font color="#FFFFFF">
            <img border="0" src="file:///E:/cadre2002/exam/images/timer.gif" width="15" height="15"></font></td>
            <td><b><font color="#FFCC00">计时器</font></b></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="230" id="AutoNumber2" class="outborder" cellpadding="0">
      <tr>
        <td>
        <div align="center">
          <center>
          <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber3">
            <tr>
              <td height="30">
              <p align="center"><font color="#FFFFFF">开始时间</font></td>
              <td>
              <input type="text" name="mystarttime" size="20" class="inputborder" readonly></td>
            </tr>
            <tr>
              <td height="30">
              <p align="center"><font color="#FFFFFF">结束时间</font></td>
              <td>
              <input type="text" name="myendtime" size="20" class="inputborder" readonly></td>
            </tr>
            <tr>
              <td height="30">
              <p align="center"><font color="#FFFFFF">剩余时间</font></td>
              <td>
              <input type="text" name="lefttime" size="20" class="inputborder" readonly></td>
            </tr>
          </table>
          </center>
        </div>
        </td>
      </tr>
    </table>
    <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="230" id="AutoNumber4" class="outborder" height="30">
      <tr>
        <td width="100%">
        <p align="center">
        <input type="submit" value="我要交卷" name="B3" class="s02"></td>
      </tr>
    </table>
  </div>
  <!--End PersistentLayer-->
  <b><font size="3" color="#000080">
  <input type="hidden" name="stu_sta_time" value="<%=now%>">
  <input type="hidden" name="testm" value="<%=testm%>">
  <input type="hidden" name="tests" value="<%=tests%>">
</font></b>
</form>
<script language="javascript">
alert("确定开始考试并启动计时器！");
MM_showHideLayers('persistMenu','','show');
ScrollMenu();
document.all.mystarttime.value=document.all.starttime.value;
document.all.myendtime.value=document.all.endtime.value;
var myh=document.all.testtime.value;
var mym=document.all.testm.value;
var mys=document.all.tests.value;
function lefttime(){
mys--;
  if (mys<0)
  {
    mys=59;
    mym--;
  }
  if (mym<0)
  {
    mym=59;
    myh--;
    if (myh<0)
    {
    alert("考试时间到，确定查看成绩！");
    testform.submit();
    }
  }
document.all.lefttime.value=myh+":"+mym+":"+mys;
setTimeout("lefttime(myh)",1000);
} 
lefttime();
function submitit(){
if (confirm("未到交卷时间，您确定要提前交卷么？")) 
  return true; 
else 
  return false; 
} 
</script>
<%
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>