信管毕业设计-教务管理系统C_源代码.docVIP

教务管理系统源代码 开发人： 西安交通大学管理学院 信管11 班 2004-5-25 一、主页登录部分 default.asp % Option Explicit % % Response.Buffer=True % % 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=Select * From stu Where sno=userid Set rs=db.Execute(strsql) If pswd=rs(spin) Then Session(stuid)=userid Response.Redirectstudent.asp Else Response.write密码错误 End If ElseIf request.form(D1)=教师 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) Then Session(admid)=userid Response.Redirectadm.asp Else Response.write密码错误 End If Else Session(stuid)= Session(teaid)= Session(admid)= End If % 二、学生用户界面 （一）实现选课 student.asp % Option Explicit % % Response.Buffer=True % % If Session(stuid)= Then Response.Redirect default.asp Response.write请先登录 Else Dim stuid,cnoid stuid=Session(stuid) cnoid=Request.form(T1) Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim strsql,rs strsql=Insert Into score(cno,sno) Values(cnoid,stuid) Set rs=db.Execute(strsql) End If db.close Set db=Nothing % （二）显示课表 cou_list.asp % Option Explicit % % Response.Buffer=True % % If Session(stuid)= Then Response.Redirect default.asp Response.write请先登录 Else Dim db Set db=Server.CreateObject(ADODB.Connection) db.Open jiaowu Dim strsql,rs strsql=Select Distinct cou.cno,cou.cname,cou.tno, cou.room From cou Set rs=db.Execute(strsql) End if % div align=cent