教务管理系统答辩

教务管理系统的设计与实现

（ASP）

期末答辩小组成员：

韩耀辉何秋芳杨毅李智夏杨梅系统结构说明教务动态管理规定公共下载用户登录校历作息时间管理人员问卷调查教学安排首页网络教务管理系统学科建设登陆成功门户维护员管理员教师学生.用户功能模块建设管理员学生网上选课添加学生信息管理学生信息添加教师信息管理教师信息添加课程信息管理课程信息密码修改查看用户注册信息个人信息

查看个人基本信息修改个人基本信息网上选课

查看所教课程修改课程得分成绩录入

查看学生成绩录入学生成绩修改学生成绩网上评教密码修改个人学籍信息个人基本信息修改基本信息网上选课

查询课程列表选取课程查看成绩网上评教

提交问卷调查表提交教学评价表密码修改教师.下面对各功能模块作具体讲解.登录模块的设计与实现.登陆程序的实现（登陆流程控制）登陆程序流程确认失败输出“error”登陆查询系统确认身份是否成功确认成功选择用户身份输入用户口令进入后用户自行操作根据不同用户动态生成查询结果.登陆程序的实现（试用账号）管理员用户账号：hanyaohui密码：123教师用户账号1：bbb密码：123账号2：jiaoshi密码：123学生用户账号1：lizhi密码：123账号2：yangyi密码：123账号3：heqiufang密码：123.登陆程序的实现下面是连接数据库代码段<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%><%setconn=server.createobject("adodb.connection")conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("..\DATA_Base\JWmanager.mdb").登陆程序的实现<% dimuser,pass,types user=request.Form("user") pass=request.Form("pass") types=request.Form("types") iflen(user)>0andlen(pass)>0andlen(types)>0then sql="select*fromuser_TabwhereuserNum='"&user&"'anduserPassword='"&pass&"'anduserType='"&types&"'" setrs=Server.CreateObject("ADODB.recordset") rs.Opensql,conn ifrs.EOFthen response.Write("error") response.End() else iftypes="teacher"then session("tea")=user session("level")="2" session("id")=rs.fields("userID") session("userNum")=rs.fields("userNum") session("userPassword")=rs("userPassword") response.Redirect("../_teacher/index_teacher.asp").登陆程序的实现else iftypes="student"then session("stu")=user session("level")="1" session("number")=rs("userxuehao") session("id")=rs.fields("userID") session("userNum")=rs.fields("userNum") session("userPassword")=rs("userPassword") response.Redirect("../_student/index_student.asp") else iftypes="master"then session("mas")=user session("userNum")=rs.fields("userNum") session("userPassword")=rs("userPassword") response.Redirect("../_master/index_master.asp") else session("gua")=user session("id")=rs.fields("userID") session("userNum")=rs.fields("userNum") session("userPassword")=rs("userPassword") response.Redirect("../_guanliyuan/index_guanliyuan.asp")endifendifendif

endifresponse.End() endif%>.登陆程序的实现（数据库的设计）.登陆成功后动态生成的界面.密码修改程序设计与实现.密码修改程序设计与实现（代码段）getoldpwd=Request.form("oldpwd")sql="select*fromuser_TabwhereuserID="&session("id")&"anduserPassword='"&getoldpwd&"'"Setrs=Server.CreateObject("ADODB.recordset") rs.opensql,connifrs.eofthen response.Write("您输入的原管理员密码不正确,<ahref='change_pwd.asp'>重新修改</a>")else getnewpwd=Request.form("newpwd") getconfirm=Request.form("confirm") ifgetnewpwd=getconfirmthen '更新 Setrs=Server.CreateObject("ADODB.recordset") sql="UPDATEuser_TabsetuserPassword='"&getnewpwd&"'whereuserID="&sid response.Write(sql) rs.opensql,conn else response.Write("您输入的两次密码不正确,<ahref='change_pwd.asp'>重新修改</a>") endif

