《数据库设计以与源代码》由会员分享,可在线阅读,更多相关《数据库设计以与源代码(19页珍藏版)》请在金锄头文库上搜索。
1、系统建设详细设计1. 数据库设计管理员用户表信息:字段名称类 型大 小字段描述管理员 ID自动编号长整型管理员身份识别管理员名称文本50管理员登陆名称密码文本50管理员登陆的密码身份文本50有别于学生登陆界面学生用户表:字段名称类 型大 小字段描述学生 ID自动编号长整型学生学号学生名称文本50学生名称密码文本50学生登陆的密码身份文本50有别于管理员登陆界面学生信息表:字段名称类 型大 小字段描述学生 ID自动编号长整型学生学号学生名称文本50学生名称电子邮箱文本50学生的电子邮箱备注/学生的其他信息性别文本50性别入学时间文本50学生入学的时间班级文本50所在班级专业文本50所学专业2 系
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.r
3、edirect 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“stud
4、ent_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.Pa
5、gesize=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“” + “a href=post.asp?users=” + users +“&id= ” +cstr(Rs( “ID”)+