📄 trybook.asp

📁 这是一个用ASP写的在线考试系统.特别一点就是考试试卷有两种考法,一种为系统自动出卷,另一种是老师出卷考试.前者的实现是参考网上代码.总的来说还是很值得参考的.
💻 ASP
字号:

<!--#include file="safe.asp" -->
 
<!--#include file="conn2.asp"-->
<link href="../css/Style.css" rel="stylesheet" type="text/css">



<%	
addid=request("addid")
addid=cint(addid)

	'TRY_SUBJECTID－－－－－－－－－－－－－
	set rsT=server.CreateObject("ADODB.RecordSet")
	trySql="select * from tryshijuan where ID="&addid  '&Session("selectTryId")
	rsT.open trySql,Conn
	TryName=rsT("NAME")
	'TryNum=rsT("DB_TRYNUM")
	Session("tryTime")=rsT("long")
	TryDateName=trim(rsT("bNAME"))
   '随机抽卷
   'dim TryRndNum
   'TRY_SUBJECT数目
   
   'dim PdNum,DxNum,DdxNum
   'randomize
   'TryRndNum=Int(Rnd*TryNum)+1
	'n=1
	'数据表名
	Session("tryT")=TryDateName
%>

<%
sasql="select stu_key from score where db_name='"&Session("tryT")&"' and stu_num='"&session("stunum")&"'"
set rst=conn.execute(sasql)
if not rsT.eof then
stukey=rst("stu_key")
if stukey=1 then
	response.Write("<center class='Xsmall'><p><img src='../img/error.jpg' align='absmiddle'></p>对不起，你不遵守本考场规则，已被逐出考场。<p>若要考试，你与考场老师联系！<p><img   align='absmiddle'> <a href='indexmain.asp'>请点击返回</a></center>")
	response.End()
end if
end if
Session("Stu_Retset")=1
%>
<!--#include file="include/ChangeTime.asp" -->

<html>
<head>
<title> </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content=CnSohoW设计 name=description>
<META content="firekinger@163.com" name=author>

