⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 db_tryzujuan_tm.asp

📁 这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统自动出卷,另一种是老师出卷考试.前者的实现是参考网上代码.总的来说还是很值得参考的.
💻 ASP
字号:
<!--#include file="conn2.asp"-->
<!--#include file="loginV.asp"-->
<!--#include file="numString.asp"-->
<%
if not VerificationRole("ROLE_1") then
	response.Write("<p>&nbsp;</p><center><img src='img/error.jpg'></center>")
	response.End()
end if
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

<link href="css/Style.css" rel="stylesheet" type="text/css">

<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</style>
</head>

<body>



<p>&nbsp;</p>
<TABLE width="643" border=0 align=center cellPadding=2 cellSpacing=1 
                  bgColor=#d2ebff class="Xsmall">
  <TBODY>
    <TR>
      <TD width="637" vAlign=top bgColor=#ffffff>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
          <TBODY>
            <TR>
              <TD 
                              height=25 background=img/backt.gif class="Xsmall"> <strong>试卷管理</strong></TD>
            </TR>
          </TBODY>
        </TABLE>
      </TD>
    </TR>
    <TR>
      <TD vAlign=top bgColor=#ffffff><table width="635" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#66CCFF" class="Xsmall">
         
          <tr>
            <td height="30" colspan="8"><div align="center" class="style1">以有试卷列表</div>
            </td>
          </tr>
          <tr>
            <td width="100" align="center">科目</td>
            <td width="110" height="25" align="center">试卷名称</td>
            <td colspan="2" align="center" bordercolor="#999999">判断题数</td>
            <td width="119" align="center">单选题数</td>
            <td width="68" align="center">多选题数</td>
            <td width="55" align="center">考试时间</td>
            <td width="51" align="center">删除</td>
          </tr>
		  <% 
		  str="select * from test_gl1"
             set rst=conn.execute(str)
              do while not rst.eof
			  %>
          <tr>
            <td align="center"><%=rst("test_name")%></td>
            <td height="25" align="center"><%=rst("test_kemu")%></td>
            <td colspan="2" align="center" bordercolor="#999999"><%=rst("test_pan")%></td>
            <td align="center"><%=rst("test_dan")%></td>
            <td align="center"><%=rst("test_duo")%></td>
            <td align="center">&nbsp;</td>
            <td align="center"><% response.write "<a href=db_tryzujuan_tm.asp?del_id="&rst("id")&">删除</a>"  %></td>
          </tr>
		    <%rst.movenext%>
                <%loop%>
          <tr>
            <td height="30" colspan="8"><div align="center"></div>
                <div align="center"></div>
                <div align="center"> </div>
            </td>
          </tr>
         
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="716" border=0 align=center cellPadding=2 cellSpacing=1 
                  bgColor=#d2ebff class="Xsmall">
  <TBODY>
    <TR>
      <TD width="710" vAlign=top bgColor=#ffffff>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
          <TBODY>
            <TR>
              
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD vAlign=top bgColor=#ffffff><table width="638" border="0" align="center" cellpadding="0" cellspacing="0" class="Xsmall">
          <form name="Addform" method="post" action="save_zujuan.asp">
            <tr align="center">
              <td height="30" colspan="8"><span class="style1">新增试卷操作</span></td>
            </tr>
            <tr>
              <td height="30" colspan="8"><div align="center" class="style1"><span class="unnamed14"><font color="#FF0000">
               <%=session("sa_help")%>
              </font></span></div></td>
            </tr>
            <tr>
              <td width="68" height="25" align="center">科目</td>
              <td width="112" align="center">试卷名称</td>
              <td width="78" align="center">判断题数</td>
              <td width="72" align="center">单选题数</td>
              <td width="80" align="center">多选题数</td>
              <td width="72" align="center">试卷套数</td>
              <td width="83" align="center">考试时间</td>
              <td width="73" align="center">试卷总分</td>
            </tr>
            <tr>
              <td height="25" align="center">   <select name="selectkemu" id="selectkemu">
                  <%
				  
				listExamName="Select ID,db_NAME from tryinfo1 "
				set rsT=conn.execute(listExamName)

				if rsT.eof then
					response.write("<option >题库中没有科目</option>")
				end if
				Num=1
				while not rsT.eof
					ExamIDT=rsT("ID")
					ExamNameT=rsT("db_name")
					if Num=1 then
						response.Write("<option >"&examnamet&"</option>")
						Num=0
					else
						response.Write("<option >"&ExamNameT&"</option>")
					end if
					rsT.movenext
				wend
				%>
                </select>		 
		  </td>
              <td align="center"><input name="try_name" type="text" id="try_name" size="16"></td>
              <td align="center"><input name="pand_num" type="text" id="pand_num" size="5"></td>
              <td align="center"><input name="danx_num" type="text" id="danx_num2" size="5">              </td>
              <td align="center"><input name="duox_num" type="text" id="duox_num3" size="5"></td>
              <td align="center"><input name="try_num" type="text" id="try_num" size="5"></td>
              <td align="center"><input name="examtime" type="text" id="examtime" value="<%=120%>" size="10" maxlength="10"></td>
              <td align="center"><input name="sum" type="text" id="sum" size="5"></td>
            </tr>
            <tr>
              <td height="30" colspan="8"><div align="center"></div>
                  <div align="center">
                    <table width="49%" border="0" cellpadding="0" cellspacing="0" class="Xsmall">
                      <tr>
                        <td width="29%"><div align="center">
                            <input name="Submit2" type="submit" class="Xsmall" value="增  加">
                        </div></td>
                        <td width="39%"><div align="center"><span class="unnamed14"><font color="#FF0000">
                          <input name="Submit22" type="button" class="Xsmall" value="返  回" onClick="javascript:history.back(1)">
                        </font></span> </div></td>
                        <td width="32%"><div align="center"> 试题总数                        </div></td>
                      </tr>
                    </table>
                   </div>
                  <div align="center"> </div></td>
            </tr>
          </form>
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<p>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

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