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

上传人:b****9 文档编号:25254894 上传时间:2023-06-06 格式:DOCX 页数:22 大小:145.35KB
下载 相关 举报
数据库设计以与源代码.docx_第1页
第1页 / 共22页
数据库设计以与源代码.docx_第2页
第2页 / 共22页
数据库设计以与源代码.docx_第3页
第3页 / 共22页
数据库设计以与源代码.docx_第4页
第4页 / 共22页
数据库设计以与源代码.docx_第5页
第5页 / 共22页
点击查看更多>>
下载资源
资源描述

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

《数据库设计以与源代码.docx》由会员分享,可在线阅读,更多相关《数据库设计以与源代码.docx(22页珍藏版)》请在冰豆网上搜索。

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

数据库设计以与源代码

 

系统建设详细设计

 

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;Data

Source="&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.0eval(targ+".location='"+selObj.options[selObj.selectedIndex].va

lue+"'");

if(restore)selObj.selectedIndex=0;}

//-->

 

学生信息管理系统

管理员:

密码:

用户类型:

管理员

学生


<%=msg%>

显示信息:

 

代码为:

--#includefile=”conn.inc”

<%ifSession(“admin”)<>trueandSession(“student”)<>truethen

Response.Redirect“student_login.asp”

endif%>

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

学生信息

学生

信息管理系统

[首页]

href=”search.asp”>[查询]

 

限”href=”post.asp”>[添加][管

理][退出]

<%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,DateandtimeResponse.Write“

cellpadding=0cellspacing=0bgcolor=

+tr_color+

“>”

Response.Write

Response.Write

Response.Write

“”

 

姓名:

class=Tab>”

 

+

Rs(“Username”)+“”

‘修改删除链接

ifusers=“admin”then

Response.Write

width=20%

class=Tab

align=right>

+

users=

+users+

“&id=”

+

cstr(Rs(

“ID”))

+“>

color=blue>

修改

href=delete.asp?

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

 

tr_color+

‘Response.Write“

“>

users=

align=right

”+users

bgcolor=”

+“&id=”

+

+

cstr(Rs(

“ID”))+

“>

删除

‘Response.Write“”‘endifResponse.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

 

users+

Response.Write

“&pageno=”+cstr(i)+

users=

“>”&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")<>truethenResponse.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

%>

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试认证 > 从业资格考试

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1