大工14春《Web技术》大作业及要求(共34页)

1、PAGE 34PAGE 41 网络(wnglu)教育学院Web技术(jsh)课 程 设 计 题 目： 在线考试(kosh)系统 学习中心： 层 次： 专 业： 年 级： 年 春/秋 季 学 号： 学 生： 辅导教师： 完成日期： 年 月 日1 问题(wnt)描述 背景(bijng) 随着信息技术的发展、社会信息化程度的提高，尤其是互联网的迅速普及、Internet的应用越来越广泛，使得各类信息网站日益增多，供用户查阅信息，下载资料(zlio)的网站也应运而生。ASP技术的诞生和应用，为动态网页的设计与制作发挥了很大的作用，通过计算机网络,利用ASP相关语法进行远程教育，在线网络考试系统应用而生

2、。网络在线考试也有了突飞猛进的劲势。网络考试系统旨在实现考试的无纸化管理，对一些科目的考试可以通过互联网或局域网进行，方便校方考务的管理，也方便了考生，针对考生分布广，适用于远程教育。网络在线考试与传统的笔试考试相比有多方面的优势，首先是可以省去试卷印刷的费用，减轻教师阅卷的负担，加快考试进程。其二，可以充分发挥计算机在信息处理方面的优势。网络在线考试系统是针对原始的考试模式而发展起来的。 该系统是专门用于用户注册、登陆、参加在线考试以及管理员进行试题的录入、修改、删除的ASP应用程序。它具有开放性，方便性和灵活性，采用B/S模式设计。试卷全部为客观题，具有用户注册、多用户同时在线考试、时间控

3、制、试题录入、修改试题、科目管理、试题管理等重要功能。管理员可以轻松的向题库添加试题、修改试题、审核学生信息。考生进行有效的身份验证登陆后，选择考试科目，并要求在规定的时间内进行答题，当达到规定时间的前一分钟，系统将自动予以提示。考生最后也可以进系统进行成绩查询。1.2 所需软件介绍该在线考试系统需要用到ASP技术，对ASP给予简单介绍。ASP是MicrosoftActive Server Pages的简称，其实是一套微软开发的服务器端脚本环境。Active Server Pages是创建动态网页的一个很好的工具，它起一种编程语言的作用，可以利用它编写动态产生HTML的程序代码。因此，只要用户

4、浏览WEB站点并请求一个ASP页，WEB服务器就可以处理相应的ASP代码，生成HTML代码，然后将它们传递到用户浏览器并显示出页面。ASP内含于IIS5.0或IS6.0之中，通过ASP我们可以结合HTML网页、ASP指令和ActiveX元件建立动态、交互且高效的WEB服务器应用程序。有了ASP就不必担心客户的浏览器是否能运行所编写的代码，因为所有的程序都将在服务器端进行。包括所有嵌在普通HTML中的脚本程序。当程序执行完毕后，服务器仅将执行结果返回给客户浏览器，这样也就减轻了客户端浏览器的负担，大大提高了交互的速度。同时ASP具有一下特点：可使用VBScript、Jscript等简单易懂的脚本

5、语言，结合HTML代码，即可快速的完成网站的应用程序；还有无须编译，容易编写，可在服务器端直接执行ASP代码。简单、方便。该系统是基于 SQL server 2005环境的。SQL server 作为微软在windows系列平台上开发的数据库，一经推出就以其易用性得到了很多用户的青睐，相信大多数将自己的业务建立在windows平台上的用户都会对它有相当的亲切感。SQL server 是一个功能完备的数据库管理系统。它包括支持开发的引擎、标准的sql语言、扩展的特性等功能、像存储过程、触发器的特性，也是大型数据库才拥有的。由于今天windows操作系统占领着主导地的位，选择sql server一

6、定会在兼容性方面取得一些优势。 2 解决方案 ( 或数据库系统设计(shj) ) 2.1 E-R 模型(mxng)设计 xm idsfzhxbrslfphoneksmmygxx 表ygxx （考生(koshng)信息图）的部分 E-R图 yhxx id mmyfm 表 yhxx(系统管理员) 的 E-R图gwmcbhgwmcid 表 gwmc(考试(kosh)科目 ) 的E-R图gwmctmidthbttszqda表 zjjdt(简答题 ) 的E-R图cjcxgwmcidsxtcjdxtcjxm 表cjcx(成绩表) 的E-R图2.2 数据(shj)表 列名数据类型说明idint 考生ID号

