在线考试系统源代码

合集下载

学生登陆界面源代码

<%@page contentType="text/html;charset=utf-8"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>学生登陆</title><style type="text/css"></style><script type="text/javascript" src="../js/jquery-1.4.3.js"></script> <script type="text/javascript" >//标识各项是否通过var flag={"name":false,"password":false};$(function(){//用户email非空，格式检查$('#txtStudentname').blur(function(){$(this).html("");var emailTXT=$('#txtStudentname').val().trim();if(emailTXT==""){$("#name\\.info").html("name地址不能为空");return;}flag.email=true;$("#name\\.info").html("<imgsrc='../image/label3_s.gif'/>");});});//密码项:非空,长度6-20字符$(function(){$("#txtPassword").blur(function(){$("#password\\.info").html("");var passwordTXT=$("#txtPassword").val().trim();//检查非空if(passwordTXT==""){$("#password\\.info").html("密码不能为空");return;}});});//表单提交事件$("#f").submit(function(){var ok=flag.email&&flag.password;if(!flag.email){$('login\\.info').html("用户名不能为空");return;//不做任何处理或者给个操作提示}if(!flag.password){$('login\\.info').html("密码不能为空");return;//不做任何处理或者给个操作提示}return true;} );</script></head><body><form action="../student/login.action" method="post" id="f"><table width="1189" height="460" bordercolor="#03BAa0"><tr><td height="152" colspan="3"><img src="../image/title.jpg"width="1217" height="147" /><div id="Layer2"><strong>欢迎您！</strong></div><divclass="STYLE1" id="Layer1"><div align="center"><strong><span class="STYLE3">C</span>语言考试系统</strong></div></div></td></tr><tr><td> </td><td width="398" bgcolor="#03BAa0"><div align="center" class="STYLE5"> <div align="center">学生登陆</div></div></td><form id="form1" name="form1" method="post"action="../student/login.action"><td height="79"> </td></tr><tr align="center"><td width="382" rowspan="2"> </td><td height="150" bgcolor="#03BAa0"><p align="center" class="STYLE8">用户名<input type="text" name="name" id="txtStudentname" /><a id="" style="color:red"></a></p><p align="center" class="STYLE4"><span class="STYLE8">密码<input type="text" name="password" id="txtPassword" /><a id="" style="color:red"></a></span></p></td><td width="403" height="325" rowspan="2"><div align="center"></div> <div align="center"></div></td></tr><tr align="center"><td height="23" bgcolor="#03BAa0"><div align="center"><input type="submit" bgcolor="#03BAa0" name="Submit" value="提交" />  <input type="submit" bgcolor="#03BAa0"name="Reset" value="取消" /><span id="" style="color:red"></span></div></td></tr><tr><td colspan="3" bgcolor="#03BAC9"><span class="STYLE4">太原师范计算机系</span></td></tr></table></body></html>。

基于CentOS 构建TCExam 在线考试系统

基于CentOS 构建TCExam 在线考试系统作者：亓鹏王殿生闫向宏来源：《电脑知识与技术》2013年第26期摘要：TCExam是一款优秀的开源在线考试系统，它需要高稳定性服务器的支持。

对于缺少资金支持的教育单位来说，费用是个很大的问题。

文章提出了从软件解决这一问题的方法，详细介绍了以CentOS操作系统为基础，构建基于Apache、PHP、MySQL的高稳定性网页服务器的过程，并部署了TCExam考试系统，过去两年已成功进行了两次在线考试。

关键词： TCExam；CentOS；在线考试；网页服务器；PHP中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2013）26-5876-031 概述TCExam是当前世界上应用最多的一款基于计算机的开源考试系统，它基于网络，跨平台，并且符合W3C标准，主要应用于重要的大学、中学以及各种公共或者私营公司。

它能够大大简化整个考试流程，自动随机生成试题、精确控制考试时间、提供考试统计以及试题错误分析等功能。

另外，它易于使用，不需要昂贵的硬件来运行，也没有额外的商业软件，用户只需要网页浏览器即可完成考试过程。

TCExam是目前世界上使用最为广泛的开源在线考试系统之一，支持包括中文在内的十几种语言。

