系统建设详细设计1.数据库设计管理员用户表信息:学生用户表:学生信息表:班级文本50 所在班级专业文本50 所学专业2系统程序文件设计与编写set Conn=server.createobject("adodb.C onn ectio n")"Provider=Microsoft .J et.OLEDB.4.0;DataSource="&server.mappath(db)%>登陆界面代码:代码为:<!--#include file="conn,inc"--> <% if request("Submit")<>"" thenset rs=server.createobject("adodb.recordset")与数据库连接的代码:<% db="message.mdb"conn, ope nsql="SELECT username,password from users where username='"&request("username")&"”'rs.ope n sql,c onn ,1,3if rs.bof and rs.eof the nmsg="错误：用户名不存在"elseif rs("password")=request("password") the nSessio n("admi n")=trueresp on se.redirect "i ndex.asp?users=adm in"elsemsg="错误：密码不正确"end ifend ifrs.closeset rs=no thi ngConn, closeSet conn = Noth ingend if%><html><head><title> 管理员</title><script Ian guage="JavaScript" type="text/JavaScript"><!--fu nction MM_ju mpMe nu(targ,selObj,restore){ //v3.0eval(targ+".locatio n='"+selObj.optio ns[selObj.selectedI ndex].va lue+"”');if (restore) selObj.selected In dex=0;}//--></script><LINK href="style.css" rel=Stylesheet type=text/css>v/head><center><span class="style1 ” > 学生信息管理系统v/spa nx/cen ter></td></tr><tr><td colspa n="2"><ce nter> 管理员：<in put n ame="user name" type="text" maxle ngth="1O">密码：<input name="password" type="password" ><in put type="submit" n ame="Submit" value=" 登录"><in put type="reset" n ame="Submit2" value=" 重置"> 用户类型：<select name="me nu1" on Cha nge="M M」u mpMe nu('pare nt',this,O)"> <option value="admin」ogin.asp" selected> 管理员</option><opti on value="stude nt_logi n.asp"> 学生</opti on></select> <br> <fon tcolor=red><%=msg%></fo nt> </ce nter> </td></tr></tablex/formx/bodyx/html>显示信息：*1 舄/ 5 F f Z …* 13_r '~；.. -- —M”+ I ■承"，・久■皿札H I V F宦界G F U I存吋'迅■■汕1STfl]E直忌冒*虽fl豆吊托3M0XffiE：惴1i-i-idi：圖ihw.E* U箱京Awrn：aore-if-a]fHfufludl；±™-IM3HyilFWlalB»ean代码为：<!-- #include file= ” conn.inc ”<%if Session( “admin”)<>true and Session( “student ”)<>true then Resp on se.Redirect “ stude nt_log in. asp ”end if%><!doctype html public “ - //W3C//DTD HTML 4.0 Tran sitio nal//EN”〉<html><head><title> 学生信息</title><LINK href= ” style.css ” rel=Stylesheet type=text/css></style></head><table alig n=cen ter><tr><td colspan= ” 2” ><centerxspan class= ” style1 ” >学生信息管理系统</span>v/center></td></tr><tr><td colspan= ” 5” ><a href= ” #” >[<b> 首页</b>]</a><ahref= ” search.asp ” >[查询]</a><a title= ” 需要管理员权限” href= ” post.asp ” >［添力卩］</a><a href= ” admin」ogin.asp ” >［管理］</a><a href= ” logout.asp ” >［退出］v/a>v/td>v/tr> v/table><%users = Request( “ users ”)If request( “ PageN6 )= ”” thenPageNo=1ElsePageNo=int(request( “ PageN6 ))End Ifsql= ” SELECT * from liuyan order by ID desc ”set rs=server.createobject( “adodb.recordset ”)rs.ope n sql,c onn ,1,3if no t(rs.eof and rs.bof) the nrs.Pagesize=3rs.absolutepage=PageNox = 0For x = 1 to rs.Pagesizeif x mod 2 the ntr_color= ” #EBEBEBelsetr_c olor= ” #ffffff ”end ifIf rs.eof the nExit ForElseif isNull(Rs( “ Dateandtime ”))thenstrDatea ndtime = “”strDatea ndtime = Cstr(Rs( Dateandtime ” ))elsestrDatea ndtime = Cstr(Rs( Dateandtime ” ))end ifResp on se.Write “</tr> ” Resp on se.Write <tr>Resp on se.Write “<td> 性别：</td> ” Resp on se.Write“<td colspa n=2> ”+ Rs( “ Sex ”)+“</td> ” Response.Write“</tr> ”Resp on se.Write <tr>Resp on se.Write “<td> 班级：</td> ” Resp on se.Write“<td colspa n=2> ”+ Rs( “ Class ”) +“</td> ” Response.Write“</tr> ”Resp on se.Write <tr>Resp on se.Write “<td> 专业：</td> ”User name,Email,C onten t,Sex,Datea ndtimeResponse.Write “<tabl e width=50% border=0 align=centercellpadd in g=0 cellspaci ng=0 bgcolor=+ tr_color+“>Response.Write “ <tr> ”Resp on se.Write “ <td width=20% no wrap> 姓名：</td> ” Resp on se.Write“ <tdwidth=60%class=Tab> ” +Rs( “ User name ) + “ </td> ”'修改删除链接• r“I■7zif us ers =admin the nResp on se.Write“ <td width=20% class=Tab alig n=right> ” +“ <a href=post.asp?users= ” + users +“&d= ”+ cstr(Rs( “ ID))+ “><fo nt color=blue> 修改 v/font></a> <ahref=delete.asp?users= ” + users + “&id= ” + cstr(Rs( “ID ” )) + “xfont color=blue>删除v/font></a> ” +“</td> ”elseRespo nse.Write “ <td width=20% class=Tab></td> ” end ifResp on se.Write “ <td colspa n=2> ”+ Rs( “ Major ”)+</td> ”Resp on se.Write “</tr> ”Resp onse.Write“ <tr> ”Resp onse.Write“<td>入学时间：</td> 'Resp onse.Write“ <td colspan=2> ”+ strDatea ndtime +</td> ”Resp on se.Write “</tr> ”Resp onse.Write“ <tr> ”Resp onse.Write“ <td> 评语：</td> ”Resp onse.Write“ <td colspa n=2> ”+Rs( “ Content ”)+</td> ”Resp on se.Write “</tr> ”Resp onse.Write<tr>Resp onse.Write“ <td>E-mail :</td> ”Resp onse.Write“ <td colspa n=2> ”+ Rs( “Email”)+</td> ”Resp on se.Write “</tr> ”Resp onse.Write“ </table> ”Resp onse.Write“ vtable border=0 alig n=cen ter> ”‘ if users = “admin” then‘ Response.Write “<tr> ”‘ Response.Write “<td align=right bgcolor= ”+tr_color+ “><a href=delete.asp?users= ”+ users + “&id= ”+ cstr(Rs( “ID” )) + “xfont color=red> 删除v/font></a></td> ”‘ Response.Writ e “</tr> ”' end ifResponse.Write “ <tr> ”Resp on se.Write “ <tdheight=1></td> ”Resp on se.Write “ </tr> ”Resp on se.Write “ </table> ”rs.MoveNextEnd IfNextend ifif rs.recordco unt > 0 the n<tr><td> 共 有 <%=rs.recordco un t%> 条 学 生 信 息&n bsp ；v%=rs.pagesize%> 条 / 页&n bsp;共 <%=rs.pageco un t%>M </td>end ifn ext%></td> </tr></table>Else<tr><td><marquee> 目前，没有任何学生信息！ </marquee>v/td>v/tr>v/table>End if<%rs.closeset rs=no thi ngConn, closeSet conn = Nothi ng%></body>v/html> 4、查询信息页面显示：<td align= ” right ” class= <%for i=1 to rs.pageco untif page no <> I the nResp on se.Write users + “&page no=' + cstr(i) + elseResponse.Writ e ” Tab ” >分页：“ <A href= index.asp?users= ”+ “〉” &i&” </a> ”'<b>” & I & “</b> ”代码为：<!--# in elude file="c onn .i nc"--><%if Sessi on ("adm in ")<>true and Sessi on ("stude nt")v>true the n Resp on se.Redirect "stude nt_log in. asp"end if%>if studentid <>0 thensql="SELECT * from liuyan where ID="&stude ntidset rs=server.createobject("adodb.recordset")rs.ope n sql,c onn ,1,3<%rs.closeset rs=no thi ngConn. closeSet conn = Nothi ngend if%>。