数据库设计以及源代码Word格式文档下载.docx
《数据库设计以及源代码Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《数据库设计以及源代码Word格式文档下载.docx（10页珍藏版）》请在冰豆网上搜索。
学生的其他信息
性别
入学时间
学生入学的时间
班级
所在班级
专业
所学专业
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（"
）then
Session（"
admin"
）=true
response.redirect"
index.asp?
users=admin"
密码不正确"
endif
rs.close
setrs=nothing
Conn.close
Setconn=Nothing
endif%>
html>
head>
<
title>
管理员<
/title>
scriptlanguage="
JavaScript"
type="
text/JavaScript"
--functionMM_jumpMenu（targ,selObj,restore）{//v3.0
eval（targ+"
.location='
+selObj.options[selObj.selectedIndex].value+"
）;
if（restore）selObj.selectedIndex=0;
}
//-->
/script>
LINKhref="
style.css"
rel=Stylesheettype=text/css>
/head>
center>
spanclass="
style1”>
学生信息管理系统<
/span>
/center>
/td>
/tr>
tr>
tdcolspan="
2"
<
管理员：
inputname="
text"
maxlength="
10"
密码：
>
inputtype="
submit"
name="
value="
登录"
reset"
Submit2"
重置"
用户类型：
selectname="
menu1"
onChange="
MM_jumpMenu（'
parent'
this,0）"
optionvalue="
admin_login.asp"
selected>
/option>
student_login.asp"
学生<
/select>
br>
fontcolor=red>
%=msg%>
/font>
/table>
/form>
/body>
/html>
显示信息：
--#includefile=”conn.inc”
%ifSession（“admin”）<
trueandSession（“student”）<
truethen
Response.Redirect“student_login.asp”
endif%>
doctypehtmlpublic“-//W3C//DTDHTML4.0Transitional//EN”>
学生信息<
LINKhref=”style.css”rel=Stylesheettype=text/css>
/style>
tablealign=center>
tdcolspan=”2”>
spanclass=”style1”>
tdcolspan=”5”>
ahref=”#”>
[<
b>
首页<
/b>
]<
/a>
ahref=”search.asp”>
[查询]<
atitle=”需要管理员权限”href=”post.asp”>
[添加]<
ahref=”admin_login.asp”>
[管理]<
ahref=”logout.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,Dateandtime
Response.Write“<
tablewidth=50%border=0align=centercellpadding=0cellspacing=0bgcolor=”+tr_color+“>
”
tdwidth=20%nowrap>
：
tdwidth=60%class=Tab>
”+Rs（“Username”）+“<
‘修改删除
ifusers=“admin”then
Response.Write“<
tdwidth=20%class=Tabalign=right>
”+“<
ahref=post.asp?
users=”+users+“&
id=”+cstr（Rs（“ID”））+“>
fontcolor=blue>
修改<
ahref=delete.asp?
删除<
tdwidth=20%class=Tab>
td>
性别：
tdcolspan=2>
”+Rs（“Sex”）+“<
”Response.Write“<
”
班级：
”+Rs（“Class”）+“<
专业：
”+Rs（“Major”）+“<
入学时间：
”+strDateandtime+“<
评语：
”+Rs（“Content”）+“<
E-mail：
”+Rs（“Email”）+“<
tableborder=0align=center>
‘ifusers=“admin”then
‘Response.Write“<
tdalign=rightbgcolor=”+tr_color+“>
fontcolor=red>
”‘endif
tdheight=1>
rs.MoveNext
EndIf
Next
endif
ifrs.recordcount>
0then
共有<
%=rs.recordcount%>
条学生信息&
nbsp;
%=rs.pagesize%>
条/页&
共<
%=rs.pagecount%>
页<
tdalign=”right”class=”Tab”>
分页：
<
%fori=1tors.pagecount
ifpageno<
Ithen
Response.Write“<
Ahref=index.asp?
pageno=”+cstr（i）+“>
”&
i&
”<
else
”&
I&
“<
”endif
next%>
marquee>
目前，没有任何学生信息！
/marquee>
<
Endif
%rs.close
setrs=nothing
Conn.close
Setconn=Nothing%>
4、查询信息页面显示：
%ifSession（"
trueandSession（"
student"
Response.Redirect"
ifstudentid<
0then
SELECT*fromliuyanwhereID="
studentid
setrs=server.createobject（"
rs.close
Setconn=Nothing
升级会员 