教務(wù)管理系統(tǒng)答辯

教務(wù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

（ASP）

期末答辯小組成員：

韓耀輝何秋芳楊毅李智夏楊梅系統(tǒng)結(jié)構(gòu)說明教務(wù)動(dòng)態(tài)管理規(guī)定公共下載用戶登錄校歷作息時(shí)間管理人員問卷調(diào)查教學(xué)安排首頁網(wǎng)絡(luò)教務(wù)管理系統(tǒng)學(xué)科建設(shè)登陸成功門戶維護(hù)員管理員教師學(xué)生.用戶功能模塊建設(shè)管理員學(xué)生網(wǎng)上選課添加學(xué)生信息管理學(xué)生信息添加教師信息管理教師信息添加課程信息管理課程信息密碼修改查看用戶注冊(cè)信息個(gè)人信息

查看個(gè)人基本信息修改個(gè)人基本信息網(wǎng)上選課

查看所教課程修改課程得分成績錄入

查看學(xué)生成績錄入學(xué)生成績修改學(xué)生成績網(wǎng)上評(píng)教密碼修改個(gè)人學(xué)籍信息個(gè)人基本信息修改基本信息網(wǎng)上選課

查詢課程列表選取課程查看成績網(wǎng)上評(píng)教

提交問卷調(diào)查表提交教學(xué)評(píng)價(jià)表密碼修改教師.下面對(duì)各功能模塊作具體講解.登錄模塊的設(shè)計(jì)與實(shí)現(xiàn).登陸程序的實(shí)現(xiàn)（登陸流程控制）登陸程序流程確認(rèn)失敗輸出“error”登陸查詢系統(tǒng)確認(rèn)身份是否成功確認(rèn)成功選擇用戶身份輸入用戶口令進(jìn)入后用戶自行操作根據(jù)不同用戶動(dòng)態(tài)生成查詢結(jié)果.登陸程序的實(shí)現(xiàn)（試用賬號(hào)）管理員用戶賬號(hào)：hanyaohui密碼：123教師用戶賬號(hào)1：bbb密碼：123賬號(hào)2：jiaoshi密碼：123學(xué)生用戶賬號(hào)1：lizhi密碼：123賬號(hào)2：yangyi密碼：123賬號(hào)3：heqiufang密碼：123.登陸程序的實(shí)現(xiàn)下面是連接數(shù)據(jù)庫代碼段<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%><%setconn=server.createobject("adodb.connection")conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("..\DATA_Base\JWmanager.mdb").登陸程序的實(shí)現(xiàn)<% 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").登陸程序的實(shí)現(xiàn)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%>.登陸程序的實(shí)現(xiàn)（數(shù)據(jù)庫的設(shè)計(jì)）.登陸成功后動(dòng)態(tài)生成的界面.密碼修改程序設(shè)計(jì)與實(shí)現(xiàn).密碼修改程序設(shè)計(jì)與實(shí)現(xiàn)（代碼段）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.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn).網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員添加學(xué)生信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員管理學(xué)生信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員管理學(xué)生信息）代碼段<%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 '添加學(xué)生信息 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("學(xué)號(hào)已經(jīng)被注冊(cè)！") 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 '修改學(xué)生信息 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("學(xué)號(hào)已經(jīng)被注冊(cè)！") 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("錯(cuò)誤，沒有需要?jiǎng)h除學(xué)生的信息！") else sql="delete*fromStudent_InformationwhereStudent_ID="&id conn.execute(sql) response.write("刪除成功") endifendif%>.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員管添加教師信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員管理教師信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員管理教師信息）<%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("教師編號(hào)已近被注冊(cè)！") 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("教師編號(hào)已經(jīng)被注冊(cè)") 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("錯(cuò)誤，沒有此教師的信息") else sql="delete*fromTeacher_InformationwhereTeacher_ID="&id conn.execute(sql) response.Write("刪除成功") endifendif%>.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員添加課程信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（管理員管理課程信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師查詢所教課程信息）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師查詢所教課程信息）<body><tablewidth="100%"border="0"><tr><tdcolspan="5">所教課程</td></tr><tr><td>課程編號(hào)</td><td>課程名稱</td><td>上課時(shí)間</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">詳細(xì)</a></td></tr><% rs.movenextloop%></table></body>.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師修改課程得分）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師修改課程得分）<%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("未找到學(xué)號(hào)或者課程編號(hào)，請(qǐng)查閱后再填寫") else tid=getTIDbyTNO(session("tea")) iftid=""then response.Write("您不能訪問此頁，或者已經(jīng)登陸已經(jīng)過期") else setrsc=server.CreateObject("adodb.recordset") sql="select*fromcoursewherecourseid="&cid&"andteacherid="&tid rsc.opensql,conn,1,1 ifrsc.bofandrsc.eofthen response.Write("您沒有權(quán)限修改此課程得分，請(qǐng)查閱后再填寫") 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 '錯(cuò)誤 response.Write("學(xué)生沒有選修此課程程，請(qǐng)檢查學(xué)號(hào)或者課程編號(hào)") else '修改 sql="updatechoosesetmark="&mark&"wherecourseid="&cid&"andstudent_id="&sid conn.execute(sql) response.Write("修改成功") endif endif endif endifendif%>.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（學(xué)生查詢課程列表）.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（學(xué)生查詢課程列表）<%dimrs,rsc,sqldimStudent_Xuehao%><tablewidth="100%"border="0"><tr><tdcolspan="5">所有課程</td></tr><tr><td>課程編號(hào)</td><td>課程名稱</td><td>上課時(shí)間</td><td>任課教師</td><td>備注</td></tr><%