</head>
<body onload="ChangeTime()">
<a name="top"></a>
<div align="center" class="Xbig"><font color=blue><b> 
  <%
	response.write(TryName)
	%>
  </b></font></div><div align="center" class="Xhsmall">
  <%
  TimeLogin=time()
  TimeSubmit=DateAdd("n", TimeGet, TimeLogin)
  response.Write("登录时间："&TimeLogin&"　　交卷时间："&TimeSubmit)  
  %>
  </div>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="49" height="35" background="images/HOME_BG3.GIF">&nbsp;</td>
    <td height="35" background="images/HOME_BG9.GIF"><div align="center"><span class="Xsmall"><font color=blue> 
        请不要点击刷新、后退等违纪按钮（ 
        导致无法做题,一律以零分提交），准时交卷（ 
        超时以零分提交） </font></span></div></td>
    <td width="13" height="1">&nbsp;</td>
  </tr>
  <tr> 
    <td width="49" background="images/HOME_BG1.GIF"> <br> </td>
    <td background="images/home_bg10.gif">
	<form name="tryForm" method="post" action="listScore.asp">
        <blockquote>
        <span class="xsmall">
	<%
		rsT.close()
	   trySql="select * from "&Session("tryT")&" where TRY_TYPE='1'"
	   rsT.open trySql,Conn',3,2
	   '判断题
	   q_num=1
	   response.write "一. <b>判断题</b><font color=red>　注： 对的打勾、错的不要打勾</font><br>"
	   while not rsT.Eof
	   			'response.write(q_num&". "&rsT("TRY_SUBJECT")&"<input name='PdCb'&q_num type='checkbox' id='PdCb' value='1'>"&"<br>")		
	%>
		<input name="<%response.write("PdCb"&q_num)%>" type="checkbox" value="1"> <%response.write(q_num&". "&rsT("TRY_SUBJECT"))%>
	   <br>
	   <%
			rsT.movenext
			q_num=q_num+1
		wend
		PdNum=q_num-1
		Session("Pd_Num")=PdNum
		rsT.close
		'选择题
		response.write("<br>二. <b>单选择</b><font color=red>　 </font><br>")
		trySql="select * from "&Session("tryT")&" where TRY＿TYPE='2'"
		rsT.open trySql,Conn
		q_num=1
		while not rsT.Eof
			response.write(q_num&". "&rsT("TRY_SUBJECT")&"<br>")
	'		response.write(" <input type='radio' name='DxRb'&q_num value='1'> A. "&rsT("a")&"<br>"&"<input type='radio' name='DxRb'&q_num value='1'> B. "&rsT("b")&"<br>"&"<input type='radio' name='DxRb'&q_num value='1'> C. "&rsT("c")&"<br>"&"<input type='radio' name='DxRb'&q_num value='1'> D. "&rsT("d")&"<br>")				
		%>
		<input type="radio" name="<%response.write("DxRb"&q_num)%>" value="A"> A. <%=rsT("a")%>
		<br><input type="radio" name="<%response.write("DxRb"&q_num)%>" value="B"> B. <%=rsT("b")%>
		<br><input type="radio" name="<%response.write("DxRb"&q_num)%>" value="C"> C. <%=rsT("c")%>
		<br><input type="radio" name="<%response.write("DxRb"&q_num)%>" value="D"> D. <%=rsT("d")%>
		<br>
		<%
			rsT.movenext
			q_num=q_num+1
		wend
		DxNum=q_num-1
		Session("Dx_Num")=DxNum
		rsT.close
		response.write("<br>三. <b>多选择</b><font color=red>　注： 对的打勾、错的不要打勾</font><br>")
		trySql="select * from "&Session("tryT")&" where TRY＿TYPE='3'"
		rsT.open trySql,Conn
		q_num=1
		while not rsT.Eof
			response.write(q_num&". "&rsT("TRY_SUBJECT")&"<br>")
		%>
		<input name="<%response.write("DxCb"&q_num)%>" type="checkbox"  value="A"> A. <%=rsT("a")%>
		<br><input name="<%response.write("DxCb"&q_num)%>" type="checkbox"  value="B"> B. <%=rsT("b")%>
		<br><input name="<%response.write("DxCb"&q_num)%>" type="checkbox"  value="C"> C. <%=rsT("c")%>
		<br><input name="<%response.write("DxCb"&q_num)%>" type="checkbox"  value="D"> D. <%=rsT("d")%>
		<br>
		<%
			rsT.movenext
			q_num=q_num+1
		wend
		DdxNum=q_num-1
		Session("Ddx_Num")=DdxNum
		rsT.close

	%>
		</span>
      </blockquote>
	 <center><p class="Xsmall"><input name="ListFlagCb" type="checkbox" value="1"> 
	 显示成绩　<font color=red>（若显示成绩请打勾）</font>　　　　　　　[ <a href="#top">GO TOP</a> ]</p>
          <input name="submitS" type="button" value="提 交" class="Sborder" onclick=javascript:window.confirm('你真的要提交试卷吗？')?window.tryForm.submit():window.location.href('#')>
           </center>
	 </form>
	 
    </td>
    <td width="13" background="images/home_bg7.gif">&nbsp;</td>
  </tr>
  <tr> 
    <td width="49" height="42" background="images/HOME_BG2.GIF">&nbsp;</td>
    <td height="22" background="images/home_bg10.gif" bgcolor="#FFFFFF"><div align="center"><span class="Xsmall"><font color="#FF0000">请不要点击刷新、后退等违纪按钮（ 
        导致无法做题,一律以零分提交），准时交卷（ 
        超时以零分提交）</font></span></div></td>
    <td width="13" height="22" background="images/HOME_BG7.GIF">&nbsp;</td>
  </tr>
  <tr> 
    <td height="12" background="images/HOME_BG4.GIF">&nbsp;</td>
    <td background="images/HOME_BG5.gif">&nbsp;</td>
    <td background="images/HOME_BG6.GIF">&nbsp;</td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -