系统建设详细设计1.数据库设计管理员用户表信息：字段名称类型大小字段描述管理员 ID自动编号长整型管理员身份识别管理员名称文本50管理员登陆名称密码文本50管理员登陆的密码身份文本50有别于学生登陆界面学生用户表：字段名称类型大小字段描述学生 ID自动编号长整型学生学号学生名称文本50学生名称密码文本50学生登陆的密码身份文本50有别于管理员登陆界面学生信息表：字段名称类型大小字段描述学生 ID自动编号长整型学生学号学生名称文本50学生名称电子邮箱文本50学生的电子邮箱备注//学生的其他信息性别文本50性别入学时间文本50学生入学的时间班级文本50所在班级专业文本50所学专业2系统程序文件设计与编写与数据库连接的代码：<% db="message.mdb"set Conn=server.createobject("adodb.Connection")conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)%>登陆界面代码：代码为：<!--#include file="conn.inc" --><%if request("Submit")<>"" thenset rs=server.createobject("adodb.recordset")sql="SELECT username,password from users where username='"&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=admin"elsemsg=" 错误：密码不正确 "end ifend ifrs.closeset rs=nothingConn.closeSet conn = Nothingend if%><html><head><title> 管理员 </title><script language="JavaScript" type="text/JavaScript"> <!--function MM_jumpMenu(targ,selObj,restore){ //v3.0eval(targ+".location='"+selObj.options[selObj.selectedIndex].v alue+"'");if (restore) selObj.selectedIndex=0;}//--></script><LINK href="style.css" rel=Stylesheet type=text/css></head><center><span class="style1”>学生信息管理系统</span></center></td></tr><tr><td colspan="2"><center>管理员：<input name="username" type="text" maxlength="10">密码： <input name="password" type="password" ><input type="submit" name="Submit" value="登录"><input type="reset" name="Submit2" value="重置">用户类型：<select name="menu1" onChange="MM_jumpMenu('parent',this,0)"> <option value="admin_login.asp" selected>管理员</option><option value="student_login.asp">学生</option></select> <br><fontcolor=red><%=msg%></font> </center> </td></tr></table></form></body></html>显示信息：代码为：<!-- #include file=”conn.inc”<%if Session(“admin”)<>true and Session(“student”)<>true then Response.Redirect “student_login.asp”end if%><!doctype html public“- //W3C//DTD HTML 4.0 Transitional//EN”> <html><head><title>学生信息</title><LINK href= ”style.css” rel=Stylesheet type=text/css></style></head><table align=center><tr><td colspan=”2”><center><span class=”style1”>学生信息管理系统 </span></center></td></tr><tr><td colspan= ”5”><a href= ”#”>[<b> 首页 </b>]</a><a href= ”search.asp ”>[查询]</a><a title=”需要管理员权限”href= ”post.asp ” >[ 添加 ]</a><a href= ” admin_login.asp ” >[ 管理]</a><a href= ” logout.asp ” >[ 退出 ]</a></td></tr></table><%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 thentr_color=”#EBEBEB”elsetr_c olor= ”#ffffff”end ifIf rs.eof thenExit ForElseif isNull(Rs(“Dateandtime”)) thenstrDateandtime =“”elsestrDateandtime = Cstr(Rs(“Dateandtime”))end if‘Username,Email,Content,Sex,Dateandtime Response.Write“<tabl e width=50% border=0 align=centercellpadding=0 cellspacing=0 bgcolor=”+ tr_color+“>”Response.Write Response.Write Response.Write “<tr> ”“ <td width=20% nowrap>“<td width=60%姓名： </td> ”class=Tab> ”+Rs(“Username”) +“</td>”‘修改删除链接if us ers =“admin” thenResponse.Write“<td width=20%class=Tab align=right>”+“<a href=post.asp?users=”+ users +“&id= ”+ cstr(Rs(“ID”))+ “><font color=blue>修改</font></a><a href=delete.asp?users=”+ users +“&id= ”+ cstr(Rs(“ID”)) +“><font color=blue> 删除 </font></a> ” + “</td> ” elseResponse.Write “<td width=20% class=Tab></td> ”end ifResponse.Write “</tr> ”Response.Write“<tr>”Response.Write“ <td>性别：</td>”Response.Write“<td colspan=2> ”+ Rs(“Sex”)+“</td> ”Response.Write “</tr> ” Response.Write“<tr> ”Response.Write “<td> 班级：</td> ”Response.Write “<td colspan=2> ”+ Rs(“Class ”) +“</td> ”Response.Write “</tr> ” Response.Write“<tr> ”Response.Write “<td> 专业：</td> ”Response.Write “<td colspan=2> ”+ Rs(“Major ”) +“</td> ”Response.Write “</tr> ”Response.Write “<tr> ”Response.Write“ <td>入学时间：</td>”Response.Write “<td colspan=2> ”+ strDateandtime+“</td> ”Response.Write “</tr> ”Response.Write “<tr> ”Response.Write“ <td>评语：</td>”Response.Write “<td colspan=2> ”+ Rs(“Content ”) +“</td> ”Response.Write “</tr> ” Response.Write“<tr> ” Response.Write “ <td>E-mail ：</td> ”Response.Write “<td colspan=2> ”+ Rs(“Email ”) +“</td> ”Response.Write “</tr> ”Response.Write “</table> ”Response.Write “<table border=0 align=center> ”‘ifusers = “admin” then‘ Response.Write “<tr> ”tr_color+‘Response.Write“<td“><a href=delete.asp?users=align=right”+usersbgcolor= ”+“&id=”++cstr(Rs(“ID”)) +“><font color=red>删除 </font></a></td>”‘ Response.Writ e “</tr> ”‘ end ifResponse.Write “<tr> ”Response.Write“<td height=1></td>”Response.Write“</tr>”Response.Write“</table>”rs.MoveNextEnd IfNextend ifif rs.recordcount > 0 then<tr><td>共有<%=rs.recordcount%>条学生信息 <%=rs.pagesize%>条/ 页 共 <%=rs.pagecount%>页</td> <td align= ”right ” class= ”Tab”>分页：<%for i=1 to rs.pagecountif pageno <> I thenusers +Response.Write“&pageno=” + cstr(i) +“<A href=index.asp?users=“>”&i&”</a> ””+ elseResponse.Writ e “<b>” & I &“</b> ”end ifnext%></td> </tr></table>Else<tr><td><marquee> 目前，没有任何学生信息！</marquee></td> </tr></table>End if<%rs.closeset rs=nothingConn.closeSet conn = Nothing%></body></html>4、查询信息页面显示：代码为：<!--#include file="conn.inc" --><%if Session("admin")<>true and Session("student")<>true then Response.Redirect "student_login.asp"end if%>if studentid <>0 thensql="SELECT * from liuyan where ID="&studentidset rs=server.createobject("adodb.recordset")rs.open sql,conn,1,3<%rs.closeset rs=nothingConn.closeSet conn = Nothingend if%>。