教务管理系统答辩(韩耀辉).ppt

小组成员： 韩耀辉 何秋芳 杨毅 李智 夏杨梅 系统结构说明 用户功能模块建设 下面对各功能模块作具体讲解 登录模块的设计与实现 登陆程序的实现（登陆流程控制） 登陆程序流程 登陆程序的实现（试用账号） 登陆程序的实现 下面是连接数据库代码段 %@LANGUAGE=VBSCRIPT CODEPAGE=65001% % set conn=server.createobject(adodb.connection) conn.open driver={microsoft access driver (*.mdb)};dbq= server.mappath(..\DATA_Base\JWmanager.mdb) 登陆程序的实现 % dim user,pass,types user=request.Form(user) pass=request.Form(pass) types=request.Form(types) if len(user)0 and len(pass)0 and len(types)0 then sql=select * from user_Tab where userNum=user and userPassword=pass and userType=types set rs=Server.CreateObject(ADODB.recordset) rs.Open sql, conn if rs.EOF then response.Write(error) response.End() else if types=teacher then session(tea)=user session(level)=2 session(id)=rs.fields(userID) session(userNum)=rs.fields(userNum) session(userPassword)=rs(userPassword) response.Redirect(../_teacher/index_teacher.asp) 登陆程序的实现 else if types=student then session(stu)=user session(level)=1 session(number)=rs(userxuehao) session(id)=rs.fields(userID) session(userNum)=rs.fields(userNum) session(userPassword)=rs(userPassword) response.Redirect(../_student/index_student.asp) else if types=master then session(mas)=user session(userNum)=rs.fields(userNum) session(userPassword)=rs(userPassword) response.Redirect(../_master/index_master.asp) else session(gua)=user session(id)=rs.fields(userID) session(userNum)=rs.fields(userNum) session(userPassword)=rs(userPassword) response.Redirect(../_guanliyuan/index_guanliyuan.asp) end if end if end if end if response.End() end if % 登陆程序的实现（数据库的设计） 登陆成功后动态生成的界面 密码修改程序设计与实现 密码修改程序设计与实现（代码段） getoldpwd=Request.form(oldpwd) sql=select * from user_Tab where userID=se