7、主键 系统自动生成xmvarchar(50)考生用户名ksmmvarchar(50)考生密码sfzhvarchar(50)身份证号xbvarchar(50)性别yghvarchar(50)考生号rslfvarchar(50)入学年份 考生(koshng)表 ygxx列名数据类型说明idint 科目ID号 主键 系统自动生成bhint每科的考试编号gwmcvarchar(50)考试科目qxint难易程度 课程表gwmc列名数据类型说明idint试题的ID号 主键 系统自动生成gwmcvarchar(50)考试科目tmvarchar(50)试题内容zqdavarchar(50)正确答案tsvarc

8、har(50)提示btvarchar(50)答题内容thvarchar(50)答题内容 考试题表zjjdt列名数据类型说明 idint管理员ID号 主键 系统自动生成yfm nvarchar(50)管理员帐号mm nvarchar(50)管理员密码 管理员表yhxx 列名数据类型说明idint分数的ID号 主键 系统自动生成xmvarchar(50)考生姓名gwmcvarchar(50)所选科目名称sxtcjint填空题得分dxtcjint单选题得分 考试(kosh)得分表cjcx 3 系统(xtng)实现 3.1 开发(kif)环境 本系统运行于 Windows 7操作系统下，开发环境为II

9、S6.0服务器和SQL Server 2005 数据库，开发语言是ASP，编写环境在Macromedia Dreamweaver 8。是一个完整的Web应用程序。本系统使用的服务器IIS6.0。 先是IIS Web服务器的安装。单击“开始-设置-控制面板”命令，打开控制面板，双击“添加/删除程序”图标，单击“添加/删除windows组件”，再双击“windows组件向导”对话框中的“Internet信息服务(IIS)”，选择相应的Internet服务后，单击“确定”按钮，然后单击“下一步”按钮，就会弹出安装界面。安装好后，可测试服务器是否安装成功。打开浏览器，在地址栏中输入http:/主机名，

10、然后回车，就可看到测试页面。 IIS Web服务器的配置。IIS相对于PWS来说，需要更多的设置，简单如下。单击“开始-设置-控制面板”命令，打开控制面板，双击“管理工具”图标，弹出“管理工具”界面。双击“Internet服务管理器”图标，弹出“Internet信息服务”界面。接下来是创建虚拟目录。可以把任意一个文件夹设为虚拟目录，方法如下：单击“文件-新建-虚拟目录”命令，这是就会弹出“虚拟目录创建向导”界面，单击“下一步”按钮，就会弹出创建虚拟目录别名界面。在这里可以随意输入，然后单击“下一步”按钮，就会弹出创建的虚拟目录文件夹界面。单击“浏览”按钮，选择虚拟目录。然后单击“下一步”按钮，

11、弹出权限设置界面。进行相应的选择后，最后单击“完成”即可，具体访问与测试的方法同上。SQL Server 2005数据库登陆认证模式的设置。打开Microsoft SQL Server Magager管理器。选择服务器，单击右键，弹出右键菜单，单击右键菜单中的“属性”命令，弹出“服务器属性”对话框，然后单击“安全性”项，在“服务器身份验证”中，选择“SQL Server和Windows身份验证模式”前的单选按钮，在“登陆审核”中，选择“仅限失败的登陆”。单击“确定”按钮，这样就成功的设置了数据库登陆认证模式。新建数据库名为ksxt912，创建登陆帐户。在安全性前面，选择“登陆名”并单击右键，单

12、击右键菜单中的“新建登陆名”，弹出“新建登陆名”对话框，选择SQL Server身份验证，设置登陆名和密码，登陆名为sa，密码为sa，再选择“db_owner”数据库角色，然后单击“确定”按钮，即可创建用户并给用户相应的权限。 在程序菜单中选择SQL Server2005 点击连接就可以启动(qdng)服务器。如下图所示：3.2 系统(xtng)流程图 根据网络在线考试的特点和考试的以往模式，可以将其分为前台和后台两个部分进行设计，对应的用户分别为普通(ptng)的考生和管理员管理。具体流程图如下所示： 网络在线考试系统考生在线考试模块后台管理模块登陆注册用户管理员登陆在线考试考试科目选择具体