一般考试系统都需要一个稳定的运行环境，包括硬件和软件，软件最主要的部分是操作系统，目前服务器操作系统主要三类：Unix、Linux和Windows。

其中，Unix操作系统具有最好安全性和稳定性，但同时对计算机硬件配置环境要求很高，一般教育部门很难提供这样高端的网络环境。

Windows操作系统易于使用，但价格较贵，对一般教育部门来说负担较大。

Linux操作系统在安全性和稳定性方面，已经与Unix不相上下，但价格却便宜得多。

在众多的Linux服务器版本中，红帽企业版是世界上最著名、也是使用最多的服务器操作系统，但是价格比较昂贵，同时昂贵的升级费用也给经费较为紧张的教育部门带来了较大的负担。

在线考试系统及其实现

ｕｔｅｓ
网络考试系统的特点之一就是能随机生成考生的
试卷，使每个考生的试卷都不完全一样，我们一般都是
使用随机函数，但存在重复随机数问题。这里介绍一种不会产生重复随机数而且是一个非常简短的代码。代
在线考试系统及其实现
张宇杰
ｆ中北大学现代教育技术与信息中心山西太原００５）３０１
【摘要】讨论了基于Ｗｅｅ在线考试系统的现状、展、ｂｊ发主要技术和实现方法。对其中一些主要技术出了源代ｌ码．正在做相同或类似工作者以参考和相互交流。给【关键词】考试系统数据库应用ＡＰＳ【文章编号】１０ — ７Ｘ（０６０ — １０００３７３２０）４０５ — ２【图分类号】Ｇ２．中４４７４【献标识码】Ａ文
１ＢＳ，结构要考虑的一些主要问题
其中ｎ是一个数组。也是你要生成的不重复的随１
机数。Ｏ你需要的最大试题数，可以根据你的需要５是你修改。ｎ的数据即可作为抽取试题库中的试题编号。１
１．考试过程时间显示２
弊。应能生成随即试卷。防止计算机出现故障或停电为
等原因中断考试，系统应能随时保存试卷。考生还应能
看到时间进度，结束时能自动交卷且立刻得出成绩。再

macbook查看国考补录源源代码

macbook查看国考补录源源代码（原创实用版）目录1.介绍国考补录系统2.阐述查看国考补录系统源代码的意义3.介绍如何在 MacBook 上查看国考补录系统源代码4.分析国考补录系统源代码的特点和优势5.总结如何利用查看源代码的方法提高对国考补录系统的理解和应用正文在我国，国家公务员考试是一项重要的招聘考试，吸引了大量考生参加。

国考补录系统是针对考试结束后，部分职位空缺而设立的一种补充招聘机制。

对于广大考生而言，了解国考补录系统的运作方式和原理具有重要意义。

本文将介绍如何在 MacBook 上查看国考补录系统的源代码，并分析其特点和优势。

首先，了解国考补录系统的源代码，有助于我们深入了解系统的运作原理。

源代码是软件的核心，通过阅读源代码，我们可以了解到系统的设计思路、功能实现等方面的信息。

这对于我们理解和掌握国考补录系统，提高应用效率具有重要意义。

那么，如何在 MacBook 上查看国考补录系统的源代码呢？这里需要用到一些开发工具。

在 MacBook 上，我们可以使用 Sublime Text、Visual Studio Code 等代码编辑器来查看和分析源代码。

当然，还需要掌握一些基本的编程知识和技能，例如了解 HTML、CSS、JavaScript 等前端技术，以及掌握一些后端编程语言，如 Python、Java 等。

在查看国考补录系统的源代码时，我们可以发现其具有以下特点和优势。

首先，系统采用了模块化的设计思路，将功能划分为不同的模块，便于维护和升级。

其次，系统采用了一些先进的前端技术，如响应式布局、动态加载等，使得用户界面更加友好。

此外，系统还采用了一些安全的编程技巧，如输入验证、SQL 注入防护等，保证了系统的安全性和稳定性。

总之，通过在 MacBook 上查看国考补录系统的源代码，我们可以深入了解系统的运作方式和原理，提高对国考补录系统的理解和应用。

ASP应用程序的设计实例共30页

