下载文档原格式
<%@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"><!--#Layer1 {position:absolute;width:625px;height:29px;z-index:1;left: 333px;top: 71px;}.STYLE1 {font-size: 60px;color: #5D4328;}#Layer2 {position:absolute;width:268px;height:30px;z-index:2;left: 16px;top: 23px;}#Layer3 {position:absolute;width:200px;height:43px;z-index:3;left: 481px;top: 213px;}.STYLE3 {font-size: 62px}.STYLE4 {font-size: 24px}#Layer4 {position:absolute;width:329px;height:168px;z-index:3;left: 446px;top: 190px;}#Layer5 {position:absolute;width:200px;height:115px;z-index:3;left: 602px;top: 304px;}#Layer6 {position:absolute;width:391px;height:261px;z-index:3;left: 342px;top: 205px;}#Layer7 {position:absolute;width:207px;height:170px;z-index:4;left: 657px;top: 301px;}.STYLE5 {font-size: 24px;color: #996600;font-weight: bold;}.STYLE8 {font-size: 14px; }--></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 在线考试系统作者：亓鹏王殿生闫向宏来源：《电脑知识与技术》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查看国考补录源源代码（原创实用版）目录1.介绍国考补录系统2.阐述查看国考补录系统源代码的意义3.介绍如何在 MacBook 上查看国考补录系统源代码4.分析国考补录系统源代码的特点和优势5.总结如何利用查看源代码的方法提高对国考补录系统的理解和应用正文在我国，国家公务员考试是一项重要的招聘考试，吸引了大量考生参加。
国考补录系统是针对考试结束后，部分职位空缺而设立的一种补充招聘机制。
对于广大考生而言，了解国考补录系统的运作方式和原理具有重要意义。
本文将介绍如何在 MacBook 上查看国考补录系统的源代码，并分析其特点和优势。
首先，了解国考补录系统的源代码，有助于我们深入了解系统的运作原理。
源代码是软件的核心，通过阅读源代码，我们可以了解到系统的设计思路、功能实现等方面的信息。
这对于我们理解和掌握国考补录系统，提高应用效率具有重要意义。
那么，如何在 MacBook 上查看国考补录系统的源代码呢？这里需要用到一些开发工具。
在 MacBook 上，我们可以使用 Sublime Text、Visual Studio Code 等代码编辑器来查看和分析源代码。
当然，还需要掌握一些基本的编程知识和技能，例如了解 HTML、CSS、JavaScript 等前端技术，以及掌握一些后端编程语言，如 Python、Java 等。
在查看国考补录系统的源代码时，我们可以发现其具有以下特点和优势。
首先，系统采用了模块化的设计思路，将功能划分为不同的模块，便于维护和升级。
其次，系统采用了一些先进的前端技术，如响应式布局、动态加载等，使得用户界面更加友好。
此外，系统还采用了一些安全的编程技巧，如输入验证、SQL 注入防护等，保证了系统的安全性和稳定性。
总之，通过在 MacBook 上查看国考补录系统的源代码，我们可以深入了解系统的运作方式和原理，提高对国考补录系统的理解和应用。
毕业论文(设计)题目：网页制作在线考试系统的开发毕业设计（论文）原创性声明和使用授权说明原创性声明人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。
尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得及其它教育机构的学位或学历而使用过的材料。
对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。
者签名：日期：导教师签名：日期：使用授权说明人完全了解大学关于收集、保存、使用毕业设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。
作者签名：日期：学位论文原创性声明本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。
除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。
对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。
本人完全意识到本声明的法律后果由本人承担。
作者签名：日期：年月日学位论文版权使用授权书本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。
本人授权大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。
涉密论文按学校规定处理。
者签名：日期：年月日师签名：日期：年月日注意事项1.设计（论文）的内容包括：）封面（按教务处制定的标准封面格式制作）2）原创性声明3）中文摘要（300字左右）、关键词4）外文摘要、关键词5）目次页（附件不统一编入）6）论文主体部分：引言（或绪论）、正文、结论7）参考文献8）致谢9）附录（对论文支持必要时）2.论文字数要求：理工类设计（论文）正文字数不少于1万字（不包括图纸、程序清单等），文科类论文正文字数不少于1.2万字。
前言高校教务管理工作中一项重要的工作是考试管理工作，每学期从各专业考试，从组织出卷到试卷的印刷及试卷的管理等工作非常繁琐且工作量大，这种组织管理方式不仅工作任务繁重而且试卷的标准化程度、难易程度、题量大小等各方面难以控制，难以形成有效的试题库，不利于充分发挥历年来的优秀试题以及试卷的作用，给试题和试卷的管理带来很多问题和困难。
鉴于这种情况，利用计算机进行试卷的自动生成并逐步积累形成有效的试题库，对试题和试卷的管理将变的高效和快捷，对提高工作效率，使试卷管理逐步走向正规化和自动化将起到十分重要的作用。
它解决传统手动出卷的很多问题。
例如：避免了不必要的重复劳动，节约了人力资源及时间；使用科学的衡量、评价及统一试卷难易度、试卷的质量的有效手段；大幅度降低了试卷出现错漏缺的机率，减少了不必要的麻烦。
基于要克服以上问题，该试卷生成系统应具有以下功能：●题库管理：根据用户需求，系统应该能够维持一个存有数千道以上试题的题库。
系统应当允许教师在获得权限的情况下随时能够进行试题补充．且试题的题型可有多种多样．试题难度、区分度也有不同。
操作员能够按照自己的需要，随时可以对题库中已有的试题进行修改、删除，同时还可以查询和浏览试题。
●出卷管理：根据用户提出的要求，可以进行人工组卷和自动组卷。
另外，从题库中抽取全部所需的试题之后，要求系统能够按照一般试卷的编排要求，将抽取的试题进行排版，并以标准的格式输出到Word文档中。
同时，也应能够生成试卷的标准答案并输出到Word文档中。
●权限管理：系统管理员可以增加或删除操作人员并指定操作人员的权限，可对用户权限进行修改，从而保证系统在实施中的灵活性。
该系统已基本满足教学需要，为实现教学改革，改变传统的出卷方式，实现教考分离起到了积极的促进作用。
但程序仍还有诸多有待完善的地方，程序并未充分优化。
随着计算机技术的不断发展和普及，将会对教学工作提出更高的要求，该系统必须要不断地改进，从而使得教学工作更加合理和快捷。
北方民族大学课程设计报告系（部、中心）计算机科学与工程学院姓名于淼学号20113185专业计算机科学与技术班级（2）班同组人员尚娜、农晓蕾、杨柳课程名称网络程序设计设计题目名称在线考试系统起止日期 2013.10.10-2013.12.8 成绩________________________________指导老师签名________________________在线考试系统摘要基于Web的在线考试系统——随着计算机及网络技术的飞速发展，Internet/Intranet应用在全球范围内日益普及，当今社会正快速向信息化社会前进，信息自动化的作用也越来越大，从而使我们从繁杂的事务中解放出来，提高了我们的工作效率。
在众多的网络服务中，Web 给人耳目一新的感觉，而在这其中，JSP技术和基于Struts框架技术则因为可以进行复杂的数据库操作、很强的交互性以及方便用户控制和管理备受青睐。
目前存在各级各类的考试，而它们的各种工作主要还是依赖于手工完成，手工管理还存在这许多弊端，由于不可避免的人为因素，造成数据的遗漏、误报。
计算机信息化管理有着储存量大，速度快等许多优点，因此我们可以利用计算机网络，利用ASP技术实现动态的管理。
随着计算机网络技术的进一步发展和普及，利用JSP技术开发的各种网络在线考系统必将大行其道。
关键字：JSP技术；Struts ；在线考试系统目录：1、在线考试系统的需求分析 (4)1.1硬件，软件环境说明 (4)1.1.1硬件环境说明 (4)1.1.2软件环境说明 (4)1.1.3在线考试系统网站的技术说明 (7)1.1.3.1关于对B/S架构的理解 (7)1.1.3.2B/S架构带来的巨大好处 (8)1.2功能需求分析 (8)2、在线考试系统的总体规划与结构框图 (8)2.1在线考试系统总体设计 (8)2.2在线考试系统的总体规划设计 (8)2.2.1学生模块 (9)2.2.2管理员模块 (9)2.3在线考试系统各个模块之间的关系图及动作分解 (10)2.3.1各个子模块之间的关系和操作动作分解 (10)2.3.2管理员模块下各个子模块之间的关系及动作分解 (10)3、在线考试系统数据库设计 (11)3.1数据库的需求分析 (11)3.2在线考试系统概念结构设计 (11)3.2.1在线考试系统数据库的实体设计 (11)3.2.2在线考试系统数据库的E-R图 (12)3.3数据库的逻辑结构设计 (13)3.3.1在线考试系统数据库逻辑结构设计 (13)4、针对具体的功能模块写出设计流程图与关键的程序代码 (14)4.1在线考试系统设计流程图 (14)4.2在线考试系统管理模块设计流程图 (14)4.3在线考试系统用户登录模块设计 (15)4.4系统关键程序代码 (16)4.4.1dl.jsp源代码 (16)4.4.2zc.jsp源代码 (18)4.4.3zxks(1).jsp源代码 (23)4.4.4xgzl.jsp源代码 (26)4.4.5htdl.jsp源代码 (31)4.4.6gl_student.jsp源代码 (33)4.4.7gl_addstudent.jsp源代码 (35)4.4.8gl_lesson.jsp源代码 (40)4.4.9gl_addlesson.jsp源代码 (42)4.4.10gl_timu.jsp源代码 (46)4.4.11gl_addtimu源代码 (48)5.测试和演示系统并抓取图形界面 (53)5.1系统开发与运行环境的配置 (53)5.1.1JDK的安装与配置 (53)5.1.2Tomcat的安装与配置 (53)5.1.3Dreamweaver CS3的站点的配置 (53)5.2演示系统并抓取系统图形界面 (58)6、测试结果及存在的问题 (65)6.1测试的结果 (65)6.2存在的问题 (66)7、参考文献 (66)1.在线考试系统的需求分析1.1硬件、软件环境说明1.1.1硬件环境说明在线考试系统的硬件环境是：CPU采用的是Inter（R）Core（TM）i3-2330M CPU@2.20GHz；硬盘容量：500GB；显示器的分辨率是1366×768。
题目：使用Python开发的题库系统源代码一、介绍题库系统是一种用于存储和管理题目、考试信息的软件系统，它可以帮助教师、培训机构和教育机构方便地组织和管理考试、测试、作业等教学活动。
Python作为一种强大的编程语言，可以用于快速开发各种类型的软件系统，包括题库系统。
在本文中，我们将介绍使用Python编程语言开发的题库系统源代码，以及其基本功能和特点。
二、源代码下面是一个简单的使用Python编写的题库系统源代码：``` pythonclass Question:def __init__(self, question, options, answer):self.question = questionself.options = optionsself.answer = answerclass QuestionBank:def __init__(self):self.questions = []def add_question(self, question):self.questions.append(question)def remove_question(self, question): self.questions.remove(question)def get_all_questions(self):return self.questionsclass Exam:def __init__(self, name, questions): = nameself.questions = questionsdef add_question(self, question):self.questions.append(question)def remove_question(self, question): self.questions.remove(question)def start_exam(self):for question in self.questions:print(question.question)for idx, option in enumerate(question.options):print(f'{idx + 1}. {option}')answer = input('Your answer: ')if answer == question.answer:print('Correct!')else:print('Incorrect!')```三、功能介绍1. Question类：题目类，包含题目内容、选项和答案。
课程删除源代码：<%@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"%><!--#include file="fun\OutMDY.fun"--><%' 建立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"><!--function MM_openBrWindow(theURL,winName,features) { //v2.0window.open(theURL,winName,features);}//--></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"%><!--#include file="fun\get_subject.fun"--><%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>。