endif.网上选课模块的设计与实现.网上选课模块的设计与实现（管理员添加学生信息）.网上选课模块的设计与实现（管理员管理学生信息）.网上选课模块的设计与实现（管理员管理学生信息）代码段<%dimsqldimactiondimStudent_Xuehao,Student_Name,Student_Banji,Student_Major,Student_Enteraction=request.QueryString("action")Student_Xuehao=request.Form("Student_Xuehao")Student_Name=request.Form("Student_Name")Student_Banji=request.Form("Student_Banji")Student_Major=request.Form("Student_Major")Student_Enter=(request.Form("Student_Enter"))ifaction="add"then'*******************************添加部分 setrs=server.CreateObject("adodb.recordset") sql="select*fromStudent_InformationwhereStudent_Xuehao='"&Student_Xuehao&"'" rs.opensql,conn,1,1 ifrs.bofandrs.eofthen '添加学生信息 sql="insertintoStudent_Information(Student_Xuehao,Student_Name,Student_Banji,Student_Major,Student_Enter)values('"&Student_Xuehao&"','"&Student_Name&"','"&Student_Banji&"','"&Student_Major&"','"&Student_Enter&"')" 'response.write(sql) 'response.end() conn.execute(sql) response.Write("添加成功") else response.Write("学号已经被注册！") endif.elseifaction="modify"then'*******************************修改部分 id=request.Form("Student_xuehao")

setrs=server.CreateObject("adodb.recordset") sql="select*fromStudent_InformationwhereStudent_Xuehao='"&Student_Xuehao&"'andStudent_ID<>"&id 'response.Write(sql) 'response.End() rs.opensql,conn,1,1 ifrs.bofandrs.eofthen '修改学生信息 sql="updateStudent_InformationsetStudent_Xuehao='"&Student_Xuehao&"',Student_Name='"&Student_Name&"',Student_Banjiment='"&Student_Banji&"',Student_Major='"&Student_Major&"',Student_Enter='"&Student_Enter&"'whereStudent_xuehao="&id 'response.Write(sql) conn.executesql response.Write("修改成功") else response.Write("学号已经被注册！") endif

elseifaction="del"then'*******************************删除部分 id=request.QueryString("id")

setrs=server.CreateObject("adodb.recordset") sql="select*fromStudent_InformationwhereStudent_ID="&id rs.opensql,conn,1,1 ifrs.bofandrs.eofthen response.Write("错误，没有需要删除学生的信息！") else sql="delete*fromStudent_InformationwhereStudent_ID="&id conn.execute(sql) response.write("删除成功") endifendif%>.网上选课模块的设计与实现（管理员管添加教师信息）.网上选课模块的设计与实现（管理员管理教师信息）.网上选课模块的设计与实现（管理员管理教师信息）<%dimaction,iddimTeacher_Bianhao,Teacher_Nameaction=request.QueryString("action")Teacher_Bianhao=request.Form("Teacher_Bianhao")Teacher_Name=request.Form("Teacher_Name")ifaction="add"then '*******************************添加教师 setrsa=server.CreateObject("adodb.recordset") sql="select*fromTeacher_InformationwhereTeacher_Bianhao='"&Teacher_Bianhao&"'" rsa.opensql,conn,1,1 ifrsa.bofandrsa.eofthen sql="insertintoTeacher_Information(Teacher_Bianhao,Teacher_Name)values('"&Teacher_Bianhao&"','"&Teacher_Name&"')" conn.execute(sql) response.Write("添加教师") else response.Write("教师编号已近被注册！") endif.elseifaction="modify"then '*****************************修改教师 id=request.Form("id") setrs=server.CreateObject("adodb.recordset") sql="select*fromTeacher_InformationwhereTeacher_Bianhao='"&Teacher_Bianhao&"'andTeacher_ID<>"&id rs.opensql,conn,1,1 ifrs.bofandrs.eofthen sql="updateTeacher_InformationsetTeacher_Bianhao='"&Teacher_Bianhao&"',teacher_name='"&Teacher_Name&"'whereTeacher_ID="&id conn.execute(sql) response.Write("修改教师") else response.Write("教师编号已经被注册") endifelseifaction="del"then id=request.QueryString("id")

