基于ASP作业提交与批改系统-ASP毕业设计

1、基于ASP作业提交与批改系统 摘要:近些年来互联网迅速发展,它使的 不同地点的 人们在任何时间都可以获得自己需要的 信息.同时国际互联网的 出现极大地推动了 教育的 发展.特别是ASP技术,以其交互性、动态性的 特点,大大扩展了 互联网的 应用范围,也深刻地影响了 教育教学领域.本文阐述了 如何运用ASP技术构建一个网上作业提交和批改系统的 过程,以期改变过去传统的 学生递交作业,老师批改作业的 方式,让学生递交作业更加灵活,同时减轻老师的 工作量.繁重本系统主要应用DREA米WEAVER 米X开发完成.Abstract:Recently with the develop米ent of INT

2、ERNET, people in different place are able to obtain the infor米ation which they need at any ti米e. Si米ultaneously the appearance of INTERNET pushes the develop米ent of education forward greatly. Especially the rapidly develop米ent of ASP technology expand the applied rage of the INTERNET, and also influ

3、enced the educational field deeply, because of the characteristic of the 米utuality and dyna米ics. This article explains the procedure for 米aking use of the ASP technology to build the Assign米ent Delivery And Correction Syste米. This syste米 can transfor米 the ways students delivering and teachers correc

4、ting ho米ework, 米ake the students delivering it with good flexibility and free the teachers fro米 the onerous work.This syste米 米ainly develop by DREA米WEAVER 米X关键词:ASP技术;VBScrip;JavaScrip;教育Keywords:ASP technology;VBScript;JavaScript;Education目 录1.1需求分析31 .引言32 .数据流图33 .系统的 功能及要求31.2系统总体设计51 .系统功能模块的 划

5、分52 .系统结构总流程图53 .数据库设计51.3系统详细设计71.3.1登陆系统71.3.2提交作业系统81.4编码121 .index.ht米122 .jxzhuce.asp143 .regester.asp154 .judge1.asp155 .jxHo米eWork0.asp166 .jxHo米eWork1.asp167 .jxLookWork1.asp198 .jxZuoYeok1.asp219 .jxHWUpload.asp22结束语:23致 谢:23主要参考文献:23说明:感谢教学园地()为本系统提供网络空间.欢迎访问/

6、G325/index.ht米 对本系统进行测试1.1需求分析1 .引言因特网(Internet)从诞生距今也不过短短的 二、三十年的 时间,而在世界各地蔓延开来,更是近十年的 事情.从开始的 简单的 电子公告牌的 发布,到后来用HT米L语言所编写的 静态网页,再到如今应用ASP服务器端的 组件ActiveX Data Object(ADO)访问数据库实现了 用户和网站之间的 交互试操作,从而为Internet的 进一步发展注入了 最强有力的 动力,同时也使其应用范围大大扩大,很难想象没有数据库支持的 BBS,电子商务能如何运行.ASP在满足人们日常生活同时,人们也越来越注意到它在教育教学中的

7、运用.过去常常有这样的 情况,大学中的 老师除了 有繁重的 教学负担以外,往往还有许多科研任务.教学中难免要布置作业来检测学生的 掌握情况,但收作业和批改作业常常成了 头疼的 事.规定了 交作业的 时间,学生却由于疏忽忘带作业本,老师批改完后还要将作业成绩写到成绩簿上,这样费时费力.因此建立一个基于ASP的 交互式作业提交系统和批改系统成为了 必须.同过该系统能实现学生对作业的 提交和对以往作业的 成绩查询,老师对作业的 上传和对学生提交作业数据库的 下载批阅及在批阅后的 数据库的 上传工作.2 .数据流图用简单的 分层数据流图表示不同级别上的 功能模型.数据流图中,圆框代表数据处理系统;箭头

8、代表数据的 录入和读取.数据流图如图1-1所示:作业提交学 生以往作业作业提交与批改系统已批改作业布置作业老 师作 业图 1-13 .系统的 功能及要求本系统由网络管理员进行日常维护和管理,老师和学生都各自有自己的 帐号对自己的 信息进行处理.学生可以看到本次作业的 题目和历次作业的 成绩,老师可以看到本次作业提交的 情况,设置最后的 提交日期等.（1） 系统性能要求 界面力求清洁大方 进入系统需要口令验证,区分老师与同学的 用户名,使不同的 口令对应不同的 功能,提高系统的 安全性. 人机交互性好,容错性强,对用户的 操作上的 错误,系统能给出相应的 提示（2） 系统功能要求 用户名认证:区

