数据库设计以及源代码.docx

数据库设计以及源代码.docx

《数据库设计以及源代码.docx》由会员分享，可在线阅读，更多相关《数据库设计以及源代码.docx（10页珍藏版）》请在冰豆网上搜索。

数据库设计以及源代码

系统建设详细设计

1、数据库设计

管理员用户表信息:

字段名称

类型

大小

字段描述

管理员ID

自动编号

长整型

管理员身份识别

管理员名称

文本

50

管理员登陆名称

密码

文本

50

管理员登陆的密码

身份

文本

50

有别于学生登陆界面

学生用户表:

字段名称

类型

大小

字段描述

学生ID

自动编号

长整型

学生学号

学生名称

文本

50

学生名称

密码

文本

50

学生登陆的密码

身份

文本

50

有别于管理员登陆界面

学生信息表:

字段名称

类型

大小

字段描述

学生ID

自动编号

长整型

学生学号

学生名称

文本

50

学生名称

电子邮箱

文本

50

学生的电子邮箱

备注

/

/

学生的其她信息

性别

文本

50

性别

入学时间

文本

50

学生入学的时间

班级

文本

50

所在班级

专业

文本

50

所学专业

2系统程序文件设计与编写

与数据库连接的代码:

<%

db="message、mdb"

setConn=server、createobject（"adodb、Connection"）

conn、open"Provider=Microsoft、Jet、OLEDB、4、0;DataSource="&server、mappath（db）

%>

登陆界面代码:

代码为:

--#includefile="conn、inc"-->

<%

ifrequest（"Submit"）<>""then

setrs=server、createobject（"adodb、recordset"）

sql="SELECTusername,passwordfromuserswhereusername='"&request（"username"）&"'"

rs、opensql,conn,1,3

ifrs、bofandrs、eofthen

msg="错误:

用户名不存在"

else

ifrs（"password"）=request（"password"）then

Session（"admin"）=true

response、redirect"index、asp?

users=admin"

else

msg="错误:

密码不正确"

endif

endif

rs、close

setrs=nothing

Conn、close

Setconn=Nothing

endif%>

--functionMM_jumpMenu（targ,selObj,restore）{//v3、0

eval（targ+"、location='"+selObj、options[selObj、selectedIndex]、value+"'"）;

if（restore）selObj、selectedIndex=0;}

//-->

显示信息:

代码为:

--#includefile=”conn、inc”→

<%ifSession（“admin”）<>trueandSession（“student”）<>truethen

Response、Redirect“student_login、asp”

endif%>

doctypehtmlpublic“-//W3C//DTDHTML4、0Transitional//EN”>

[首页][查询][添加][管理][退出]

<%users=Request（“users”）

Ifrequest（“PageNo”）=””then

PageNo=1

Else

PageNo=int（request（“PageNo”））

EndIf

sql=”SELECT*fromliuyanorderbyIDdesc”

setrs=server、createobject（“adodb、recordset”）

rs、opensql,conn,1,3

ifnot（rs、eofandrs、bof）then

rs、Pagesize=3

rs、absolutepage=PageNo

x=0

Forx=1tors、Pagesize

ifxmod2then

tr_color=”#EBEBEB”

else

tr_color=”#ffffff”

endif

Ifrs、eofthen

ExitFor

Else

ifisNull（Rs（“Dateandtime”））then

strDateandtime=“”

else

strDateandtime=Cstr（Rs（“Dateandtime”））

endif

‘Username,Email,Content,Sex,Dateandtime

Response、Write“”

Response、Write“”

Response、Write“姓名:

”

Response、Write“”+Rs（“Username”）+“”

‘修改删除链接

ifusers=“admin”then

Response、Write“”+“

users=”+users+“&id=”+cstr（Rs（“ID”））+“>修改

users=”+users+“&id=”+cstr（Rs（“ID”））+“>删除”+“”

else

Response、Write“”

endif

Response、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“”

‘ifusers=“admin”then

‘Response、Write“”

‘Response、Write“

users=”+users+“&id=”+cstr（Rs（“ID”））+“>删除”

‘Response、Write“”‘endif

Response、Write“”

Response、Write“”

Response、Write“”

Response、Write“”

rs、MoveNext

EndIf

Next

endif

ifrs、recordcount>0then

共有<%=rs、recordcount%>条学生信息 <%=rs、pagesize%>条/页 共<%=rs、pagecount%>页

分页:

<%fori=1tors、pagecount

ifpageno<>Ithen

Response、Write“

users=”+users+“&pageno=”+cstr（i）+“>”&i&” ”

else

Response、Write“”&I&“ ”endif

next%>

Else

目前,没有任何学生信息！

Endif

<%rs、close

setrs=nothing

Conn、close

Setconn=Nothing%>

4、查询信息页面显示:

代码为:

--#includefile="conn、inc"-->

<%ifSession（"admin"）<>trueandSession（"student"）<>truethen

Response、Redirect"student_login、asp"

endif%>

ifstudentid<>0then

sql="SELECT*fromliuyanwhereID="&studentid

setrs=server、createobject（"adodb、recordset"）

rs、opensql,conn,1,3

<%

rs、close

setrs=nothing

Conn、close

Setconn=Nothing

endif

%>