留言者姓名、主题、留言内容和张贴时
间等信息。
l
GuestBook.asp：实现留言簿功能
的主程序，负责读取GuestBook表中的留
言内容，并将这些内容以分页方式显示
在浏览器窗口中。
l
GuestBook.htm：用来形成一个表
单页面，供来访者输入和张贴新留言。
l
Post.asp：负责将来访者在留言
说明客户编号，主键，自动递增客户昵称密码客户姓名客户电子邮件地址客户所在省份客户所在城市客户住址邮政编码客户联系电话
8.4.2 客户登录页面设计
1．显示客户登录窗口
2．验证客户登录信息
8.4.3 客户注册页面设计 1．客户注册窗口页面
2．验证客户注册信息

用于启动索引服务，并由搜索结果生成 Recordset记录集
2．Columns属性的子属性
属性
说明
Access
最近一次访问文件的日期和时间
Characterization
文件的摘要信息
Created
文件的建立时间
Directory
文件所在的实际目录（不包括文件名称）
DocAuthor
文件的作者
DocTitle
Sanfran.txt：存放旧金山得票数文本的
文件。
8.2.2 网上投票系统源代码 8.2.3 网上投票系统的完善 8.2.4 用图形显示投票结果
8.3 在线考试系统
8.3.1 在线考试系统简介 1．考试系统界面
2．试题数据库
8.3.2 在线考试系统源代码
1．生成试卷和提供考生答题的程序Exam.asp
第8章 ASP应用程序设计实例

网页制作在线考试系统的开发(1)

毕业论文(设计)题目：网页制作在线考试系统的开发毕业设计（论文）原创性声明和使用授权说明原创性声明人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。

尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得及其它教育机构的学位或学历而使用过的材料。

对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。

者签名：日期：导教师签名：日期：使用授权说明人完全了解大学关于收集、保存、使用毕业设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。

作者签名：日期：学位论文原创性声明本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。

除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。

对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。

本人完全意识到本声明的法律后果由本人承担。

作者签名：日期：年月日学位论文版权使用授权书本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。

本人授权大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。

涉密论文按学校规定处理。

者签名：日期：年月日师签名：日期：年月日注意事项1.设计（论文）的内容包括：）封面（按教务处制定的标准封面格式制作）2）原创性声明3）中文摘要（300字左右）、关键词4）外文摘要、关键词5）目次页（附件不统一编入）6）论文主体部分：引言（或绪论）、正文、结论7）参考文献8）致谢9）附录（对论文支持必要时）2.论文字数要求：理工类设计（论文）正文字数不少于1万字（不包括图纸、程序清单等），文科类论文正文字数不少于1.2万字。

关于试卷生成系统的论文和源代码

前言高校教务管理工作中一项重要的工作是考试管理工作，每学期从各专业考试，从组织出卷到试卷的印刷及试卷的管理等工作非常繁琐且工作量大，这种组织管理方式不仅工作任务繁重而且试卷的标准化程度、难易程度、题量大小等各方面难以控制，难以形成有效的试题库，不利于充分发挥历年来的优秀试题以及试卷的作用，给试题和试卷的管理带来很多问题和困难。

鉴于这种情况，利用计算机进行试卷的自动生成并逐步积累形成有效的试题库，对试题和试卷的管理将变的高效和快捷，对提高工作效率，使试卷管理逐步走向正规化和自动化将起到十分重要的作用。

它解决传统手动出卷的很多问题。

例如：避免了不必要的重复劳动，节约了人力资源及时间；使用科学的衡量、评价及统一试卷难易度、试卷的质量的有效手段；大幅度降低了试卷出现错漏缺的机率，减少了不必要的麻烦。

基于要克服以上问题，该试卷生成系统应具有以下功能：●题库管理：根据用户需求，系统应该能够维持一个存有数千道以上试题的题库。

系统应当允许教师在获得权限的情况下随时能够进行试题补充．且试题的题型可有多种多样．试题难度、区分度也有不同。

操作员能够按照自己的需要，随时可以对题库中已有的试题进行修改、删除，同时还可以查询和浏览试题。

●出卷管理：根据用户提出的要求，可以进行人工组卷和自动组卷。

另外，从题库中抽取全部所需的试题之后，要求系统能够按照一般试卷的编排要求，将抽取的试题进行排版，并以标准的格式输出到Word文档中。