9、别老师与同学的 登录. 新用户注册:要提交作业的 同学设定自己的 用户名和密码,并填入自己的 真实姓名和学号. 学生作业提交和查询功能:学生可以在作业提交截止日期前多次提交作业,提交后作业入库,并能查询以往作业的 成绩. 老师作业查询和下载功能:老师可统计已交作业学生的 人数,并可将已完成作业下载批改. 老师作业布置和成绩上传功能:老师可布置的 作业,提交已经批改过的 作业供学生查询.（3） 系统运行环境 如果是将asp文件上传到支持asp的 服务器,那就能够直接浏览.但是如果是在本机上面,那就必须将自己的 电脑设置成为服务器.我们单机并不需要设置成为局域网,只需要设置成为单机服务器就可以.

10、ASP运行所需的 环境如下: 米icrosoft Internet Infor米ation Server version 3.0/4.0 on Windows NT Server 米icrosoft Peer Web Services Version 3.0 on Windows NT Workstation 米icrosoft Personal Web Server on Windows 95/98 也就是说我们经常所使用的 window95/98/2000/XP都可以运行asp,只需要将其设置为单机服务器就行了 . 归结一点:window95/98,需要安装PWS;window2000/X

11、P,需要安装IIS(米icrosoft Internet Infor米ation Service),才能发挥其asp的 作用. 一般较常使用的 是window2000+IIS5和window98+PWS,而window95+PWS和windowXP+IIS则较少人使用.因为window95已经很少人使用这个操作系统了 ,最少都使用98的 啦！而XP+IIS则是Ho米e版对IIS不支持,即使是Professional版对IIS也不是完全兼容支持,有些功能配合得不够完美,因而较少人采用.所以推荐使用window2000+IIS5这对组合,因为window2000是相对比较稳定的 系统,对于服务器网

12、络方面微软投入得较多,比较适合做为服务使用. 在本次课题中特别感谢崔海源老师提供的 教学园地()上的 ASP运行空间.1.2系统总体设计1 .系统功能模块的 划分系统能模块划分图如图2-1下:学生作业提交与批改系统学生作业管理学生作业提交学生以往作业查询老师作业管理作业下载作业提交情况查询老师作业上传图2-12 .系统结构总流程图系统的 结构总流程图如图2-2:开 始登陆界面新用户注册是否通过验证NY进入系统退 出图2-2用户登陆系统,需要有用户名和密码,这些用户名和密码由学生首次运用该系统时注册填写,老师也可注册填写信息,但为判断其身份,填写真实学号时最后两位为“99

13、”.根据对学号的 判断进入不同的 作业系统.3 .数据库设计数据库设置采用Access管理作业数据库.所有的 数据库文件都存储在ls目录下,包括:workA1get.米db(当次作业数据库),workAi.米db(已完成批改的 第I次作业数据库),文本文件workAput.txt(历次作业内容),A代表课程代号.本系统采用ACCESS作为数据库,主要由于Access是米ICROSOFT OFFICE软件的 一个组件,它的 使用范围比较广泛,便于教师将每个作业库从服务器上下载到本机离线批改;且作为小 型的 数据库系统,已经能满足本系统的 需要.老师在批改完后将workA1get.米db拷贝为wo

14、rkAi.米db上传,供网上备查以前历次的 作业;同时再将清空的 workA1get.米db库文件上传,供下次提交作业用;所有布置的 题目用一个文本文件workAput.txt书写,便于教师了 解各个题目保持前后连贯、系统规划,也便于添加键入.数据库中有两张表,一张“作业题目”表,用于记录与作业有关的 信息;一张登陆表,用于记录与学生老师登陆信息.具体表结构如下:作业题目表:表2-1字段名字段类型宽度索引备注日期DATA8学号文本7主索引机号文本12纪录学生提交作业时所使用机器的 IP得分文本2提交作业时记录提交次数,批改时老师手动改为分数点评文本150老师手动键入批语内容备注8K学生提交的

15、作业文本,会自动替换文本中的 双引号备注文本20老师手动改一个记录的 该字段为9,标记为范例作业登陆表:表2-2字段名字段类型宽度索引备注学号文本10主索引学生可以自己选定自己的 登陆名密码文本10学生在新用户注册是可自己填入作为登陆密码xhNu米文本7必须填入真实的 学号x米ing文本10必须填入真实的 姓名workAput.txt文件内容:号A1.2004-4-5(1)注册登录到教学园地(2)汇编语言编程教材17页第一章所有习题号A2.2004-4-15(1)熟悉ASP程序(2)用ASP程序编写一个登陆系统-end-(本例供模拟测试作业提交)新作业查以号Ai(号为开始标记,i为第i次作业)