setrs=server.CreateObject("adodb.recordset") sql="select*fromTeacher_InformationwhereTeacher_ID="&id rs.opensql,conn,1,1 ifrs.bofandrs.eofthen response.Write("错误，没有此教师的信息") else sql="delete*fromTeacher_InformationwhereTeacher_ID="&id conn.execute(sql) response.Write("删除成功") endifendif%>.网上选课模块的设计与实现（管理员添加课程信息）.网上选课模块的设计与实现（管理员管理课程信息）.网上选课模块的设计与实现（教师查询所教课程信息）.网上选课模块的设计与实现（教师查询所教课程信息）<body><tablewidth="100%"border="0"><tr><tdcolspan="5">所教课程</td></tr><tr><td>课程编号</td><td>课程名称</td><td>上课时间</td><td>任课教师</td><td>操作</td></tr><%dimtchnotchno=session("tea")setrs=server.CreateObject("adodb.recordset")sql="SELECTcourse.CourseNo,course.CourseName,course.CourseTime,Teacher_Information.Teacher_Name,Teacher_Information.Teacher_ID,course.CourseIDFROMTeacher_InformationINNERJOINcourseONTeacher_Information.Teacher_ID=course.teacher_IDwhereTEACHER_NAME='"&tchno&"'"

rs.opensql,conn,1,1

dowhilenotrs.eof%><tr><td><%=rs("courseno")%></td><td><%=rs("coursename")%></td><td><%=rs("coursetime")%></td><td><%=rs("teacher_name")%></td><td><ahref="tchcoursedetail.asp?cid=<%=rs("courseid")%>"target="mainFrame">详细</a></td></tr><% rs.movenextloop%></table></body>.网上选课模块的设计与实现（教师修改课程得分）.网上选课模块的设计与实现（教师修改课程得分）<%action=request.QueryString("action")ifaction="add"then Student_Xuehao=request.Form("Student_Xuehao") cno=request.Form("courseno") mark=request.Form("mark")

sid=request.Form("Student_Xuehao") cid=request.Form("cno") ifsid=""orcid=""then response.Write("未找到学号或者课程编号，请查阅后再填写") else tid=getTIDbyTNO(session("tea")) iftid=""then response.Write("您不能访问此页，或者已经登陆已经过期") else setrsc=server.CreateObject("adodb.recordset") sql="select*fromcoursewherecourseid="&cid&"andteacherid="&tid rsc.opensql,conn,1,1 ifrsc.bofandrsc.eofthen response.Write("您没有权限修改此课程得分，请查阅后再填写") else setrs=server.CreateObject("adodb.recordset") sql="select*fromchoosewherestudent_id="&sid&"andcourseid="&cid 'response.Write(sql) 'response.End() rs.opensql,conn,1,1 ifrs.bofandrs.eofthen '错误 response.Write("学生没有选修此课程程，请检查学号或者课程编号") else '修改 sql="updatechoosesetmark="&mark&"wherecourseid="&cid&"andstudent_id="&sid conn.execute(sql) response.Write("修改成功") endif endif endif endifendif%>.网上选课模块的设计与实现（学生查询课程列表）.网上选课模块的设计与实现（学生查询课程列表）<%dimrs,rsc,sqldimStudent_Xuehao%><tablewidth="100%"border="0"><tr><tdcolspan="5">所有课程</td></tr><tr><td>课程编号</td><td>课程名称</td><td>上课时间</td><td>任课教师</td><td>备注</td></tr><%

setrsc=server.CreateObject("adodb.recordset") '根据课程ID查询课程详细ID sql="SELECTcourse.CourseNo,course.CourseName,course.CourseTime,Teacher_Information.Teacher_Name,course.CourseRemake,course.CourseIDFROMTeacher_InformationINNERJOINcourseONTeacher_Information.Teacher_ID=course.teacher_ID" rsc.opensql,conn,1,1

