资源描述
教务管理系统源代码.docx
《教务管理系统源代码.docx》由会员分享，可在线阅读，更多相关《教务管理系统源代码.docx（21页珍藏版）》请在冰点文库上搜索。
教务管理系统源代码
教务管理系统源代码
开发人：
吕双武
01083088
西安交通大学管理学院信管11班
2004-5-25
一、主页登录部分default.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfTrim（request.form（"username"））<>""ANDTrim（request.form（"pswd"））<>""Then
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimuserid,pswd,strsql,rs
userid=Request.Form（"username"）
pswd=Request.Form（"pswd"）
EndIf
Ifrequest.form（"D1"）="学生"Then
strsql="Select*FromstuWheresno='"&userid&"'"
Setrs=db.Execute（strsql）
Ifpswd=rs（"spin"）Then
Session（"stuid"）=userid
Response.Redirect"student.asp"
Else
Response.write"密码错误"
EndIf
ElseIfrequest.form（"D1"）="教师"Then
strsql="Select*FromteaWheretno='"&userid&"'"
Setrs=db.Execute（strsql）
Ifpswd=rs（"tpin"）Then
Session（"teaid"）=userid
Response.Redirect"teacher.asp"
Else
Response.write"密码错误"
EndIf
ElseIfrequest.form（"D1"）="教务管理员"Then
strsql="Select*FromadmWhereadm='"&userid&"'"
Setrs=db.Execute（strsql）
Ifpswd=rs（"apin"）Then
Session（"admid"）=userid
Response.Redirect"adm.asp"
Else
Response.write"密码错误"
EndIf
Else
Session（"stuid"）=""
Session（"teaid"）=""
Session（"admid"）=""
EndIf
%>
二、学生用户界面
（一）实现选课student.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"stuid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
Else
Dimstuid,cnoid
stuid=Session（"stuid"）
cnoid=Request.form（"T1"）
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,rs
strsql="InsertIntoscore（cno,sno）Values（'"&cnoid&"','"&stuid&"'）"
Setrs=db.Execute（strsql）
EndIf
db.close
Setdb=Nothing
%>
（二）显示课表cou_list.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"stuid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
Else
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,rs
strsql="SelectDistincto,ame,cou.tno,cou.roomFromcou"
Setrs=db.Execute（strsql）
Endif
%>
课程编号课程名称
任课教师
上课地点
<%
DoWhileNotrs.Eof
%>
<%=rs（"cno"）%><%=rs（"cname"）%>
<%=rs（"tno"）%>
<%=rs（"room"）%>
<%
rs.MoveNext
Loop
%>
（三）成绩查询mark.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"stuid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
Else
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimrs,strsql
strsql="Select*FromscoreWheresno='"&Session（"stuid"）&"'"
Setrs=db.Execute（strsql）
Endif
%>
学号
课号
成绩
|
<%
DoWhileNotrs.Eof
%>
<%=rs（"sno"）%>
<%=rs（"cno"）%>
<%=rs（"mark"）%>
|
<%
rs.MoveNext
Loop
%>
三、教师用户界面实现成绩录入功能teacher.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"teaid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
ElseIfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""Then
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,cno,sno,mark
cno=Request.Form（"T1"）
sno=Request.Form（"T2"）
mark=Request.Form（"T3"）
strsql="UpdatescoreSetmark='"&mark&"'Wherecno='"&cno&"'Andsno='"&sno&"'Andtno='"&Session（"teaid"）&"'"
db.Execute（strsql）
Response.Write"添加成功"
EndIf
%>
四、教务管理员登录界面adm.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
EndIf
%>
（一）课程信息维护
1、显示课程信息adm_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
Else
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,rs
strsql="Select*Fromcou"
Setrs=db.Execute（strsql）
Endif
%>
<%
DoWhileNotrs.Eof
%>
<%=rs（"cno"）%>
<%=rs（"cname"）%>
<%=rs（"tno"）%>
<%=rs（"room"）%>
cno=<%=rs（"cno"）%>">修改
cno=<%=rs（"cno"）%>">删除
|
<%
rs.MoveNext
Loop
%>
2、修改课程信息update_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.write"请先登录"
Response.Redirect"default.asp"
Else
Dimcno
cno=Request.QueryString（"cno"）
Session（"cno"）=cno
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,rs
strsql="Select*FromcouWherecno='"&cno&"'"
Setrs=db.Execute（strsql）
EndIf
%>
3、修改课程的执行程序update3.asp
<%OptionExplicit%>
<%
Dimcnoid
cnoid=Session（"cno"）
IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""AndRequest.Form（"T5"）<>""Then
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimcno,cname,tno,stime,room,strsql
cno=Request.Form（"T1"）
cname=Request.Form（"T2"）
tno=Request.Form（"T3"）
room=Request.Form（"T5"）
strsql="UpdatecouSetcno='"&cno&"',cname='"&cname&"',tno='"&tno&"',room='"&room&"'Wherecno='"&cnoid&"'"
db.Execute（strsql）
Response.Redirect"adm_cou.asp"
Response.Write"修改成功"
EndIf
%>
4、删除课程的执行程序dele_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.write"请先登录"
Response.Redirect"default.asp"
Else
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,cno
cno=Request.QueryString（"cno"）
strsql="DeleteFromcouWherecno='"&cno&"'"
db.Execute（strsql）
Response.Redirect"adm_cou.asp"
Endif
%>
5、添加课程的执行程序add_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.Redirect"default.asp"
EndIf
IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""AndRequest.Form（"T5"）<>""Then
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,cno,cname,tno,stime,room
cno=Request.Form（"T1"）
cname=Request.Form（"T2"）
tno=Request.Form（"T3"）
room=Request.Form（"T5"）
strsql="InsertIntocou（cno,cname,tno,room）Values（'"&cno&"','"&cname&"','"&tno&"','"&room&"'）"
db.Execute（strsql）
Response.Redirect"add_cou.asp"
Response.write"添加成功"
EndIf
%>
（二）教师信息维护
1、显示教师信息adm_tea.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
Else
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,rs
strsql="Selecttno,tname,ttelFromtea"
Setrs=db.Execute（strsql）
Endif
%>
<%
DoWhileNotrs.Eof
%>
<%=rs（"tno"）%>
<%=rs（"tname"）%>
<%=rs（"ttel"）%>
tno=<%=rs（"tno"）%>">修改
tno=<%=rs（"tno"）%>">删除
|
<%
rs.MoveNext
Loop
%>
2、修改教师信息update_tea
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.write"请先登录"
Response.Redirect"default.asp"
Else
Dimtno
tno=Request.QueryString（"tno"）
Session（"tno"）=tno
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,rs
strsql="Select*FromteaWheretno='"&tno&"'"
Setrs=db.Execute（strsql）
EndIf
%>
3、修改教师信息的执行程序update2.asp
<%OptionExplicit%>
<%
Dimtnoid
tnoid=Session（"tno"）
IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""Then
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimtno,tname,ttel,strsql
tno=Request.Form（"T1"）
tname=Request.Form（"T2"）
ttel=Request.Form（"T3"）
strsql="UpdateteaSettno='"&tno&"',tname='"&tname&"',ttel='"&ttel&"'Wheretno='"&tnoid&"'"
db.Execute（strsql）
Response.Redirect"adm_tea.asp"
Else
Response.Write"请将所有信息填写完整"
Response.Write"重新修改"
EndIf
%>
4、删除教师信息的执行程序dele_tea.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.write"请先登录"
Response.Redirect"default.asp"
Else
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,tno
tno=Request.QueryString（"tno"）
strsql="DeleteFromteaWheretno='"&tno&"'"
db.Execute（strsql）
Response.Redirect"adm_tea.asp"
Endif
%>
5、添加信息教师信息的执行程序add_tea.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession（"admid"）=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
EndIf
IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""Then
Dimdb
Setdb=Server.CreateObject（"ADODB.Connection"）
db.Open"jiaowu"
Dimstrsql,tno,tname,ttel
tno=Request.Form（"T1"）
tname=Request.Form（"T2"）
ttel=Request.Form（"T3"）
strsql="InsertIntotea（tno,tname,ttel）Values（'"&tno&"','"&tname&"','"&ttel&"'）"
db.Execute（strsql）
Response.Redirect"add_tea.asp"
Response.write"添加成功"
EndIf
%>
（三）学生信息维护
1、显示学生信息adm_stu.asp
<%OptionExplicit%>
升级会员 