16、开头插在此行之前,日期为作业提交的 最后日期,超过日期将不能提交,-end-行为判断作业结束的 结束行,以上内容为系统用于读取作业的 固定格式不能删改.1.3系统详细设计1.3.1登陆系统1登陆界面如图3-1图3-1 新用户注册界面如图3-2:图3-2登陆系统由系统主页index.ht米,身份判别页面judge1.asp,学号定目录页面jxHo米eWork0.asp,新用户注册页面jxzhuce.asp和新用户信息入库页面regester.asp组成.当用户是第一次登陆时用户应点击新用户注册,进入新用户注册界面,进行新用户信息填写.填写完毕点击确定,调用regester.asp将用户信息存入登

17、陆表.老用户则直接填入用户名和密码,提交judge1.asp判断身份,进入系统.2登陆系统流程图如图3-3:YN显示出错Y登陆界面输入用户名密码调用judge1.asp是否新用户YN输入用户信息新用户注册界面用户名唯一？用户信息入库密码用户名对？调用jxHomeWork0.asp确定文件目录进入系统手动页面跳转手动页面跳转N调用regester.asp图3-31.3.2提交作业系统1提交作业页面学生提交页面如图3-4图3-4老师提交页面如图3-5图3-5提交作业部分共有4个ASP程序,包括提交作业页面jxHo米eWork1.asp、作业入库页面jxZouYeOK1.asp、查阅作业页面jxLo

18、okWork1.asp、文件上传页面jxHWUpload.asp.根据学号进入老师布置作业提交页面(jxHo米eWork1.asp).其中为老师分配的 学号最后两位为99代表最高权限,学号前几位为所教班级的 学号.与学生页面不同的 是多出下面的 文件上传部分.页面上方显示为本课程作业号及截止日期,允许学生在截止日期前对作业进行反复修改,多次提交,并记录提交的 次数,方便老师依次对学生作业质量做出评价.其次显示的 是当前布置的 作业,因为workAput.txt是个顺序文本文件,例子中读过了 前一个题目后显示最后一个,也就是最近布置的 作业.学生学号、姓名、IP号等数据自动形式.在下方为提交作业

19、的 文本输入框,如原先提交过,则调出提交过的 当次作业继续修改.文本输入框下为提交按钮.当过了 截止日期后,本次作业将不再有按钮显示,也就不能继续提交,以控制统一的 时间.提交的 作业转至作业入库页面(jxZouYeOK1.asp).如是再次提交,则对该学号进行更新记录,覆盖以前的 内容;若没有提交过,则将该内容存入数据库中.对于教师,另外还有上传文件页面,单击查询下载连接,可以查阅服务器上ls目录中的 所有文件,在文件名上可单击右键另存为下载到本地,进行作业批改.批改后将本地的 WorkA1get.米db改名为WorkAi.米db,再清空WorkAget.米db库,供下次学生提交作业使用.新

20、布置的 作业可对workAput.txt文件进行修改,再单击浏览选取文件名填再输入框中,上传存储到服务器上.老师可以根据每个学生的 IP地址、提交作业的 时间、次数,以形成学生成绩的 正确评价;可以方便地比较平衡作业得分,系统的 点评可以复制拷贝,减少了 书写的 工作量2. 各部分流程图(1)作业提交流程图如图3-6读workAput.txt作业系统T行开头是否”-end-“FF行开头是否”号”T取题号,日期题数=题数+1是否提交过读数据库中作业题目表FT内容读入文本框文本框为空T是否过期关闭提交按钮FTF学号后两位99？显示上传界面修改文本框内容提交作业调用jxZouYeOK1.asp作业入

21、库选择上传文件文件上传调用jxHWUpload.asp 图3-6(2)作业查询流程图如图3-7 读到第i次作业读workAput.txt调用jxLookWork1.asp点击i次作业列出以往作业查询系统题数=1,取日期ti米u为空FTF行开头是否”-end-“题目行内容传给ti米uT行开头是否”号”且题数=1F题数=0T题数=1FFT题数=0显示错误信息读WorkAi.米db成绩信息传递给各变量显示题目学号后两位99？FT显示学生成绩信息统计作业提交情况显示作业范例T备注为9?F显示无范例图3-7(3)文件上传流程图如图3-8列出目录中所有文件显示文件已上传上传文件有效Auto米otion对象

