资源目录
压缩包内文档预览：(预览前20页/共65页)
编号：438844
类型：共享资源
大小：2MB
格式：RAR
上传时间：2015-06-03
上传人：小***
认证信息
个人认证
林**（实名认证）
福建
IP属地：福建
20
积分
- 关 键 词：
-
asp
在线
教育系统
设计
源代码
论文
- 资源描述：
-
ASP在线教育系统设计(源代码+论文),asp,在线,教育系统,设计,源代码,论文
- 内容简介：
-
JavaScript技术讲座 第一讲 JavaScript语言概况 第二讲 JavaScript基本数据结构 第三讲 JavaScript程序构成 第四讲 基于对象的JavaScript语言 第五讲 创建新对象 第六讲 使用内部对象系统 第七讲 窗口及输入输出 第八讲 WEB页面信息的交互 第九讲 实现更复杂的交互目目 录录前言前言3 3第一章第一章 编程环境基础知识编程环境基础知识4 41.1 ASP 技术简介41.2 ACCESS2003 技术简介 4第二章第二章 需求分析需求分析1 12.1 目标设计12.2 系统功能分析与设计22.3 性能需求2第三章第三章 系统设计系统设计4 43.1 资料显示模块 43.1.1 资料信息显示页 53.1.2 资料详细信息页 93.1.3 资料信息下载页 113.1.4 提交回复作业页 123.1.5 提交回复作业成功页 133.1.6 教师基本信息页 163.1.7 资料信息搜索页 203.1.8 资料信息搜索结果页 213.2 资料管理模块 223.2.1 管理员登陆页 243.2.2 验证管理员帐号页 243.2.3 管理员登陆成功页 263.2.4 增加资料栏目页 273.2.5 增加栏目成功页 283.2.6 修改栏目信息页 303.2.7 保存修改的栏目信息页 323.2.8 删除栏目信息页 343.2.9 删除栏目信息成功页 343.2.10 发布资料信息页 363.2.11 资料信息发布成功页 383.2.12 资料信息列表页 393.2.13 资料信息修改页 393.2.14 保存修改的资料信息页 423.2.15 删除资料信息页 463.2.16 删除资料信息成功页 473.3 教师管理 503.3.1 搜索教师页 513.3.2 教师搜索结果页 523.3.3 添加教师信息页 533.3.4 添加教师成功页 543.3.5 修改教师信息页 553.3.6 修改教师信息成功页 573.3.7 删除教师信息页 583.3.8 删除教师信息成功页 58第四章第四章 数据库结构设计数据库结构设计60604.1 数据库需求分析 604.2 数据库逻辑设计 604.3 数据库连接说明 61第五章第五章 测试和维护测试和维护62625.1 网站维护 625.2 网站测试 62参考文献参考文献6363致谢致谢6464前言与传统教育相比,远程教育是一种全新的教育模式,它可以突破时间和空间的限制,帮助人们随时随地地学习,让更多的学习者共享优秀教育资源。远程教育既具有开放性、交互性、协作性和自主性等特点，又具有异步性、实时性、生动性、集成性和大容量等优势。因此，在远程教育系统的建设中，单纯地构建各种功能单一的系统并不能完全满足远程教育建设的需求，只有那些对数据和信息进行了有效组织、整合了多种业务、为用户提供个性化服务的系统才能充分发挥远程教育的作用。使用在线教育系统可以为用户提供在线教案学习、在线提交作业和查询教师等服务。第一章 编程环境基础知识1.1 ASP 技术简介 Microsoft Active Server Pages 即我们所称的 ASP,其实是一套微软开发的服务器端脚本环境.Active Server Page 是创建动态网页的一个很好的工具,它起一种编程语言的作用,可以利用它编写动态产生 HTML 的程序代码.因此,只要用户浏览 Web 站点并请求一个 ASP 页,Web 服务器就可以处理相应的 ASP 代码,生成 HTML 代码,然后将它传递到用户浏览器并显示出网页. ASP 程序的优点: 1,ASP 使用 VBScript 脚本语言直接源于 VB 语言,秉承了 VB 简单易学的特点,掌管起来非常容易. 2,无须编译,容易编写,可在服务器端直接执行. 3,利用 ADO 组件轻松存取数据库. 4,与浏览器无关,客户端只要使用可执行 HTML 码的浏览器,即可浏览 ASP 所设计的网页内容. 5,ASP 能与任何 ActiveX scripting 语言相容.除了可使用 VBScript 或JavaScript 语言来设计外,还通过 plug-in 的方式,使用由第三方所提供的其他脚本语言. 6,ASP 技术的处理速度相当快,并且其安全性也很高,ASP 的源程序,不会被传到客户浏览器,因而可以避免所写的源程序被他人剽窃,也提高了程序的安全性. 7,ASP 的对象和组件:ASP 有 7 个固有对象这 7 个固有对象分别是Request,Response,Server,Application,Session,ASPError 和 ObjectContext.1.2 ACCESS2003 技术简介 Access2003 就是关系数据库开发工具,数据库能汇集各种信息以供查询,存储和检索.那么什么叫数据库呢 数据库(Database)是由一些有意义和有关系的数据(data)所组合而成.一个数据库中,包含了许多条记录(Record),而每条记录是由多个字段(Field)所组成,不同的字段存放这不同的数据.所以数据库的严格定义是一组相关记录的集合,而字段则是最基本的数据项,也是数据库中最小的单位.在计算机中用来帮我们管理数据库的系统,我们称之为数据库管理管理系统(Database Management System DBMS).数据库管理系统是架构在一个或多个数据库之上,并针对数据库中的数据进行管理运用. Access 的优点在于它能使用数据表示图或自定义窗体收集信息,数据表示图提供了一种类似于 Excel 的电子表格,可以使数据库一目了然.另外,Access 允许创建自定义报表用于打印或输出数据库中的信息.Access 也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.如上所述,Access 作为关系数据库开发具备了许多优点,可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能.山西工商职业学院论文(设计) 1 第二章 需求分析一个典型的在线教育系统至少应包含资料显示、资料管理和教师管理 3 种功能。本站的系统结构如图 21 所示。2-1 系统结构2.1 目标设计 在线教育系统所要实现的功能如下。 资料显示模块 显示资料 显示教师介绍 浏览查阅资料 回复提交资料 资料管理模块 资料栏目管理山西工商职业学院论文(设计) 2 发布资料 管理资料 教师管理模块 添加教师信息 编辑教师信息 删除教师信息2.2 系统功能分析与设计 在线教育系统共分为 3 个模块:资料显示模块、资料管理模块和教师管理模块，其功能模块划分如图所示。资料显示模块 资料显示资料搜索资料管理模块管理员登陆资料栏目管理资料信息管理教师信息添加教师信息修改教师信息删除教师管理模块2.3 性能需求 开发环境 1. WindowsXP 操作系统山西工商职业学院论文(设计) 3 2. 80G 的硬盘空间 3. AMD2500+处理器 4. 17 # 纯平监视器 5. 512 内存 适用环境 1.Windows98/Me/2000/XP 操作系统 2.1G 以上的硬盘空间 3.Inter 赛扬 1.0G 以上处理器 4.15 # 普通监视器以上 5.32M 以上内存山西工商职业学院论文(设计) 4 第三章 系统设计3.1 资料显示模块资料显示模块包含以下子模块。 资料显示 资料搜索资料显示子模块包含以下页面。 index.asp detail.asp download.asp teacherinfo.asp资料搜索子模块包含以下页面。 search.asp list.asp各页面间的关系如图 3-1 所示。山西工商职业学院论文(设计) 5 3-1 各页面间的关系 3.1.1 资料信息显示页1. index.asp 页面示例图 3-2 为显示资料信息所看到的页面。山西工商职业学院论文(设计) 6 图 3-2 显示资料信息2. 页面中需要用户填写的 HTML 表单元素。此页无需填写 HTML 表单元素。3. 页面所涉及的数据库表信息。此页面用来显示资料信息,使用了系统中的资料信息表 main 和教师信息表teacher。4. 页面代码分析 引用创建数据库连接对象函数文件引用网站设置文件%取得网站设置信息sql = select * from configset rs = server.createobject(adodb.recordset)rs.open sql,conn,1,3schoolname = rs(schoolname)gonggao = rs(gonggao)todaytimes = rs(todaytimes)times = rs(times)今日访问统计if rs(todaydate) date() thenrs(todaydate) = date()rs.update山西工商职业学院论文(设计) 7 todaytimes = 0end if总访问统计if request.cookies(counted) yes thenresponse.cookies(counted) = yes设置 cookies 失效时间response.cookies(counted).expires = now() + 1/72统计数加 1times = times + 1todaytimes = todaytimes + 1rs(times) = timesrs(todaytimes) = todaytimesrs.updateend if关闭记录集对象rs.closedim num1dim rndnumRandomize%Html 页面显示部分%取最近更新的 10 条资料记录sql = select * from main,teacher where main.idofteacher=teacher.teacherid order by main.times descrs.open sql,conn,1,1显示最近更新的 10 条资料记录for i = 1 to 10if rs.eof thenresponse.write 山西工商职业学院论文(设计) 8 elseif len(rs(title) 10 thenfiletitle = left(rs(title),10)&.elsefiletitle = rs(title)end if%a href=# title= onclick=javascript:showdetail();a href=teacherinfo.asp?id= title=查看的个人专集3.1.2 资料详细信息页 1. etail.asp 页面示例 图 3-3 为显示资料详细信息的页面。山西工商职业学院论文(设计) 9 图 3-3 资料详细信息 2. 页面中需要用户填写的 Html 表单元素。 此页无需填写 Html 表单元素。 3. 面所涉及的数据库表信息。 此页使用了系统中的资料信息表 main 和教师信息表 teacher。 4. 页面代码分析 引用创建数据库连接对象函数文件引用网站设置文件%取得要显示资料信息的 id 号id = request(id)if id = then conn.close set conn = nothing山西工商职业学院论文(设计) 10 response.write alert(没有找到您要查看的记录);window.close(); response.endend if打开记录集对象set rs = server.createobject(adodb.recordset)sql = select * from main,teacher,type where main.idofteacher=teacher.teacherid and main.idoftype=type.typeid and main.mainid=&id取得资料详细信息rs.open sql,conn,1,1如果资料详细信息不存在则提示错误if rs.bof and rs.eof then rs.close set rs = nothing conn.close set conn = nothing response.write alert(没有找到您要查看的记录);window.close(); response.endelse%Html 页面显示部分,显示资料的详细信息%关闭记录集对象rs.closeset rs = nothing关闭数据库连接对象conn.closeset conn = nothingend if山西工商职业学院论文(设计) 11 3.1.3 资料信息下载页 1. download.asp 页面示例 图 3-4 为阅读资料信息所看到的页面。图 3-4 阅读资料信息 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页使用了系统中的资料信息表 main。 4. 页面代码分析%取得要显示资料信息的 id 号id = trim(request(id)if id = then conn.close set conn = nothing response.write alert(没有找到您要阅读的资料);window.close(); response.endend ifsql = select * from main where mainid=&idset rs = server.createobject(adodb.recordset)取得资料详细信息rs.open sql,conn,1,3如果资料详细信息不存在则提示错误山西工商职业学院论文(设计) 12 if rs.bof and rs.eof then rs.close set rs = nothing conn.close set conn = nothing response.write alert(没有找到您要阅读的资料);window.close(); response.end如果资料详细信息存在Else该资料阅读数加 1 rs(times) = rs(times) + 1 rs.update页面下载或者打开资料信息 response.redirect rs(fileurl)关闭记录集对象 rs.close set rs = nothing关闭数据库连接对象 conn.close set conn = nothingend if%3.1.4 提交回复作业页 1. redetail.asp 页面示例 图 3-5 为提交回复作业信息所看到的页面。山西工商职业学院论文(设计) 13 图 3-5 提交回复作业信息 2. 页面中需要用户填写的 Html 表单元素 此页中有 3 个表单元素,如表 1 所示。 表 1 redetail.asp 页的表单元素名称表单元素类型含义最大长度NameText学生姓名20TitleText作业标题20MessageTextarea作业答案100 3. 页面所涉及的数据库表信息 此页面用来显示提交回复作业信息,并没有涉及到数据库表的操作。 4. 页面代码分析Html 页面表单提交到 redetailok.asp 提交作业答案Html 页面显示部分3.1.5 提交回复作业成功页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的回复作业信息记录表 work。 3. 页面代码分析山西工商职业学院论文(设计) 14 引用创建数据库连接对象函数文件%学生姓名必须要输入name = trim(request(name)if name = then response.write alert(请输入学生姓名);history.go(-1); conn.close set conn = nothing response.endend ifif len(name) 5 then response.write alert(学生姓名不得超过 5 个汉字);history.go(-1); conn.close set conn = nothing response.endend if作业标题必须要输入title = trim(request(title)if title = then response.write alert(请输入作业标题);history.go(-1); conn.close set conn = nothing response.endend if作业答案必须要输入message = trim(request(message)if message = then response.write alert(请输入作业答案);history.go(-1); conn.close山西工商职业学院论文(设计) 15 set conn = nothing response.endend if作业的 id 号必须存在reid = trim(request(reid)if reid = then response.write alert(非法操作);history.go(-1); conn.close set conn = nothing response.endend ifsql = select * from work where name=&name& and reid=&reidset rs = server.createobject(adodb.recordset)查找作业表中是否存在学生姓名和回复作业的 id 号相同的记录存在rs.open sql,conn,1,3如果存在则说明学生已经提交过作业不能再提交了if not (rs.bof and rs.eof) then rs.close set rs = nothing conn.close set conn = nothing response.write alert(你已经提交过作业了);history.go(-1); response.endelse如果不存在则添加作业答案记录 rs.addnew rs(reid)=reid rs(name)=name rs(title)=title山西工商职业学院论文(设计) 16 rs(message)=message添加作业答案记录成功 rs.update关闭记录集对象 rs.close set rs = nothing关闭数据库连接对象 conn.close set conn = nothingend ifresponse.write alert(添加成功);window.location.href=index.asp;%3.1.6 教师基本信息页 1. teacherinfo.asp 页面示例 图 3-6 为显示教师基本信息所看到的页面。图 3-6 显示教师基本信息 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页面用来显示教师基本信息,此页使用了系统中的资料信息表 main 和教师山西工商职业学院论文(设计) 17 信息表 teacher。 4. 页面代码分析%取得要显示教师信息的 id 号id = trim(request(id)if id = then conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=index.asp; response.endend if判断用户是否是管理员if session(admin) = admin then isadmin = trueelse isadmin = falseend if判断用户是否是教师if session(teacherid) then isteacher = trueelse isteacher = falseend if取得教师详细信息sql = select * from teacher where teacherid=&idset rs = server.createobject(adodb.recordset)rs.open sql,conn,1,1%Html 页面显示部分,显示教师信息山西工商职业学院论文(设计) 18 220 then iframeheight = 220%已在本站发布的（共件）山西工商职业学院论文(设计) 19 显示资料记录的框架页iframe name=titleof frameborder=0 width=100% height= scrolling=no src=titlelist.asp?type=&id=3.1.7 资料信息搜索页 1. search.asp 页面示例山西工商职业学院论文(设计) 20 图 3-7 为搜索资料信息所看到的页面。图 3-7 搜索资料信息 2. 页面中需要用户填写的 Html 表单元素 此页共有 5 个表单元素,如表 2 所示。 表 2 search.asp 页的表单元素名称表单元素类型含义最大长度fenlei1Text所属学院20feilei2Text所属系20TeacherText教师姓名10CourseText相关资料20TitliText资料标题20 3. 页面所涉及的数据库表信息 此页面用来显示搜索资料信息,此页使用了系统中的资料栏目信息表 type。 4. 页面代码分析Html 页面表单提交到 list.aspHtml 页面显示部分,显示要填写的搜索条件3.1.8 资料信息搜索结果页 1. list.asp 页面示例山西工商职业学院论文(设计) 21 图 3-8 为显示资料信息列表所看到的页面。 3-8 显示资料信息列表 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页面用来显示资料信息列表，使用了系统中的资料信息表 main 和教师信息表 teacher。3.2 资料管理模块 资料管理模块包含以下子模块。 管理员登陆 资料栏目管理 资料信息管理 管理员登陆子模块包含以下页面。山西工商职业学院论文(设计) 22 adminlogin.asp asmincheck.asp adminmain.asp 资料栏目管理子模块包含以下页面。 addtype.asp addtypeok.asp edittype.asp edittypeok.asp deltype.asp deltypeok.asp 资料信息管理子模块包含以下页面。 put.asp pubok.asp list.asp edit.asp editok.asp admindelcourseware.asp admindelcoursewareok.asp 各页面间的关系如图 3-9 所示。 山西工商职业学院论文(设计) 23 3-9 各页面间的关系山西工商职业学院论文(设计) 24 3.2.1 管理员登陆页 1. adminlogin.asp 页面示例 图 3-10 为管理员登陆所看到的页面。管理员密码为 admin。图 3-10 管理员登陆2. 页面中需要用户填写的 Html 表单元素此页共有两个表单元素,如表 3 所示。表 3 adminlogin.asp 页的表单元素名称表单元素类型含义最大长度AdminpwdPassword管理员密码15 3. 页面所涉及的数据库表信息 此页并没有涉及到数据库表的操作。 4. 页面代码分析Html 页面表单提交到 adminlogin.aspHtml 页面显示部分,显示要填写的登陆信息3.2.2 验证管理员帐号页1. 页面中需要用户填写的 Html 表单元素此页无需填写 Html 表单元素。2. 页面所涉及的数据库表信息此页面用来验证管理员信息,使用了系统中的管理员表 config。3. 页面代码分析引用创建数据库连接对象函数文件山西工商职业学院论文(设计) 25 %取得提交过来的信息adminpwd = request(adminpwd)如果输入的密码为空if adminpwd = then conn.close set conn = nothing response.write alert(请输入密码);history.go(-1); response.endend ifsql = select * from configset rs = server.createobject(adodb.recordset)rs.open sql,conn,1,1如果输入的密码与数据库中密码一致说明密码正确,登陆成功if adminpwd = rs(adminpwd) then登陆成功后 session(admin)起用session(admin)=”admin” rs.close set rs = nothing conn.close set conn = nothing登陆成功后就跳转到管理页面 response.redirect adminmain.asp如果输入的密码与数据库中密码不一致说明密码输入错误else rs.close set rs = nothing conn.close set conn = nothingresponse.write alert(密码错误);window.location.href=adminlogin.asp;山西工商职业学院论文(设计) 26 3.2.3 管理员登陆成功页 1.adminmain.asp 页面示例 图 3-11 为管理员登陆成功后所看到的页面。图 3-11 管理员登陆成功 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页使用了系统中的管理员表 config。 4. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是管理员登陆文件Html 页面显示部分 3.2.4 增加资料栏目页 1. addtype.asp 页面示例 图 3-12 为增加栏目信息所看到的页面。山西工商职业学院论文(设计) 27 2. 页面中需要用户填写的 Html 表单元素 此页仅有 1 个表单元素,如表 4 所示。 表 4 addtype.asp 页的表单元素名称表单元素类型含义最大长度AddtypeText栏目名称10 3. 页面所涉及的数据库表信息 此页面用来增加栏目信息,使用了系统中的栏目信息记录表 type。 4. 页面代码分析%取得栏目信息sql = select * from typeset rs = server.createobject(adodb.recordset)打开记录集对象rs.open sql,conn,1,1显示栏目信息do while not rs.eof response.write &rs(type)& response.write 编辑/删除取下一条栏目信息 rs.movenextloop关闭记录集对象rs.closeset rs = nothing关闭数据库连接对象conn.closeset conn = nothing%Html 页面表单提交到 addtype.doc山西工商职业学院论文(设计) 28 请输入要添加的栏目名称:（栏目名称可以如“论文” 、 “实验素材”等）3.2.5 增加栏目成功页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的栏目信息记录表 type。 3. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是管理员登陆文件%取得输入的栏目名称addtype = trim(request(addtype)if addtype = then response.write alert(请输入要添加的栏目名);history.go(-1); conn.close set conn = nothing response.endend ifif len(addtype) 5 then response.write alert(栏目名不得超过 5 个汉字);history.go(-1); conn.close set conn = nothing response.endend if山西工商职业学院论文(设计) 29 查找栏目信息表是否有栏目名相同的记录sql = select * from type where type=&addtype&set rs = server.createobject(adodb.recordset)rs.open sql,conn,1,3如果有则提示if not (rs.bof and rs.eof) then rs.close set rs = nothing conn.close set conn = nothing response.write alert(数据库中已经有一个名为&addtype&的栏目了);history.go(-1); response.endelse如果没有记录则可以添加了 rs.addnew rs(type)=addtype rs.update关闭记录集对象 rs.close set rs = nothing关闭数据库连接对象 conn.close set conn = nothingend ifresponse.write alert(添加成功);window.location.href=addtype.asp;%3.2.6 修改栏目信息页 1. edittype.asp 页面示例山西工商职业学院论文(设计) 30 图 3-13 为修改栏目信息所看到的页面。图 3-13 修改栏目信息 2. 页面中需要用户填写的 Html 表单元素 此页仅有 1 个表单元素,如表 5 所示。 表 5 edittype.asp 页的表单元素名称表单元素类型含义最大长度AddtypeText栏目名称10 3. 页面所涉及的数据库表信息 此页用来修改栏目信息页面,使用了系统中的栏目信息记录表 type。 4. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是管理员登陆文件Html 页面显示部分Html 页面表单提交到 edittypeok.asp将栏目“”更名为：input type=text name=addtype size=10 value=input type=hidden name=id value=（栏目名称可以如“论文” 、 “实验素材”等）3.2.7 保存修改的栏目信息页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的栏目信息记录表 type。 3. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是管理员登陆文件%取得要修改的栏目信息的 id 号id = trim(request(id)addtype = trim(request(addtype)如果没有输入栏目名称则提示if addtype = then response.write alert(请输入栏目名);history.go(-1); conn.close set conn = nothing response.end山西工商职业学院论文(设计) 32 end if栏目名称的长度不能大于 5if len(addtype) 5 then response.write alert(栏目名不得超过 5 个汉字);history.go(-1); conn.close set conn = nothing response.endend if打开栏目信息表查找需要修改的栏目名称sql = select * from type where type=&addtype& and typeid&idset rs = server.createobject(adodb.recordset)rs.open sql,conn,1,1如果修改的名称在数据库中已经有记录则不能修改if not (rs.bof and rs.eof) then rs.close set rs = nothing conn.close set conn = nothing response.write alert(数据库中已经有一个名为&addtype&的栏目了);history.go(-1); response.endend ifrs.closeset rs = nothing如果修改的名称在数据库中没有记录了则可以修改conn.execute update type set type=&addtype& where typeid=&idconn.closeset conn = nothing山西工商职业学院论文(设计) 33 response.write alert(修改成功);window.location.href=addtype.asp;%3.2.8 删除栏目信息页 1. deltype.asp 页面示例 图 3-14 为删除栏目信息所看到的页面。图 3-14 删除栏目信息 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页使用了系统中的栏目信息记录表 type。 4. 页面代码分析Html 页面表单提交到 deltypeok.asp将有下列数据被删除1.该栏目在数据库中的记录2.所有属于该栏目的资料input type=hidden name=id value=山西工商职业学院论文(设计) 34 3.2.9 删除栏目信息成功页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的栏目信息记录表 type。 3. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是管理员登陆文件%取得要删除栏目信息的 id 号id = trim(request(id)如果要删除栏目信息的 id 号为空说明非法操作if id = then conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=adminmain.asp; response.endend if查找对应 id 号的栏目信息sql = select * from type where typeid=&idset rs = server.createobject(adodb.recordset)打开记录集对象rs.open sql,conn,1,1对应 id 号的栏目信息如果不存在则说明该栏目不存在if rs.bof and rs.eof then rs.close set rs = nothing conn.close山西工商职业学院论文(设计) 35 set conn = nothing response.write alert(请不要捣乱);top.window.location.href=adminmain.asp; response.endend ifrs.closeset rs = nothing对应 id 号的栏目信息如果存在则删除栏目信息conn.execute delete from type where typeid=&id删除资料信息中对应栏目 id 号的资料信息conn.execute delete from main where idoftype=&id关闭数据库连接对象conn.closeset conn = nothingresponse.write alert(删除成功);window.location.href=addtype.asp;%3.2.10 发布资料信息页 1.pub.asp 页面示例 图 3-15 为发布资料信息所看到的页面。山西工商职业学院论文(设计) 36 2. 页面中需要用户填写的 Html 表单元素 此页共有 6 个表单元素,如表 6 所示。 表 6 pub.asp 页的表单元素名称表单元素类型含义最大长度TeacherText教师姓名15CourseText课程名称15TitleText资料标题52FileurlText资料地址52FilesizeText资料大小15contenttextarea资料简介300 3. 页面所涉及的数据库表信息 此页用来发布资料信息页面,使用了系统中的栏目信息记录表 type。 4. 页面代码分析Html 页面表单提交到 pubok.aspHtml 页面显示部分,填写资料信息请选择 option value=%取下一条栏目信息山西工商职业学院论文(设计) 37 rs.movenextloopresponse.write 关闭记录集对象rs.closeset rs = nothing%3.2.11 资料信息发布成功页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的资料信息记录表 main。3.2.12 资料信息列表页 图 3-16 为资料信息列表页面。山西工商职业学院论文(设计) 38 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页面用来显示资料信息列表,使用了系统中的资料信息表 main 和教师信息表 teacher。 4. 页面代码分析 代码与 3.2.8 节的删除栏目信息页基本相同。3.2.13 资料信息修改页 1. edit.asp 页面示例 图 3-17 为修改资料信息所看到的页面。图 3-17 修改资料信息 2. 页面中需要用户填写的 Html 表单元素 此页共有 5 个表单元素,如表 7 所示。 表 7 edit.asp 页的表单元素名称表单元素类型含义最大长度CourseText课题名称15TitleText资料标题52FileurlText资料地址52山西工商职业学院论文(设计) 39 FilesizeText资料大小15ContentTextarea资料简介300 3. 页面所涉及的数据库表信息 此页用来修改资料信息,使用了系统中的资料信息记录表 main。 4. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是教师登陆文件引用网站设置文件%取得要修改资料信息的 id 号id = request(id)必须输入要修改资料信息的 id 号if id = then conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=teachermain.asp; response.endend if取得要显示的资料信息sql = select * from main,teacher where main.idofteacher=teacher.teacherid and main.mainid=&idset rs = server.createobject(adodb.recordset)rs.open sql,conn,1,1如果信息不存在则不能修改if rs.bof and rs.eof then rs.close山西工商职业学院论文(设计) 40 set rs = nothing conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=teachermain.asp; response.endelse如果存在判断用户是否有修改资料的权限 if rs(teacherid) int(session(teacherid) and session(admin) admin then rs.close set rs = nothing conn.close set conn = nothing response.write alert(这个资料不是你发布的，你想干什么？);top.window.location.href=teachermain.asp; response.end end ifend if%Html 页面显示部分,显示要修改的资料信息3.2.14 保存修改的资料信息页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的资料信息表 main 和教师信息表 teacher。 3. 页面代码分析引用创建数据库连接对象函数文件山西工商职业学院论文(设计) 41 引用判断是否是教师登陆文件引用网站设置文件%取得表单提交的信息on error resume nextcourse = server.htmlencode(trim(request(course)fileurl = server.htmlencode(trim(request(fileurl)content = server.htmlencode(trim(request(content)title = server.htmlencode(trim(request(title)typeid = trim(request(type)filesize = int(trim(request(filesize)id = request(id)必须输入修改的资料的 id 号if id = then conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=teachermain.asp; response.endend if必须输入资料名称if course = then conn.close set conn = nothing response.write alert(请输入资料名称);history.go(-1); response.endend ifif len(course) 25 then conn.close山西工商职业学院论文(设计) 42 set conn = nothing response.write alert(资料名称不得超过 25 个汉字);history.go(-1); response.endend ifif fileurl = then conn.close set conn = nothing response.write alert(请输入资料地址);history.go(-1); response.endend ifif len(fileurl) 100 then conn.close set conn = nothing response.write alert(资料地址不得超过 100 个英文字母);history.go(-1); response.endend ifif title = then conn.close set conn = nothing response.write alert(请输入资料标题);history.go(-1); response.endend ifif len(title) 25 then conn.close set conn = nothing response.write alert(资料标题不得超过 25 个汉字);history.go(-1); response.end山西工商职业学院论文(设计) 43 end ifif typeid = then conn.close set conn = nothing response.write alert(请选择资料类型);history.go(-1); response.endend ifif filesize 1 then filesize = 0if content = then conn.close set conn = nothing response.write alert(请输入简介);history.go(-1); response.endend if取得要修改的资料信息sql = select * from main where mainid=&idset rs = server.createobject(adodb.recordset)rs.open sql,conn,1,3如果要修改的资料信息不存在if rs.bof and rs.eof then rs.close set rs = nothing conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=teachermain.asp; response.endelse判断用户是否有修改资料的权限 if rs(idofteacher) int(session(teacherid) and session(admin) admin 山西工商职业学院论文(设计) 44 then rs.close set rs = nothing conn.close set conn = nothing response.write alert(这个资料不是你发布的，你想干什么？);top.window.location.href=teachermain.asp; response.end else如果有修改权限就修改资料信息 rs(fileurl)=fileurl rs(course)=course rs(dateandtime)=now() rs(content)=content rs(title)=title rs(idoftype)=cint(typeid) rs(filesize)=filesize修改成功 rs.update关闭记录集对象 rs.close set rs = nothing关闭数据库连接对象 conn.close set conn = nothing end ifend ifresponse.write alert(修改成功);window.location.href=edit.asp?id=&id&;山西工商职业学院论文(设计) 45 3.2.15 删除资料信息页 1. admindelcourseware.asp 页面示例 图 3-18 为删除资料信息所看到的页面图 3-18 个人基本档案 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页并没有涉及到数据库表的操作。 4. 页面代码分析Html 页面表单提交到 admindelcoursewareok.asp 删除资料信息将有下列数据被删除1.该资料在数据库中的记录2.与该资料相关的已上传资料input type=hidden name=id value=input type=hidden name=teacherid value=山西工商职业学院论文(设计) 46 3.2.16 删除资料信息成功页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 2. 页面所涉及的数据库表信息 此页使用了系统中的资料信息表 main。 3. 页面代码分析引用创建数据库连接对象函数文件引用判断是否是管理员登陆文件%取得教师信息的 id 号id = trim(request(id)teacherid = trim(request(teacherid)必须输入教师 id 号和资料信息 id 号if id = or teacherid = then conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=adminmain.asp; response.endend if取得资料信息sql = select * from main where mainid=&idset rs = server.createobject(adodb.recordset)打开记录集对象rs.open sql,conn,1,1判断信息是否存在,如果不存在则不能删除信息if rs.bof and rs.eof then rs.close set rs = nothing山西工商职业学院论文(设计) 47 conn.close set conn = nothing response.write alert(请不要捣乱);top.window.location.href=adminmain.asp; response.endelse如果信息存在则先取到文件地址先删除 fileurl = rs(fileurl) rs.close set rs=nothing如果资料已上传至本地，则删除资料 if left(fileurl,6) = files/ and mid(fileurl,7,len(teacherid)+2) = teacherid&at then dim filepaths,objFSO on error resume next Set objFSO = Server.CreateObject(Scripting.FileSystemObject) filepaths=Server.MapPath(&fileurl&) if objFSO.fileExists(filepaths) then objFSO.DeleteFile(filepaths) end if set objFSO = nothing end if删除资料信息 conn.execute delete from main where mainid=&id关闭记录集对象 conn.close set conn = nothing response.write alert(删除成功);window.location.href=list.asp?teacherid=&teacherid&;end if%山西工商职业学院论文(设计) 48 3.3 教师管理 教师模块包含以下页面。 adminteacher.asp adminsearchteacher.asp addteacher.asp addteacherok.asp editteacher.asp editteacherok.asp delteacher.asp delteacherok.asp 各页面间的关系如图 3-19 所示。3-19 各页面间的关系3.3.1 搜索教师页 1. adminteacher.asp 页面示例山西工商职业学院论文(设计) 49 图 3-20 为搜索教师信息所看到的页面。图 3-20 搜索教师信息 2. 页面中需要用户填写的 Html 表单元素 此页共有 4 个表单元素,如表 8 所示。 表 8 adminteacher.asp 页的表单元素名称表单元素类型含义最大长度Fenlei1text教师所属学院15Fenlei2Text教师所属系15TeacherText教师姓名15IdText教师 ID15 3. 页面所涉及的数据库表信息 此页并没有涉及到数据库表的操作。 4. 页面代码分析Html 页面表单提交到 adminsearchteacher.asp 搜索教师Html 页面显示部分,填写教师搜索信息3.3.2 教师搜索结果页 1. adminsearchteacher.asp 页面示例 图 3-21 为教师信息列表所看到的页面。山西工商职业学院论文(设计) 50 图 3-21 教师信息列表 2. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。 3. 页面所涉及的数据库表信息 此页面用来显示教师信息列表,使用了系统中的教师信息表 teacher。3.3.3 添加教师信息页 1. addteacher.asp 页面示例 图 3-22 为添加教师信息所看到的页面。3-22 添加教师信息山西工商职业学院论文(设计) 51 2. 页面中需要用户填写的 Html 表单元素 此页用来添加教师信息,页面中共有 13 个表单元素,如表 9 所示。 表 9 addteacher.asp 页的表单元素名称表单元素类型含义最大长度Fenlei1text教师所属学院25Fenlei2text教师所属系25Teachertext教师姓名25Loginnametext登陆名22Passwordtext密码25Password1text确认密码25Asktext密码找回问题25Answertext密码找回答案25Emailtext电子邮件25Homepagetext个人主页25QqtextQQ 号码25Addresstext通讯地址25introtextarea个人简介1503. 页面所涉及的数据库表信息 此页并没有涉及到数据库表的操作。 4. 页面代码分析Html 页面表单提交到 addteacherok.asp 增加教师信息Html 页面显示部分,填写教师信息3.3.4 添加教师成功页 1. 页面中需要用户填写的 Html 表单元素 此页无需填写 Html 表单元素。山西工商职业学院论文(设计) 52 2. 页面所涉及的数据库表信息 此页使用了系统中的教师信息表 teacher。 3.3.5 修改教师信息页 1. editteacher.asp 页面示例 图 3-23 为修改教师信息所看到的页面。图 3-23 修改教师信息 2. 页面中需要用户填写的 Html 表单元素 此页用来修改教师信息,页面中共有 14 个表单元素,如表 10 所示。 表 10 editteacher.asp 页的表单元素名称表单元素类型含义最大长度Fenlei1Text教师所属学院25Fenlei2Text教师所属系25山西工商职业学院论文(设计) 53 TeacherText教师姓名25LoginnameText登陆名22PasswordTe
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号