教务管理系统源代码

《教务管理系统源代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、教务管理系统源代码开发人：吕双武01083088西安交通大学管理学院信管11班2004-5-2514一、主页登录部分default.asp<%OptionExplicit%><%Response.Buffer=True%><%IfTrim(request.form("username"))<>""ANDTrim(request.form("pswd"))<>""ThenDimdbSetdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"Dimuserid,p

2、swd,strsql,rsuserid=Request.Form("username")pswd=Request.Form("pswd")EndIfIfrequest.form("D1")="学生"Thenstrsql="Select*FromstuWheresno='"&userid&"'"Setrs=db.Execute(strsql)Ifpswd=rs("spin")ThenSession("stuid")=useridResponse.Redirect"student.asp"ElseResponse.writ

3、e"密码错误"EndIfElseIfrequest.form("D1")="教师"Thenstrsql="Select*FromteaWheretno='"&userid&"'"Setrs=db.Execute(strsql)Ifpswd=rs("tpin")ThenSession("teaid")=useridResponse.Redirect"teacher.asp"ElseResponse.write"密码错误"EndIfElseIfrequest.form("D1")="教务管理员"Thenstrsql="Se

4、lect*FromadmWhereadm='"&userid&"'"Setrs=db.Execute(strsql)Ifpswd=rs("apin")ThenSession("admid")=useridResponse.Redirect"adm.asp"ElseResponse.write"密码错误"EndIfElseSession("stuid")=""14Session("teaid")=""Session("admid")=""EndIf%>二、学生用户界面（一）实现选课student.asp<%OptionE

5、xplicit%><%Response.Buffer=True%><%IfSession("stuid")=""ThenResponse.Redirect"default.asp"Response.write"请先登录"ElseDimstuid,cnoidstuid=Session("stuid")cnoid=Request.form("T1")DimdbSetdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"Dimstrsql,rsstrsql="Ins

6、ertIntoscore(cno,sno)Values('"&cnoid&"','"&stuid&"')"Setrs=db.Execute(strsql)EndIfdb.closeSetdb=Nothing%>（二）显示课表cou_list.asp<%OptionExplicit%><%Response.Buffer=True%><%IfSession("stuid")=""ThenResponse.Redirect"default.asp"Response.write"请先登录"ElseDimdbSetdb=Serv

7、er.CreateObject("ADODB.Connection")db.Open"jiaowu"Dimstrsql,rsstrsql="SelectDistinctcou.cno,cou.cname,cou.tno,cou.roomFromcou"Setrs=db.Execute(strsql)Endif%>14课程编号

8、>课程名称任课教师上课地点<%DoWhileNotrs.Eof%><%=rs("cno")%>