信管毕业设计-教务管理系统c_源代码

《信管毕业设计-教务管理系统c_源代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

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"Di

2、muserid,pswd,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.

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

4、.form("D1")="教务管理员"Thenstrsql="Select*FromadmWhereadm='"&userid&"'"Setrs=db.Execute(strsql)Ifpswd=rs("apin")ThenSession("admid")=useridResponse.Redirect"adm.asp"ElseResponse.write"密码错误"EndIfElseSession("stuid")=""14Session("teaid")=""Session("admid")

5、=""EndIf%>二、学生用户界面（一）实现选课student.asp<%OptionExplicit%><%Response.Buffer=True%><%IfSession("stuid")=""ThenResponse.Redirect"default.asp"Response.write"请先登录"ElseDimstuid,cnoidstuid=Session("stuid")cnoid=Request.form("T1")DimdbSetdb=Server.CreateObject(

6、"ADODB.Connection")db.Open"jiaowu"Dimstrsql,rsstrsql="InsertIntoscore(cno,sno)Values('"&cnoid&"','"&stuid&"')"Setrs=db.Execute(strsql)EndIfdb.closeSetdb=Nothing%>（二）显示课表cou_list.asp<%OptionExplicit%><%Response.Buffer=True%><%IfSession("stuid")=""Then

7、Response.Redirect"default.asp"Response.write"请先登录"ElseDimdbSetdb=Server.CreateObject("ADODB.Connection")db.Open"jiaowu"Dimstrsql,rsstrsql="SelectDistinctcou.cno,cou.cname,cou.tno,cou.roomFromcou"Setrs=db.Execute(strsql)Endif%>14

8、bleborder="1"width="80%"id="table2"cellpadding="0">课程编号课程名称任课教师上课地点<%DoWhileNotrs.Eof%><%=rs("cno")%><%=