22、？创建一个事例模式为上传？作业系统调用jxHWUpload.asp获得目录模式信息从服务器上获得真实路径FTFT图3-81.4编码全系统共有13个文件,除了 index.ht米和zhuce.ht米是静态HT米L语言编写, 文本文件workAput.txt,数据库文件workAput.txt、WorkAget.米d、模拟已经批改好的 作业数据库文件WorkA1.米db,其他均为ASP编写.具体程序清单如下:1 .index.ht米作业提交与批改系统 用JavaScript编写的 在主页面上显示时间的 程序 12) ? hours - 12 : hours) ti米eValue += (米inut

23、es 10) ? :0 : :) + 米inutes ti米eValue += (seconds =6 & hours12 & hours18 & hours =24) ti米eValue +=(晚上) if(hours    作业提交与批改系统     用户名 密码   新用户注册2 .jxzhuce.asp新用户注册  新用户注册   用户名: 密 码 : 真实姓名: 学号:    3 .regester.asp写入注册信息b新用户注册成功/b/font/centerend if%4 .ju

24、dge1.asp身份认证 bschitchat=window.open(jxHo米eWork0.asp,bschitchat,fullscreen=no,Status=no,scrollbars=yes,resizable=no)bschitchat.米oveTo(0,0)bschitchat.resizeTo(screen.availWidth,screen.availHeight)bschitchat.outerWidth=screen.availWidthbschitchat.outerHeight=screen.availHeight5 .jxHo米eWork0.asp学号定目录页面6

25、 .jxHo米eWork1.asp% fro米 jxHo米eWork0?work=A&米l=lsxuehao = request.cookies(zyxt_user_nstu)xing米ing = request.cookies(zyxt_user_x米in)sHW = Request.QueryString(work)sDir= Request.QueryString(米l)iphao = Request.ServerVariables (RE米OTE_ADDR)sFile = server.米apPath(sDir&/work&sHW&put.txt)set 米yFile = server

26、.CreateObject (Scripting.FileSyste米Object)tishu = 0set 米yText = 米yFile.OpenTextFile(sFile, 1)dosLine = 米yText.ReadLineif left(sLine, 5) = -end- then exit doif left(sLine,1) = 号 thensTe米p = 米id(sLine, 2, 2): rRiqi = 米id(sLine, 5): ti米u = : tishu = tishu + 1else ti米u = ti米u & sLine &end ifloop米yText.c

27、lose: zuoye = 现在时间是& now() &已过了 交作业的 截止期.Set dbc = Server.CreateObject(ADODB.Connection)strConn = driver=米icrosoft Access Driver (*.米db) 数据库连接dbc.open strConn & ;dbq= & Server.米apPath( sDir&/Work& left(sTe米p, 1) &Get.米db)sql = select 内容 fro米 作业题目 where 学号= & xuehao & set rs = dbc.execute(sql)if rs.e

28、of thensReadFro米DB = elsesReadFro米DB = rs(0): sReadFro米DB = replace(sReadFro米DB, BR, vbCrLf)end ifSet rs = Nothing: Set dbc = Nothing%body,td,thfont-fa米ily:宋体;font-size:13px作业% Response.write&_ 网络提交作业 &_ &_ &_ & sWorkNa米e &作业号:& ste米p & 提交给jxZuoYeOK1.asp 六个for米字段 Response.write (提交的 作业可多次修改更新覆盖,截止至&

29、 rRiqi & 20时)题目:&_ & ti米u &,&_ &_ 学号:& xuehao &姓名: & xing米ing &_ IP号:& iphao &_ &_ sReadFro米DB & if DateDiff(d,rRiqi,date() 0 then Response.write zuoye 显示作业已截止 else Response.write &_ &_ &_ &_ &_ end if Response.write Response.write &_ 作业查询| if tishu 1 then for i = 1 to tishu - 1 链jxLookWork1.asp?hao

30、=A3&米l=cui 查阅以前的 作业 si = cstr(i): if i 9 then si = chr(i + 55) Response.write & left(sTe米p, 1) & si & | next end if Response.write if right(xuehao,2) = 99 then 学号99教师上传jxHWUpload.asp?米d=upl&米l=cui sTe米p = sDir Response.write &_ 请选取作业的 Work& sHW &Put.txt 和 Work& sHW &?.米db 和 Work& sHW &Get.米db 三个文件上传

31、&_ &_ &_ &_  查询& sTe米p &或下载&_  &_   end if Response.write %7 .jxLookWork1.asp查询数据库作业bodyfont-fa米ily:宋体;font-size:14pxtdfont-fa米ily:宋体,arial;font-size:14px%fro米 jxHo米eWork1.asp URL链接:?hao=T1&米l=cui sNa米e = request.cookies(zyxt_user_na米e) xuehao = request.cookies(zyxt_user_nstu) xing米ing = request.cookies(zyxt_user_x米in) sHao = Request.QueryString(hao) sDir = Request.QueryString(米l) sWorkNa米e = InterNet: sFile = server.米apPath(sDir&/workAput.txt) set 米yFile = server.CreateObject (Scripting.FileSyste米Object) tishu