setrsc=server.CreateObject("adodb.recordset") '根據(jù)課程ID查詢課程詳細(xì)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>.網(wǎng)上選課模塊的設(shè)計(jì)與實(shí)現(xiàn)（學(xué)生選擇課程）.成績管理模塊的設(shè)計(jì)與實(shí)現(xiàn).成績管理模塊的設(shè)計(jì)與實(shí)現(xiàn)（學(xué)生查詢成績）.成績管理模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師查看學(xué)生成績）.成績管理模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師輸入學(xué)生成績）.成績管理模塊的設(shè)計(jì)與實(shí)現(xiàn)（教師修改學(xué)生成績）.查看用戶注冊(cè)信息設(shè)計(jì)與實(shí)現(xiàn).查看用戶注冊(cè)信息設(shè)計(jì)與實(shí)現(xiàn)<%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">還沒有任何相關(guān)信息<%elsers.pagesize=20totalPut=rs.recordcount'記錄總數(shù)totalPage=rs.pagecountMaxPerPage=rs.pagesizeifcurrentpage<1thencurrentpage=1endififcurrentpage>totalPagethencurrentpage=totalPageendif.查看用戶注冊(cè)信息設(shè)計(jì)與實(shí)現(xiàn)ifcurrentPage=1thenshowpagesshowContentshowpageselseif(current1)*MaxPerPage<totalPutthenrs.move(current1)*MaxPerPagedimbookmarkbookmark=rs.bookmark'移動(dòng)到開始顯示的記錄位置showpagesshowContentshowpagesendifendifrs.closeendifsetrs=nothingconn.closesetconn=nothingsubshowContentdimidimkk=(totalPut-MaxPerPage*(current1))+1i=0.問卷調(diào)查的設(shè)計(jì)與實(shí)現(xiàn).問卷調(diào)查的設(shè)計(jì)與實(shí)現(xiàn)(查看問卷調(diào)查結(jié)果).問卷調(diào)查的設(shè)計(jì)與實(shí)現(xiàn)(查看問卷調(diào)查結(jié)果)還用說嗎？以下就是連接數(shù)據(jù)庫部分的代碼段了撒<%Dimdb,strConnstrConn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath("/DATA_Base/JWmanager.mdb")Setconn=Server.CreateObject("ADODB.Connection")conn.OpenstrConnresponse.write"數(shù)據(jù)庫連接成功"setrs=Server.CreateObject("ADODB.recordset")sqlstr="select*fromdiaochabiao"rs.opensqlstr,conn%>.問卷調(diào)查的設(shè)計(jì)與實(shí)現(xiàn)(查看問卷調(diào)查結(jié)果)還用說嗎？以下就是創(chuàng)建表單撒，html干的事情<tablewidth="614"border="1"cellspacing="0"><tr>

<tdwidth="56">姓名</td><tdwidth="39">性別</td><tdwidth="69">職業(yè)</td><tdwidth="84">聯(lián)系電話</td><tdwidth="127">身份證</td><tdwidth="199">聯(lián)系地址</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>.問卷調(diào)查的設(shè)計(jì)與實(shí)現(xiàn)(查看問卷調(diào)查結(jié)果)還用說嗎？以下是采用do…loop語句進(jìn)行循環(huán)輸出數(shù)據(jù)庫表單中的內(nèi)容<%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