13、试题考试科目成绩查询学生注册 3.3 程序主要功能(gngnng)界面网络在线考试系统是一个完整的Web应用程序，实现(shxin)了教师出题，学生在线考试及相应的系统操作功能该系统是专门用于用户注册、登陆、参加在线考试以及管理员进行试题的录入、修改、删除的ASP应用程序。它具有开放性，方便性和灵活性，采用B/S模式设计。试卷全部为客观题，具有用户注册、多用户同时在线考试、时间控制、试题录入、修改试题、科目管理、试题管理等重要(zhngyo)功能。管理员不仅可以轻松的向题库添加试题、修改试题，而且还允许用户根据自己的实际情况选取考试科目。考生进行有效的身份验证登陆后，选择考试科目，并要求在规定

14、的时间内进行答题。具体功能如下。学生在线考试模块： 学生只要正确登陆后，就可以参加考试； 支持单选题、多选题和判断题； 成绩查询。后台管理模块： 考试科目的管理； 考试试题的管理；3.31 在地址栏内输入 HYPERLINK http:/主机名/文件夹名/ http:/主机名/文件夹名/index.asp，按下回车键，就可以进入想要进入的页面。可以在地址栏内输入 HYPERLINK http:/localhost/zxks/index.asp http:/localhost/zxks/index.asp，进入在线考试系统的主页面，进入该系统，在姓名框内输入正确的考生号、身份证号、在密码框内输入

15、相应的密码，可以点击“确定”按钮，更进一步进人系统，还可以不输入姓名和密码，针对没有注册过的考生是没有资格进入该在线考试系统的，只能先注册，可直接点击“注册”按钮，进行注册。对于有一定权限的管理员可以直接点击“管理”按钮，进入管理界面。该在线考试系统的主界面如下图：具体(jt)实现代码如下：考试(kosh)系统登陆(dng l)%if request(ygkh) then ygxxsql=select * from ygxx where ygh=&request(ygkh)& and sfzh=&request(sfzh)& and ksmm=&request(ksmm)& set ygxxr

16、s=conn.execute(ygxxsql) if ygxxrs.eof and ygxxrs.bof then % msgbox 你输入的考号、身份证号或者考试密码有错误，请认真(rn zhn)核对！ msgbox 对不起，你还没有经过(jnggu)管理员审核！ 考生考号： 身份证号： 考生密码： 3.3.2 在该在线考试系统主界面index.asp中，不用输入考生(koshng)号，也不用输入用户密码，直接点击“注册(zhc)”按钮，就可以直接进入在线考试系统的注册页面userzc.asp。在该页面中填写好与之相应的信息后，可以直接点击“注册”按钮，进行注册；该按钮还可以起到一定的检查作

