资源预览内容
第1页 / 共10页
第2页 / 共10页
第3页 / 共10页
第4页 / 共10页
第5页 / 共10页
第6页 / 共10页
第7页 / 共10页
第8页 / 共10页
第9页 / 共10页
第10页 / 共10页
亲,该文档总共10页全部预览完了,如果喜欢就下载吧!
资源描述
系统建设详细设计1.数据库设计管理员用户表信息:字段名称 类 型 大 小 字段描述管理员 ID 自动编号 长整型 管理员身份识别管理员名称 文本 50 管理员登陆名称密码 文本 50 管理员登陆的密码身份 文本 50 有别于学生登陆界面学生用户表:字段名称 类 型 大 小 字段描述学生 ID 自动编号 长整型 学生学号学生名称 文本 50 学生名称密码 文本 50 学生登陆的密码身份 文本 50 有别于管理员登陆界面学生信息表:字段名称 类 型 大 小 字段描述学生 ID 自动编号 长整型 学生学号学生名称 文本 50 学生名称电子邮箱 文本 50 学生的电子邮箱备注 / / 学生的其他信息性别 文本 50 性别入学时间 文本 50 学生入学的时间班级 文本 50 所在班级专业 文本 50 所学专业2 系统程序文件设计与编写与数据库连接的代码:登陆界面代码:代码为: thenset rs=server.createobject(adodb.recordset) sql=SELECT username,password from users where username=&request(username)&rs.open sql,conn,1,3if rs.bof and rs.eof thenmsg=错误:用户名不存在elseif rs(password)=request(password) thenSession(admin)=trueresponse.redirect index.asp?users=adminelsemsg=错误:密码不正确end ifend ifrs.closeset rs=nothingConn.closeSet conn = Nothingend if%管理员学生信息管理系统管理员:密码:用户类型:管理员学生显示信息:代码为:true and Session(“student”)true then Response.Redirect “student_login.asp”end if%学生信息学生信息管理系统首页查询添加管理退出”Response.Write “”Response.Write “姓名:”Response.Write “” + Rs(“Username”) + “”修改 删除 链接if users = “admin” thenResponse.Write “” + “修改 删除” + “”elseResponse.Write “”end ifResponse.Write “”Response.Write “”Response.Write “性别:”Response.Write “” + Rs(“Sex”) + “”Response.Write “”Response.Write “”Response.Write “班级:”Response.Write “” + Rs(“Class”) + “”Response.Write “”Response.Write “”Response.Write “专业:”Response.Write “” + Rs(“Major”) + “”Response.Write “”Response.Write “”Response.Write “入学时间:”Response.Write “” + strDateandtime + “”Response.Write “”Response.Write “”Response.Write “评语:”Response.Write “” + Rs(“Content”) + “”Response.Write “”Response.Write “”Response.Write “E-mail:”Response.Write “” + Rs(“Email”) + “”Response.Write “”Response.Write “”Response.Write “”if users = “admin” then Response.Write “” Response.Write “删除” Response.Write “”end ifResponse.Write “”Response.Write “”Response.Write “”Response.Write “”rs.MoveNext End If Nextend ifif rs.recordcount 0 then共有条学生信息条/页共页分页:I thenResponse.Write “”elseResponse.Write “” ”end ifnext%Else目前,没有任何学生信息! End if4、查询信息页面显示:代码为:true and Session(student)true then Response.Redirect student_login.aspend if%if studentid 0 thensql=SELECT * from liuyan where ID=&studentidset rs=server.createobject(adodb.recordset)rs.open sql,conn,1,3
收藏 下载该资源
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号