教务管理系统源代码.docx
- 文档编号:24938295
- 上传时间:2023-06-03
- 格式:DOCX
- 页数:18
- 大小:18KB
教务管理系统源代码.docx
《教务管理系统源代码.docx》由会员分享,可在线阅读,更多相关《教务管理系统源代码.docx(18页珍藏版)》请在冰豆网上搜索。
教务管理系统源代码
教务管理系统源代码
开发人:
吕双武
01083088
西安交通大学管理学院信管11班
2004-5-25
一、主页登录部分default.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfTrim(request.form("username"))<>""ANDTrim(request.form("pswd"))<>""ThenDimdb
Setdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"
Dimuserid,pswd,strsql,rsuserid=Request.Form("username")pswd=Request.Form("pswd")
EndIf
Ifrequest.form("D1")="学生"Thenstrsql="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")="教师"Thenstrsql="Select*FromteaWheretno='"&userid&"'"Setrs=db.Execute(strsql)
Ifpswd=rs("tpin")ThenSession("teaid")=useridResponse.Redirect"teacher.asp"
Else
Response.write"密码错误"
EndIf
ElseIfrequest.form("D1")="教务管理员"Thenstrsql="Select*FromadmWhereadm='"&userid&"'"Setrs=db.Execute(strsql)
Ifpswd=rs("apin")ThenSession("admid")=useridResponse.Redirect"adm.asp"
Else
Response.write"密码错误"
EndIf
Else
Session("stuid")=""
Session("teaid")=""
Session("admid")=""
EndIf
%>
二、学生用户界面
1)实现选课student.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession("stuid")=""Then
Response.Redirect"default.asp"
Response.write"请先登录"
Else
Dimstuid,cnoidstuid=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
%>
2)显示课表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.MoveNext
Loop
%>
3)成绩查询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,strsqlstrsql="Select*FromscoreWheresno='"&Session("stuid")&"'"Setrs=db.Execute(strsql)
Endif
%>
学号课号成绩
<%
DoWhileNotrs.Eof
%>
<%rs.MoveNextLoop
%>
三、教师用户界面实现成绩录入功能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)课程信息维护
1、显示课程信息adm_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession("admid")=""ThenResponse.Redirect"default.asp"Response.write"请先登录"
Else
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")
db.Open"jiaowu"
Dimstrsql,rsstrsql="Select*Fromcou"
Setrs=db.Execute(strsql)
Endif
%>
<%
DoWhileNotrs.Eof
%>
修改删除
cno=<%=rs("cno")%>"> cno=<%=rs("cno")%>">
<%
rs.MoveNext
Loop
%>
2、修改课程信息update_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession("admid")=""ThenResponse.write"请先登录"Response.Redirect"default.asp"Else
Dimcnocno=Request.QueryString("cno")Session("cno")=cno
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"
Dimstrsql,rsstrsql="Select*FromcouWherecno='"&cno&"'"Setrs=db.Execute(strsql)
EndIf
%>
3、修改课程的执行程序update3.asp
<%OptionExplicit%>
<%
Dimcnoidcnoid=Session("cno")
Request.Form("T3")<>""
Set
Where
IfRequest.Form("T1")<>""AndRequest.Form("T2")<>""And
AndRequest.Form("T5")<>""Then
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"
Dimcno,cname,tno,stime,room,strsqlcno=Request.Form("T1")cname=Request.Form("T2")tno=Request.Form("T3")room=Request.Form("T5")strsql="Updatecoucno='"&cno&"',cname='"&cname&"',tno='"&tno&"',room='"&room&"'cno='"&cnoid&"'"db.Execute(strsql)
Response.Redirect"adm_cou.asp"Response.Write"修改成功"
EndIf
%>
4、删除课程的执行程序dele_cou.asp
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession("admid")=""ThenResponse.write"请先登录"Response.Redirect"default.asp"
Else
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"
Dimstrsql,cnocno=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")=""ThenResponse.Redirect"default.asp"EndIf
Request.Form("T3")<>""
cou(cno,cname,tno,room)
IfRequest.Form("T1")<>""AndRequest.Form("T2")<>""And
AndRequest.Form("T5")<>""Then
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"
Dimstrsql,cno,cname,tno,stime,roomcno=Request.Form("T1")cname=Request.Form("T2")tno=Request.Form("T3")room=Request.Form("T5")strsql="InsertInto
Values('"&cno&"','"&cname&"','"&tno&"','"&room&"')"db.Execute(strsql)
Response.Redirect"add_cou.asp"Response.write"添加成功"
EndIf%>
(2)教师信息维护
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,rsstrsql="Selecttno,tname,ttelFromtea"
Setrs=db.Execute(strsql)
Endif
%>
<%
DoWhileNotrs.Eof
%>
tno=<%=rs("tno")%>">修改 tno=<%=rs("tno")%>">删除
<%rs.MoveNextLoop%>
2、修改教师信息update_tea
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
IfSession("admid")=""Then
Response.write"请先登录"
Response.Redirect"default.asp"
Else
Dimtnotno=Request.QueryString("tno")
Session("tno")=tno
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")
db.Open"jiaowu"
Dimstrsql,rsstrsql="Select*FromteaWheretno='"&tno&"'"
Setrs=db.Execute(strsql)
EndIf
%>
3、修改教师信息的执行程序update2.asp
<%OptionExplicit%>
<%
Dimtnoidtnoid=Session("tno")
IfRequest.Form("T1")<>""AndRequest.Form("T2")<>""AndRequest.Form("T3")<>""Then
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")
db.Open"jiaowu"
Dimtno,tname,ttel,strsqltno=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")=""ThenResponse.write"请先登录"Response.Redirect"default.asp"
Else
Dimdb
Setdb=Server.CreateObject("ADODB.Connection")
db.Open"jiaowu"
Dimstrsql,tnotno=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,tteltno=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
%>
(3)学生信息维护
1、显示学生信息adm_stu.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,rsstrsql="Selectdistinct
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 教务 管理 系统 源代码