ifnotrsc.eofandnotrsc.bofthen dowhilenotrsc.eof

%><tr><td><%=rsc("CourseNo")%></td><td><%=rsc("CourseName")%></td><td><%=rsc("CourseTime")%></td><td><%=rsc("Teacher_Name")%></td><td><%=rsc("CourseRemake")%></td></tr><% rsc.movenext loop endif rsc.close%></table></body>.网上选课模块的设计与实现（学生选择课程）.成绩管理模块的设计与实现.成绩管理模块的设计与实现（学生查询成绩）.成绩管理模块的设计与实现（教师查看学生成绩）.成绩管理模块的设计与实现（教师输入学生成绩）.成绩管理模块的设计与实现（教师修改学生成绩）.查看用户注册信息设计与实现.查看用户注册信息设计与实现<%setconn=server.createobject("adodb.connection")conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("..\DATA_Base\JWmanager.mdb")setrs=server.createobject("adodb.recordset")sql="select*fromuser_taborderbyuserType,userNum"rs.opensql,conn,1,1ifrs.eofandrs.bofthen%></font><palign="center"><fontsize="2">还没有任何相关信息<%elsers.pagesize=20totalPut=rs.recordcount'记录总数totalPage=rs.pagecountMaxPerPage=rs.pagesizeifcurrentpage<1thencurrentpage=1endififcurrentpage>totalPagethencurrentpage=totalPageendif.查看用户注册信息设计与实现ifcurrentPage=1thenshowpagesshowContentshowpageselseif(current1)*MaxPerPage<totalPutthenrs.move(current1)*MaxPerPagedimbookmarkbookmark=rs.bookmark'移动到开始显示的记录位置showpagesshowContentshowpagesendifendifrs.closeendifsetrs=nothingconn.closesetconn=nothingsubshowContentdimidimkk=(totalPut-MaxPerPage*(current1))+1i=0.问卷调查的设计与实现.问卷调查的设计与实现(查看问卷调查结果).问卷调查的设计与实现(查看问卷调查结果)还用说吗？以下就是连接数据库部分的代码段了撒<%Dimdb,strConnstrConn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath("/DATA_Base/JWmanager.mdb")Setconn=Server.CreateObject("ADODB.Connection")conn.OpenstrConnresponse.write"数据库连接成功"setrs=Server.CreateObject("ADODB.recordset")sqlstr="select*fromdiaochabiao"rs.opensqlstr,conn%>.问卷调查的设计与实现(查看问卷调查结果)还用说吗？以下就是创建表单撒，html干的事情<tablewidth="614"border="1"cellspacing="0"><tr>

<tdwidth="56">姓名</td><tdwidth="39">性别</td><tdwidth="69">职业</td><tdwidth="84">联系电话</td><tdwidth="127">身份证</td><tdwidth="199">联系地址</td><tdwidth="39">1</td><tdwidth="39">2</td><tdwidth="39">3</td><tdwidth="39">4</td><tdwidth="39">5</td><tdwidth="39">6</td><tdwidth="39">7</td><tdwidth="39">8</td><tdwidth="39">9</td><tdwidth="39">10</td><tdwidth="39">11</td><tdwidth="39">12</td><tdwidth="39">13</td><tdwidth="39">14</td><tdwidth="39">15</td><tdwidth="39">16</td><tdwidth="39">17</td><tdwidth="39">18</td><tdwidth="68">19</td><tdwidth="68">20</td><tdwidth="68">21</td><tdwidth="68">22</td><tdwidth="39">23</td>

</tr>.问卷调查的设计与实现(查看问卷调查结果)还用说吗？以下是采用do…loop语句进行循环输出数据库表单中的内容<%dountilrs.eof%><tr>

<td><%=rs("user_name")%></td><td><%=rs("user_sex")%></td><td><%=rs("user_job")%></td><td><%=rs("user_tel")%></td><td><%=rs("user_id")%></td><td><%=rs("user_add")%></td><td><%=rs("answer