数据库课程设计-教务辅助管理系统的设计与实现(编辑修改稿)

数据库课程设计-教务辅助管理系统的设计与实现(编辑修改稿)内容摘要：

seridamp。 39。 Set rs=(strsql) If pswd=rs(spin) Then Session(stuid)=userid Else 密码错误 End If ElseIf (D1)=教师 Then strsql=Select * From tea Where tno=39。 amp。 useridamp。 39。 Set rs=(strsql) If pswd=rs(tpin) Then Session(teaid)=userid Else 密码错误 End If ElseIf (D1)=教务管理员 Then strsql=Select * From adm Where adm=39。 amp。 useridamp。 39。 Set rs=(strsql) If pswd=rs(apin) Then Session(admid)=userid Else 密码错误 End If Else Session(stuid)= Session(teaid)= Session(admid)= End If % 二、 学生用户界面 （一）实现选课 % Option Explicit % % =True % % If Session(stuid)= Then 请先登录 Else Dim stuid,oid stuid=Session(stuid) oid=(T1) Dim db Set db=() jiaowu Dim strsql,rs strsql=Insert Into score(o,sno) Values(39。 amp。 oidamp。 39。 ,39。 amp。 stuidamp。 39。 ) Set rs=(strsql) End If Set db=Nothing % （二）显示课表 % Option Explicit % % =True % % If Session(stuid)= Then 请先登录 Else Dim db Set db=() jiaowu Dim strsql,rs strsql=Select Distinct , From cou Set rs=(strsql) End if % div align=center table border=1 width=80% id=table2 cellpadding=0 tr td align=center课程编号 /td td align=center课程名称 /td td align=center任课教师 /td td align=center上课地点 /td /tr % Do While Not % tr td align=center%=rs(o)%/td td align=center%=rs(ame)%/td td align=center%=rs(tno)%/td td align=center%=rs(room)%/td /tr % Loop % /table /div （三）成绩查询 % Option Explicit % % =True % % If Session(stuid)= Then 请先登录 Else Dim db Set db=() jiaowu Dim rs,strsql strsql=Select * From score Where sno=39。 amp。 Session(stuid)amp。 39。 Set rs=(strsql) End if % tr td align=center height=34学号 /td td align=center height=34课号 /td td align=center height=34成绩 /td /tr % Do While Not % tr td align=center %=rs(sno)%/td td align=center %=rs(o)%/td td align=center %=rs(mark)%/td /tr % Loop % 教师用户界面 实现成绩录入功能 % Option Explicit % % =True % % If Session(teaid)= Then 请先登录 ElseIf (T1) And (T2) And (T3) Then Dim db Set db=() jiaowu Dim strsql,o,sno,mark o=(T1) sno=(T2) mark=(T3) strsql=Update score Set mark=39。 amp。 markamp。 39。 Where o=39。 amp。 oamp。 39。 And sno=39。 amp。 snoamp。 39。 And tno=39。 amp。 Session(teaid)amp。 39。 (strsql) 添加成功 End If % 四、教务管理员登录界面 % Option Explicit % % =True % % If Session(admid)= Then 请先登录 End If % （一）课程信息维护 显示课程信息 % Option Explicit % % =True % % If Session(admid)= Then 请先登录 Else Dim db Set db=() jiaowu Dim strsql,rs strsql=Select * From cou Set rs=(strsql) End if % form method=POST action= table border=0 width=100% id=table8 % Do While Not % tr td align=center height=27%=rs(o)%/td td align=center height=27%=rs(ame)%/td td align=center height=27%=rs(tno)%/td td align=center height=27%=rs(ro。