资源描述
系统建设详细设计1. 数据库设计管理员用户表信息:字段名称类 型大 小字段描述管理员 ID自动编号长整型管理员身份识别管理员名称文本50管理员登陆名称密码文本50管理员登陆的密码身份文本50有别于学生登陆界面学生用户表:字段名称类 型大 小字段描述学生 ID自动编号长整型学生学号学生名称文本50学生名称密码文本50学生登陆的密码身份文本50有别于管理员登陆界面学生信息表:字段名称类 型大 小字段描述学生 ID自动编号长整型学生学号学生名称文本50学生名称电子邮箱文本50学生的电子邮箱备注/学生的其他信息性别文本50性别入学时间文本50学生入学的时间班级文本50所在班级专业文本50所学专业2 系统程序文件设计与编写与数据库连接的代码:登陆界面代码:代码为:%if request(Submit) thenset rs=server.createobject(adodb.recordset)sql=SELECT username,password from users whereusername=&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%管理员 学生信息管理系统管理员:密码: input type=submit name=Submit value=重置 用户类型:管理员学生 显示信息:代码为:!- #include file=”conn.inc”%if Session(“admin ”)true and Session(“student”)true thenResponse.Redirect“student_login.asp”end if%学生信息学生信息管理系统 首 页 查 询 添 加 管理 退出 %users = Request(“users ”)If request(“ PageNo ” )= ” thenPageNo=1ElsePageNo=int(request(“PageNo ” )End Ifsql= ”SELECT * from liuyan order by ID descset rs=server.createobject( “adodb.recordset rs.open sql,conn,1,3if not(rs.eof and rs.bof) thenrs.Pagesize=3rs.absolutepage=PageNox = 0For x = 1 to rs.Pagesizeif x mod 2 then”)tr_color=else”#EBEBEB ”tr_c olor= ”#ffffff”end ifIf rs.eof thenExit ForElseif isNull(Rs(“Dateandtime”) thenstrDateandtime =“”elsestrDateandtime = Cstr(Rs(“Dateandtime” )end ifUsername,Email,Content,Sex,Dateandtime Response.Write“ ”Response.Write“ ”Response.Write“ 姓名: ”Response.Write“ ”+Rs( “Username ”) +“”修改 删除 链接if us ers = “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 ” thenResponse.Write“”Response.Write“删除” Response.Writ e “ ” end if Response.Write “ ”Response.Write“”Response.Write“ ”Response.Write“ ”rs.MoveNextEnd IfNextend ifif rs.recordcount 0 then共有条学生信息 条/ 页 共 页 分页:%for i=1 to rs.pagecountif pageno I thenResponse.Write“”&i& ” ”elseResponse.Writ e“ ”& I &“ ”end ifnext% Else目前,没有任何学生信息!End if4、查询信息页面显示:代码为:%if Session(admin)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
展开阅读全文