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

📄 trybook.asp

📁 一个用 asp+access开发的再线考试系统
💻 ASP
字号:
🔍 

<!--#include file="safe.asp" -->
<!--
****************************************************************
*
*                  『CnSohoW作品』 OnlineExam V1.1
*
*              版权所有: 『cnsohow』
*
*              程序制作:  CnSohoW『firekinger』
*           
*              主页地址:  http://www.cnsohow.com/
*              E-MAIL:  firekinger@163.com
*
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
*
*                         【 版权声明 】
*
*     本系统只作为一种技术交流，不能用于商业，希望能给予合作。
*
****************************************************************
*
*　　如果你在使用这个程序的过程中有什么错误、意见、建议，请及时
*    告诉我，谢谢！
*
****************************************************************
*
* 安装说明：
*
*   默认的后台数据管理员用户名和密码都是：admin
*   默认的验证密码都是：firekinger
*　
****************************************************************几几点说明:

	题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a)	先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b)	添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c)	在试题后台设置中，选择要修改的考试题目，点击修改否
d)	再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e)	最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
*      Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
-->
<!--#include file="include/conn.asp"-->
<link href="css/Style.css" rel="stylesheet" type="text/css">
<%	
	'TRY_SUBJECTID－－－－－－－－－－－－－
	set rsT=server.CreateObject("ADODB.RecordSet")
	trySql="select * from tryinfo where ID="&Session("selectTryId")
	rsT.open trySql,Conn
	TryName=rsT("DB_EXAMNAME")
	TryNum=rsT("DB_TRYNUM")
	Session("tryTime")=rsT("DB_TRYTIME")
	TryDateName=trim(rsT("DB_NAME"))
   '随机抽卷
   dim TryRndNum
   'TRY_SUBJECT数目
   
   dim PdNum,DxNum,DdxNum
   randomize
   TryRndNum=Int(Rnd*TryNum)+1
	n=1
	'数据表名
	Session("tryT")=TryDateName
%>

<!--#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> 
        请不要点击刷新、后退等违纪按钮（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle"> 
        导致无法做题,一律以零分提交），准时交卷（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle"> 
        超时以零分提交） </font></span></div></td>
    <td width="13" height="1"><img src="images/home_bg8.gif" width="13" height="35"></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>　注：每题1分，对的打勾、错的不要打勾</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>　注：每题1分，对的打勾、错的不要打勾</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>　注：每题1分，对的打勾、错的不要打勾</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>")
		%>
		<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">请不要点击刷新、后退等违纪按钮（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle"> 
        导致无法做题,一律以零分提交），准时交卷（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle"> 
        超时以零分提交）</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 + -