17、用，点击按钮，进行提交后，系统可以对该用户输入的用户名称进行检查，看该考生是否已经注册过，或者是否有重复注册的现象，并可以对多个重名的用户进行区别和管理。该在线考试系统的注册界面如下图：实现程序的核心代码如下：系统系统考生注册!-Sub subm_OnClick dim frmtmp set frmtmp=document.form1 if isnull(frmtmp.xm.value) then msgbox 对不起，姓名(xngmng)必须输入! else if not isnumeric(frmtmp.ygh.value) or not len(trim(frmtmp.ygh.value

18、)=2 then msgbox 对不起，考号必须(bx)为数字,且必须为2位! else if not isnumeric(frmtmp.sfzh.value) or not (len(trim(frmtmp.sfzh.value)=18 or len(trim(frmtmp.sfzh.value)=15) then msgbox 对不起，身份证号必须为数字(shz),且为15位或者为18位! else if isnull(frmtmp.rslf.value) or not len(trim(frmtmp.rslf.value)=4 then msgbox 入学年份必须为数字且必须为4位! e

19、lse if not ( len(trim(frmtmp.ksmm.value)0 and strcomp(trim(frmtmp.ksmm.value),trim(frmtmp.ksmm1.value)=0 ) then msgbox 密码不能为空，且必须一致! else frmtmp.submit end if end if end if end if end ifend sub-% if request(shengbz)=yes then shengsj=request(sheng)end ifif request(dqbz)=yes then shengsj=request(sheng

20、) dqsj=request(dq)end ifsql=select * from ygxx where ygh=&request(ygh)& and xm=&request(xm)& and shi=&request(shi)& and gwmc=&request(gwmc)&set rs=server.createobject(adodb.recordset)if request(xm) and request(shengbz)yes and request(shengbz)yes then rs.open sql,conn,1,3 if not rs.eof then % msgbox

21、对不起，已注册(zhc)！ msgbox 注册(zhc)成功，你暂不能登录考试，请等待老师的审核后统一考试！location.replace(index.asp) 系部信息(xnx)： % set rs1=server.createobject(adodb.recordset)sql4=select * from sheng rs1.open sql4,conn,1,1 if not rs1.eof and not rs1.bof then for i=1 to rs1.recordcount if rs1.eof then exit for response.write option val

22、ue=&rs1(sheng) if shengsj then if shengsj=trim(rs1(sheng) then response.write selected end if response.write &rs1(sheng)& rs1.movenext next end if % % 如果(rgu)是第一次打开就将默认的省值赋值给变量shengsj if shengsj= and edit= then dim rs4 sql=select * from sheng set rs4=server.createobject(adodb.recordset) rs4.open sql

23、,conn,1,1 if not rs4.eof and not rs4.bof then shengsj=rs4(sheng) end if rs4.close set rs4=nothing end if dim rs3 sql=select * from dq where sheng=&shengsj& set rs3=server.createobject(adodb.recordset) rs3.open sql,conn,1,1 do while not rs3.eof response.write option value=&rs3(dq) if dqsj then if dqs

24、j=trim(rs3(dq) then response.write selected end if response.write &rs3(dq)& rs3.movenext loop rs3.close set rs3=nothing % % 如果(rgu)是第一次打开就将默认的省值赋值给变量dqsj if dqsj= and edit= then sql=select * from dq where sheng=&shengsj& set rs4=server.createobject(adodb.recordset) rs4.open sql,conn,1,1 if not rs4.e

25、of and not rs4.bof then dqsj=rs4(dq) end if rs4.close set rs4=nothing end if sql=select * from shi where sheng=&shengsj& and dq=&dqsj& set rs3=server.createobject(adodb.recordset) rs3.open sql,conn,1,1 do while not rs3.eof response.write &rs3(shi)& rs3.movenext loop rs3.close set rs3=nothing % sub s

26、heng_onchange() dim frmtmp set frmtmp=document.form1 frmtmp.shengbz.value=yes frmtmp.Submit() end sub sub dq_onchange() dim frmtmp set frmtmp=document.form1 frmtmp.dqbz.value=yes frmtmp.Submit() end sub 姓 名： * 性 别： 男 女 * 考生(koshng)考号： *即学号，为两位，如01、10 考生(koshng)密码： * 确认(qurn)密码： * 身份证号码： *为15位或18位 入学

27、年份： * 所考科目： % set gwmcrs=server.createobject(adodb.recordset)gwmcsql=select * from gwmc gwmcrs.open gwmcsql,conn,1,1 if not gwmcrs.eof and not gwmcrs.bof then for i=1 to gwmcrs.recordcount if gwmcrs.eof then exit for response.write &gwmcrs(gwmc)& gwmcrs.movenext nextend ifgwmcrs.closeset gwmcrs=noth

28、ing % * 联系电话： * 3.3.3 在考试系统的主界面index.asp中，输入正确的考号01、身份证号15个1和密码11后，就可以有权限(qunxin)进入系统的内部了。输入正确后，点击主界面中的“确定(qudng)”按钮，系统自动提交用户的信息，对用户提交的信息进行检查，看提交的用户名是否在数据库内，如果在数据库内，则再检查用户输入的密码和用户名是否匹配，如果不匹配则给予(jy)相应的错误提示该用户的用户名或密码错误，请核实后再登陆信息；如果用户名和密码相匹配，则给予该登陆用户相应的权限予以登陆，跳转到用户选择页面userselect.asp中（可选择考试或则差分）。选择(xunz

29、)页面如图：选择正在考试(kosh)如下图：程序核心代码(di m)如下所示：系统(xtng)系统正式(zhngsh)考试function KeyDown()if (window.event.altKey)& (window.event.keyCode=37)| /屏蔽(pngb) Alt+ 方向键 (window.event.keyCode=39) /屏蔽 Alt+ 方向键 event.returnValue=false; if (event.keyCode=8) | /屏蔽退格删除键 (event.keyCode=116)| /屏蔽 F5 刷新键 (event.ctrlKey & even

30、t.keyCode=82) /Ctrl + R event.keyCode=0; event.returnValue=false; if (event.ctrlKey)&(event.keyCode=78) /屏蔽 Ctrl+n event.returnValue=false; if (event.shiftKey)&(event.keyCode=121) /屏蔽 shift+F10 event.returnValue=false; if (window.event.srcElement.tagName = A & window.event.shiftKey) window.event.ret

31、urnValue = false; /屏蔽(pngb) shift 加鼠标左键新开一网页 if (window.event.altKey)&(window.event.keyCode=115) /屏蔽(pngb)Alt+F4 window.showModelessDialog(about:blank,dialogWidth:1px;dialogheight:1px); return false; document.onkeydown = function() if(event.keyCode=116) event.keyCode=0; event.returnValue = false; do

32、cument.oncontextmenu = function() event.returnValue = false; 温馨提醒：本次考试的总时间为： 分钟,您已经(y jing)做了: !- / 处理(chl)计时信息 var sec=0;var min=0;var hou=0;flag=0;idt=window.setTimeout(update();,1000); function update() sec+; if(sec=60) sec=0;min+=1; document.timeform.timeinput.value=min+分+sec+秒; if(document.time

33、form.timeinput.value=+分0秒) alert(时间(shjin)到了，请交卷！); document.testform.endks.click(); idt=window.setTimeout(update();,1000); /- 选择成绩查询如下图：如选择管理入口(r ku)界面如下图所示：用户：admin,密码：1输入管理用户名和密码后进入如图所示的界面，我们就可以在此界面中管理试题(sht)，添加用户。实现该程序的核心代码(di m)如下：default.asp%if session(dl)ok and session(lrdl)ok and session(yjd

34、l)ok and session(fgdl)ok then response.redirect login.asp%计算机网络考试系统 Menu.asp 导航(dohng)菜单基本(jbn)信息 %if trim(session(qx)=系统管理员 then response.write 科目(km)信息添加else response.write 科目信息添加end If% %if trim(session(qx)=系统管理员 then response.write 系部信息添加else response.write 系部信息添加end If %if trim(session(qx)=系统管理

35、员 then response.write 学生信息添加else response.write 学生信息添加end If %if trim(session(qx)=系统管理员 then response.write 学生(xu sheng)信息审核else response.write 学生(xu sheng)信息审核end If %if trim(session(qx)=系统管理员 then response.write 学生信息(xnx)查询else response.write 学生信息查询end If %if trim(session(qx)=系统管理员 then response.w

36、rite 用户管理else response.write 用户管理end If %题目(tm)管理 %if trim(session(qx)=系统管理员 or trim(session(qx)=题库(t k)录入员 then response.write 单选题添加(tin ji)else response.write 单选题添加end If %if trim(session(qx)=系统管理员 or trim(session(qx)=题库录入员 then response.write 多选题添加else response.write 多选题添加end If %if trim(session(

37、qx)=系统管理员 or trim(session(qx)=题库录入员 then response.write 判断题添加else response.write 判断题添加end If % function showdiv(div_id) if (document.all.item(div+div_id).style.display = block) document.all.item(div+div_id).style.display = none; else document.all.item(div+div_id).style.display = block; % if trim(ses

38、sion(qx)=系统管理员 then response.write 题目修改(xigi)管理 response.write response.write response.write response.write response.write 单选题 response.write response.write response.write response.write response.write 多选题 response.write response.write response.write response.write response.write 判断题 response.write

39、response.write response.write response.write else response.write 题目(tm)管理 end If %if trim(session(qx)=系统管理员 then response.write 试题(sht)审核else response.write 试题(sht)审核end If %if trim(session(qx)=系统管理员 then response.write 试题日志else response.write 试题日志end If % 试卷(shjun)管理 %if trim(session(qx)=系统管理员 then

40、 response.write 考试(kosh)日志else response.write 考试(kosh)日志end If %if trim(session(qx)=系统管理员 then response.write 考试须知else response.write 考试须知end If %if trim(session(qx)=系统管理员 then response.write 试题设置else response.write 试题设置end If %if trim(session(qx)=系统管理员 then response.write 试卷(shjun)设置else response.write 试卷(shjun)设置end If %if trim(session(qx)=系统管理员 then response.write 组卷管理(gunl)else response.write 组卷管理end If %if trim(session(qx)=系统管理员 then respon