当前位置：文档之家› 数据库设计以及源代码

数据库设计以及源代码

系统建设详细设计1.数据库设计管理员用户表信息：学生用户表：学生信息表：班级文本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)%>登陆界面代码：代码为：<%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"></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 desc”set 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_color=”#ffffff”end ifIf rs.eof thenExit ForElseif isNull(Rs(“Dateandtime”)) thenstrDateandtime = “”elsestrDateandtime = Cstr(Rs(“Dateandtime”))end if‘Username,Email,Content,Sex,DateandtimeResponse.Write “<table width=50% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=” + tr_color+ “>”Response.Write “<tr>”Response.Write “<td width=20% nowrap>姓名：</td>”Response.Write “<td width=60% class=Tab>”+ Rs(“Username”) + “</td>”‘修改删除链接if users = “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>”。

e商务文档

数据库设计以及源代码

相关文档推荐：