2022年2022年教务管理系统源代码 .pdf

《2022年2022年教务管理系统源代码 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年教务管理系统源代码 .pdf（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 教务管理系统源代码2004-5-25 一、主页登录部分default.asp % If Trim(request.form(username) AND Trim(request.form(pswd) Then Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim userid,pswd,strsql,rs userid=Request.Form(username) pswd=Request.Form(pswd) End If If request.form(D1)=学生 Then strsql=Sele

2、ct * From stu Where sno=&userid& Set rs=db.Execute(strsql) If pswd=rs(spin) Then Session(stuid)=userid 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 14 页 - - - - - - - - - 2 Response.Redirectstudent.asp Else Response.write密码错误 End If ElseIf request.form(D1)=教师

3、 Then strsql=Select * From tea Where tno=&userid& Set rs=db.Execute(strsql) If pswd=rs(tpin) Then Session(teaid)=userid Response.Redirectteacher.asp Else Response.write密码错误 End If ElseIf request.form(D1)=教务管理员 Then strsql=Select * From adm Where adm=&userid& Set rs=db.Execute(strsql) If pswd=rs(apin

4、) Then Session(admid)=userid Response.Redirectadm.asp Else Response.write密码错误 End If Else Session(stuid)= Session(teaid)= Session(admid)= End If % 二、学生用户界面（一）实现选课student.asp （二）显示课表cou_list.asp 课程编号 课程名称 任课教师 上课地点 （三）成绩查询mark.asp 学号 课号 成绩 三、教师用户界面实现成绩录入功能teacher.asp % If Session(teaid)= Then 名师资料总结

5、- - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 14 页 - - - - - - - - - 5 Response.Redirect default.asp Response.write请先登录 ElseIf Request.Form(T1) And Request.Form(T2) And Request.Form(T3) Then Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim strsq

6、l,cno,sno,mark cno=Request.Form(T1) sno=Request.Form(T2) mark=Request.Form(T3) strsql=Update score Set mark=&mark&Where cno=&cno&And sno=&sno&And tno=&Session(teaid)& db.Execute(strsql) Response.Write 添加成功 End If % 四、教务管理员登录界面adm.asp （一）课程信息维护1、显示课程信息adm_cou.asp a href=update_cou.asp?cno=修改 a href=d

7、ele_cou.asp?cno=删除 2、修改课程信息update_cou.asp 3、修改课程的执行程序update3.asp 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 14 页 - - - - - - - - - 7 % Dim cnoid cnoid=Session(cno) If Request.Form(T1) And Request.Form(T2) And Request.Form(T3) And Request.Form(T5) Then Dim d

8、b Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim cno,cname,tno,stime,room,strsql cno=Request.Form(T1) cname=Request.Form(T2) tno=Request.Form(T3) room=Request.Form(T5) strsql=Update cou Set cno=&cno&,cname=&cname&,tno=&tno&,room=&room& Where cno=&cnoid& db.Execute(strsql) Response.R

9、edirect adm_cou.asp Response.Write修改成功 End If % 4、删除课程的执行程序dele_cou.asp 5、添加课程的执行程序add_cou.asp % If Session(admid)= Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 14 页 - - - - - - - - - 8 Response.Redirect default.asp End If If Request.Form(T1) And Request

10、.Form(T2) And Request.Form(T3) And Request.Form(T5) Then Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim strsql,cno,cname,tno,stime,room cno=Request.Form(T1) cname=Request.Form(T2) tno=Request.Form(T3) room=Request.Form(T5) strsql=Insert Into cou(cno,cname,tno,room) Values(&cn

11、o&,&cname&,&tno&,&room&) db.Execute(strsql) Response.Redirectadd_cou.asp Response.write添加成功 End If % （二）教师信息维护1、显示教师信息adm_tea.asp 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 14 页 - - - - - - - - - 9 a href=update_tea.asp?tno=修 改 a href=dele_tea.asp?tno=删除 2、

12、修改教师信息update_tea 3、修改教师信息的执行程序update2.asp % Dim tnoid tnoid=Session(tno) If Request.Form(T1) And Request.Form(T2) And Request.Form(T3) Then Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim tno,tname,ttel,strsql tno=Request.Form(T1) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - -

13、 - - - - - 名师精心整理 - - - - - - - 第 9 页，共 14 页 - - - - - - - - - 10 tname=Request.Form(T2) ttel=Request.Form(T3) strsql=Update tea Set tno=&tno&,tname=&tname&,ttel=&ttel&Where tno=&tnoid& db.Execute(strsql) Response.Redirectadm_tea.asp Else Response.Write请将所有信息填写完整 Response.Write重新修改 End If % 4、删除教师信息

14、的执行程序dele_tea.asp 5、添加信息教师信息的执行程序add_tea.asp % If Session(admid)= Then Response.Redirect default.asp Response.write请先登录 End If If Request.Form(T1) And Request.Form(T2) And Request.Form(T3) Then Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - -

15、- - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 14 页 - - - - - - - - - 11 Dim strsql,tno,tname,ttel tno=Request.Form(T1) tname=Request.Form(T2) ttel=Request.Form(T3) strsql=Insert Into tea(tno,tname,ttel) Values(&tno&,&tname&,&ttel&) db.Execute(strsql) Response.Redirectadd_tea.asp Response.write添加成功

16、 End If % （三）学生信息维护1、显示学生信息adm_stu.asp a href=update_stu.asp?sno=修改 a href=dele_stu.asp?sno=删除 2、修改学生信息update_stu.asp 3、修改学生信息的执行程序update1.asp % Dim snoid snoid=Session(sno) If Request.Form(T1) And Request.Form(T2) And Request.Form(T3) And Request.Form(T4) Then Dim db Set db=Server.CreateObject(ADOD

17、B.Connection) db.Open jiaowu Dim sno,sname,ssex,sclass,strsql sno=Request.Form(T1) sname=Request.Form(T2) ssex=Request.Form(T3) sclass=Request.Form(T4) strsql=Update stu Set sno=&sno&,sname=&sname&,ssex=&ssex&,class=&sclass&Where sno=&snoid& 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名

18、师精心整理 - - - - - - - 第 12 页，共 14 页 - - - - - - - - - 13 db.Execute(strsql) Response.Redirectadm_stu.asp Else Response.Write请将所有信息填写完整 Response.Write重新修改 End If % 4、删除学生信息的执行程序dele_stu.asp 5、添加学生信息的执行程序add_stu.asp % If Session(admid)= Then Response.Redirect default.asp End If If Request.Form(T1) And R

19、equest.Form(T2) And Request.Form(T3) And Request.Form(T4) Then Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim strsql,sno,sname,ssex,sclass sno=Request.Form(T1) sname=Request.Form(T2) ssex=Request.Form(T3) sclass=Request.Form(T4) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - -

20、- - - - - 名师精心整理 - - - - - - - 第 13 页，共 14 页 - - - - - - - - - 14 strsql=Insert Into stu(sno,sname,ssex,class) Values(&sno&,&sname&,&ssex&,&sclass&) db.Execute(strsql) Response.Redirectadd_stu.asp Response.write添加成功 End If % 说明部分：1、 由于在该教务管理系统中加入了较为复杂的XML 代码， 所以在这里只给出了主要的与系统功能相关的ASP 文件中的 VBScript 代码。2、 本系统的数据库名为jiaowu.mdb 内有五张表：stu, tea, cou, score, adm ,教务管理员对学生、教师信息进行添加时，系统分别根据学生学号、教师编号自动生成密码，米纳生成函数表达式为：spin=sno，tpin=tno 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 14 页 - - - - - - - - -