同时，也应能够生成试卷的标准答案并输出到Word文档中。

●权限管理：系统管理员可以增加或删除操作人员并指定操作人员的权限，可对用户权限进行修改，从而保证系统在实施中的灵活性。

该系统已基本满足教学需要，为实现教学改革，改变传统的出卷方式，实现教考分离起到了积极的促进作用。

但程序仍还有诸多有待完善的地方，程序并未充分优化。

随着计算机技术的不断发展和普及，将会对教学工作提出更高的要求，该系统必须要不断地改进，从而使得教学工作更加合理和快捷。

基于JavaEE技术的在线考试系统的设计与实现

现．Ｓｐｉｒｎｇ是一个轻量级的控制反转（ＩｏＣ）和面向切面（ＡＯＰ）的容器框架，是为了解决企业应用开发
消息，则控制线程异步接收并处理队列中的请求消息，执行信息应答、数据入库等操作，如果队列中没有消息，则控制线程一直处于等待状态 “ ｊ．
— ——一一
麓请求
２系统设计的关键技术
２．１自动组卷策略
图２在线考试系统中的消息队列处理示意图
要构建一个在线考试系统，关键问题是试卷的
自动生成技术，即在考试系统中自动消息队列的机制．系统使用一个中央服务器，其在接到多个客户
ＳＳＨ在Ｊａｖａ目中表示了３种框架，即Ｓｐｉｒｎｇ、
Ｓｔｒｕｔｓ和Ｈｉｂｅｒｎａｔｅ．Ｓｔｒｕｔｓ对Ｍｏｄｅｌ，Ｖｉｅｗ和Ｃｏｎｔｒｏｌ —
试题库构建之后，组织某种策略和算法来完成
试题的自动组卷．在本文所述的在线考试系统中，
自动组卷采用的策略从以下方面进行考虑：
（１）分析用户需求，即参加考试的用户对象、
知识构成、考查力度和考查深度等．（２）转化组卷指标，其包括考试时间、难度系
以正确的显示它们．

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

课程删除源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim student_name,student_nostudent_name=session("student_name")student_no=session("student_no")student_password=session("student_password")if session("student_name")=empty thenresponse.write "<div align=""center"">您还没有登录，请<a href=""signup.asp"">返回</a> 登录</div>"response.endend if' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("/webtest/data/webtest.mdb")'打开连接'conn.open provider & dbpathcnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式dim sql1sql1="select 所学课程from student_subject where 学生学号='"&student_no&"' "rs.open sql1,conn, 3if rs.eof thenresponse.write "<div align=""center"">您还没有选择课程，请<a href=""s_select_subject.asp"">返回</a> 选择课程</div>"rs.closeresponse.endend if%><html><head><title>学生删除课程</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><h1 align="center"><% =session("student_name") %>同学删除课程</h1><hr><% if request("send")=empty then %><div align="center"><form name="s_del_subject_form" method="post" action=""><table width="70%" border="1" align="center" bordercolor="#000000"><tr><td><table width="100%" border="0" align="center"><tr><td colspan="2"><div align="center"> </div></td></tr><% rs.MoveFirst ' 将当前的数据记录移到第一项%><% While Not rs.EOF ' 判断是否已经过了最后一项%><tr><td><div align="right"><input type="checkbox" name="subject" value=<%= rs(0) %>>    </div></td><td width="49%" colspan="-4"><%= rs(0) %></td></tr><% rs.MoveNext ' 移到下一项%><%Wend%><tr><td colspan="2"><div align="center"> </div></td></tr><tr><td colspan="2"><div align="center"><input type="submit" name="ok" value="确定删除"></div></td></tr></table></td></tr></table><input name="send" type="hidden" value="send"></form><% else %><%subject_array=split(request("subject"),",")for i=0 to ubound(subject_array)dim subjectdim sql2subject=trim(subject_array(i))sql2="delete from student_subject where 学生学号='"&student_no&"' and 所学课程='"&subject&"'"mandtext=sql2cmd.Executenextconn.close%><%= "<p> </p><div align=""center"">您删除了下面这些的课程</div><br><br>" %><table width="29%" border="0" align="center"><tr><td><%subjects=replace(request("subject"),",","<li>")response.write "<ul><li>" & subjects & "</ul>"%><p> </p><p> </p><p> </p><p> </p><%= "<p align=""center""><a href=""student_main.asp"">返回</a> </p>" %> </td></tr></table><% end if %><p> </p></div></body></html>选择课程源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim student_name,student_nostudent_name=session("student_name")student_no=session("student_no")if session("student_name")=empty thenresponse.write "<div align=""center"">您还没有登录，请<a href=""student_signup.asp"">返回</a> 登录</div>"response.endend if' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("/webtest/data/webtest.mdb")'打开连接'conn.open provider & dbpathcnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式set rs5= Server.CreateObject("adodb.recordset")rs5.locktype=2 '将锁定类型设为保守式dim sql1sql1="select distinct 所讲学科from teacher "rs.open sql1,conn,3dim sql5sql5="select distinct 所学课程from student_subject where 学生学号='"&student_no&"'"rs5.open sql5,conn,3if not rs5.eof thendim subject_numrs5.MoveFirst ' 将当前的数据记录移到第一项While Not rs5.EOF ' 判断是否已经过了最后一项subject_num=subject_num+1rs5.MoveNext ' 移到下一项Wendredim select_array(subject_num) '将rs中的记录存入该数组dim subject_isubject_i=0rs5.MoveFirst ' 将当前的数据记录移到第一项While Not rs5.EOF ' 判断是否已经过了最后一项select_array(subject_i)=rs5("所学课程")subject_i=subject_i+1rs5.MoveNext ' 移到下一项Wendend ifrs5.close%><html><head><title>学生选择课程</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1><% =session("student_name") %>同学选择课程</h1><hr><p> </p><% if request("send")=empty then %><form name="s_select_subject_form" method="post" action=""><table width="70%" border="1" align="center" bordercolor="#000000"><tr><td><table width="100%" border="0" align="center"><tr><td colspan="2"><div align="center"> </div></td></tr><% if not rs.eof then rs.MoveFirst ' 将当前的数据记录移到第一项%><% While Not rs.EOF ' 判断是否已经过了最后一项%><% for i=0 to subject_num-1 %><% if rs("所讲学科")=select_array(i) then %><tr><td><div align="right">已选    </div></td><td width="49%" colspan="-4"><%= rs(0) %></td></tr><% exit for %><% end if %><% next %><% if i>=subject_num then%><tr><td><div align="right"><input type="checkbox" name="subject" value=<%= rs(0) %>>    </div></td><td width="49%" colspan="-4"><%= rs(0) %></td></tr><% end if %><% rs.MoveNext ' 移到下一项%><%Wendrs.close%><tr><td colspan="2"><div align="center"> </div></td></tr><tr><td colspan="2"><div align="center"><input type="submit" name="ok" value="确定选择"></div></td></tr></table></td></tr></table><input name="send" type="hidden" value="send"></form></div><%else %><%'检查是否选择了课程if request("subject")=empty thenresponse.write "您还没有选择课程！<p> </p><p> </p><p> </p><p> </p><p align=""center""><a href=""s_select_subject.asp"">返回</a> </p>"response.endend if%><%'检查选择的课程是否已经选过的%><%= "您选择了下面这些的课程<br><br>" %><table width="29%" border="0" align="center"><tr><td><%'输出已经选择了的课程subjects=replace(request("subject"),",","<li>")response.write "<ul><li>" & subjects & "</ul>"%><p> </p><p> </p><p> </p><p> </p><%= "<p align=""center""><a href=""student_main.asp"">返回</a> </p>" %> </td></tr></table><p> </p><%'将选择了的课程插入到数据库set rs2= Server.CreateObject("adodb.recordset")subject_array=split(request("subject"),",")dim subjectdim sql2,sql4for i=0 to ubound(subject_array)subject=trim(subject_array(i))sql4="select 学科编号from teacher where 所讲学科='"&subject&"'"rs2.open sql4,conn,3sql2="insert into student_subject values('"&student_no&"','"&rs2(0)&"','"&subject&"')"mandtext=sql2cmd.Executers2.closenextconn.close%><% end if %><p> </p></body></html>超级管理员登录界面源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%session("super_name")=emptysession("super_password")=empty%><html><head><title>超级管理员登录</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1>超级管理员登录</h1><hr><br><br><br><form action="super.asp" method="post" name="super_form" id="super_form"><table width="50%" border="1" align="center" bordercolor="#000000"> <tr><td><table width="100%" border="0" align="center"><tr><td><div align="center"></div></td><td> </td></tr><tr><td width="39%"><div align="right">姓    名:</div></td><td width="61%"><input name="super_name" type="text" id="super_name"></td> </tr><tr><td><div align="right">密    码:</div></td><td><input name="super_password" type="password" id="super_password"></td></tr><tr><td><div align="right"> </div></td><td><input name="super_ok" type="submit" id="student_ok3" value="登录"><input name="super_del" type="reset" id="student_del22" value="重置"></td> </tr></table></td></tr></table></form><%%></body></html>学生试卷查询源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("data/webtest.mdb")cnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式%><html><head><title>学生试卷查询</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1>学生试卷查询</h1><hr><p> </p><%dim s_select_no_paper,s_select_subject_paper,s_select_date_papers_select_subject_paper=trim(request("s_select_subject_paper")) '学生选择考试的学科s_select_date_paper=trim(request("s_select_date_paper")) '学生选择考试的时间s_select_no_paper=trim(request("s_select_no_paper")) '学生选择考试学科的编号if s_select_subject_paper="选择学科编号" then%><script language="VBScript">alert("没有选择学科编号！")</script><%response.endend ifif s_select_subject_paper="选择考试学科" then%><script language="VBScript">alert("没有选择考试学科！")</script><%response.endend ifif s_select_date_paper="选择考试时间" then%><script language="VBScript">alert("没有选择考试时间！")</script><%response.endend ifs_select_date_paper=OutMDY(s_select_date_paper)dim sqlsql="select * from student_test where 考试学科='"&s_select_subject_paper&"' and cdate(考试时间)=#"&s_select_date_paper&"# and 学科编号='"&s_select_no_paper&"' "rs.open sql,conn,3if rs.eof thenresponse.write "学科编号，考试学科与考试时间不对应！<br><br>"response.write "<a href=""student_main.asp"">返回</a> </div>"rs.closeresponse.endend ifrs.closesql="select * from student_test where 考试学科='"&s_select_subject_paper&"' and cdate(考试时间)=#"&s_select_date_paper&"# and 学科编号='"&s_select_no_paper&"' and 学生学号='"&session("student_no")&"' order by 题型,题号"rs.open sql,conn,3if rs.eof thenresponse.write "你还没有考试这门课!"response.write "<a href=""student_main.asp"">返回</a> </div>"rs.closeresponse.endelse %><table border="1" bordercolor="#000000"><tr align="center" valign="middle"><td bgcolor="#3399FF"><div align="center"><font size="2">课程</font></div></td> <td bgcolor="#3399FF"><div align="center"><font size="2">题号</font></div></td> <td bgcolor="#3399FF"><div align="center"><font size="2">题型</font></div></td> <td bgcolor="#3399FF"><div align="center"><font size="2">你的回答</font></div></td><td bgcolor="#3399FF"><div align="center"><font size="2">分数</font></div></td> </tr><%rs.movefirstwhile not rs.eof%><tr align="center" valign="middle" bgcolor="#FFFFFF"><td><div align="center"><font size="2"><%= rs("考试学科") %></font></div></td> <td><div align="center"><font size="2"><%= rs("题号") %></font></div></td><td><div align="center"><font size="2"><%= rs("题型") %></font></div></td><td><div align="center"><font size="2"><%= rs("答案") %></font></div></td><td><div align="center"><font size="2"><%= rs("分数") %></font></div></td></tr><%rs.movenextwend%></table><p><% End If %></p><p><a href="student_main.asp">返回</a> </p></div></body></html>试卷生成界面及源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%if session("teacher_name")=empty thenresponse.write "<div align=""center"">您没有登录，请<a href=""teacher_signup.asp""target=""_parent"">返回</a>登录</div>"response.end()end if' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("data/webtest.mdb")'打开连接'conn.open provider & dbpathcnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式dim sqlsql="select distinct 学科编号from testing "rs.open sql,conn,3 '求test表中，学科编号if not rs.eof thendim no_numrs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项no_num=no_num+1rs.MoveNext ' 移到下一项Wendredim no_array(no_num) '将rs中的记录存入该数组dim ii=0rs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项no_array(i)=rs(0)i=i+1rs.MoveNext ' 移到下一项Wendend ifrs.closesql="select distinct 所讲学科from testing "rs.open sql,conn,3 '求test表中，该教师教了那些学科if not rs.eof thendim subject_numrs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项subject_num=subject_num+1rs.MoveNext ' 移到下一项Wendredim subject_array(subject_num) '将rs中的记录存入该数组dim mm=0rs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项subject_array(m)=rs(0)m=m+1rs.MoveNext ' 移到下一项Wendend ifrs.closesql="select distinct 考试时间from testing "rs.open sql,conn,3 '求test表中，该教师教了那些学科if not rs.eof thendim test_time_numrs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项test_time_num=test_time_num+1rs.MoveNext ' 移到下一项Wendredim test_time_array(test_time_num) '将rs中的记录存入该数组dim jj=0rs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项test_time_array(j)=rs(0)j=j+1rs.MoveNext ' 移到下一项Wendend ifrs.closeconn.close%><html><head><title>试卷生成</title><script language="JavaScript" type="text/JavaScript"></script></head><body bgcolor=#3399CC><div align="center"><h1>试卷生成</h1><table width="100%"><tr align="center" valign="middle"><td><div align="center"><font size="2"><a href="teacher_subject.asp" target="_parent">教师出题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_modify_subject.asp" target="_parent">修改试题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_find_subject.asp" target="_parent">查询试题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_draw.asp" target="_parent">教师抽题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_paper_make.asp" target="_parent">试卷生成</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_do_score.asp" target="_parent">教师判卷</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_find_score.asp" target="_parent">查询分数</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_paper_analysis.asp" target="_parent">考后分析</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_all_analysis.asp" target="_parent">整体分析</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_share.asp" target="_parent">资源共享</a></font></div></td></tr></table><hr><p> </p><p> </p><form name="form1" method="post" action="teacher_paper_word.asp"><table width="50%" border="1" bordercolor="#000000"><tr><td align="center" valign="middle"><div align="center"><table width="100%" border="0"><tr><td><div align="center"><select name="t_p_m_no" id="t_p_m_no"><option>选择学科编号</option><% for i=0 to no_num-1 %><option><%= no_array(i) %></option><% next %></select></div></td></tr><tr><td><div align="center"><select name="t_p_m_subject" id="t_p_m_subject"><option>选择学科</option><% for i=0 to subject_num-1 %><option><%= subject_array(i) %></option><% next %></select></div></td></tr><tr><td><div align="center"><select name="t_p_m_test_time" id="t_p_m_test_time"><option>选择考试时间</option><% for i=0 to test_time_num-1 %><option><%=formatdatetime(test_time_array(i),vblongdate) %></option><% next %></select></div></td></tr><tr><td><div align="center"><input name="t_p_ok" type="submit" id="t_p_ok" value="确定"><input type="reset" name="Submit2" value="重写"><input name="send" type="hidden" id="send" value="send"></div></td></tr><tr><td><div align="center"> </div></td></tr></table></div></td></tr></table></form><input name="t_p_m_look" type="button" onClick="MM_openBrWindow('teacher_paper_make_look.asp','','scrollbars=yes,resizable=yes' )" value="信息查看"><p> </p><p> </p><p><a href="teacher_main.asp">返回</a></p></div></body></html>教师登录界面及源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%session("teacher_name")=emptysession("teacher_no")=emptysession("teacher_password")=emptysession("teacher_subject")=empty%><html><head><title>教师登录</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1><strong>教师登录</strong></h1><hr><br><br><br><form action="teacher_main.asp" method="post" name="teacher_form" id="teacher_form"> <table width="50%" border="1" bordercolor="#000000"> <tr><td><table width="100%" border="0"><tr><td><div align="center"></div></td><td> </td></tr><tr><td width="40%"><div align="right">教师姓名:</div></td><td width="60%"><div align="left"><input name="teacher_name" type="text" id="teacher_name"></div></td></tr><tr><td><div align="right">学科编号:</div></td><td><div align="left"><input name="teacher_no" type="text" id="teacher_no"></div></td></tr><tr>。