數(shù)據(jù)庫設(shè)計(jì)以及源代碼_第1頁
數(shù)據(jù)庫設(shè)計(jì)以及源代碼_第2頁
數(shù)據(jù)庫設(shè)計(jì)以及源代碼_第3頁
數(shù)據(jù)庫設(shè)計(jì)以及源代碼_第4頁
數(shù)據(jù)庫設(shè)計(jì)以及源代碼_第5頁
已閱讀5頁，還剩5頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、系統(tǒng)建設(shè)詳細(xì)設(shè)計(jì)1.數(shù)據(jù)庫設(shè)計(jì)管理員用戶表信息：字段名稱類 型大 小字段描述管理員ID自動編號長整型管理員身份識別管理員名稱文本50管理員登陸名稱密碼文本50管理員登陸的密碼身份文本50有別于學(xué)生登陸界面 學(xué)生用戶表：字段名稱類 型大 小字段描述學(xué)生ID自動編號長整型學(xué)生學(xué)號學(xué)生名稱文本50學(xué)生名稱密碼文本50學(xué)生登陸的密碼身份文本50有別于管理員登陸界面 學(xué)生信息表：字段名稱類 型大 小字段描述學(xué)生ID自動編號長整型學(xué)生學(xué)號學(xué)生名稱文本50學(xué)生名稱電子郵箱文本50學(xué)生的電子郵箱備注/學(xué)生的其他信息性別文本50性別入學(xué)時(shí)間文本50學(xué)生入學(xué)的時(shí)間班級文本50所在班級專業(yè)文本50所學(xué)專業(yè)2 系統(tǒng)程

2、序文件設(shè)計(jì)與編寫與數(shù)據(jù)庫連接的代碼：<%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")<&g

3、t;"" then set rs=server.createobject("adodb.recordset") sql="SELECT username,password from users where username='"&request("username")&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then msg="錯(cuò)誤：用戶名不存在" else if rs("passw

4、ord")=request("password") then Session("admin")=true response.redirect "index.asp?users=admin"else msg="錯(cuò)誤：密碼不正確"end if end if rs.close set rs=nothing Conn.close Set conn = Nothingend if%><html><head> <title>管理員</title><scrip

5、t language="JavaScript" type="text/JavaScript"><!-function MM_jumpMenu(targ,selObj,restore) /v3.0eval(targ+".location='"+selObj.optionsselObj.selectedIndex.value+"'"); if (restore) selObj.selectedIndex=0;/-></script><LINK href="s

6、tyle.css" rel=Stylesheet type=text/css></head><center><span class="style1”>學(xué)生信息管理系統(tǒng)</span></center></td></tr><tr><td colspan="2"> <center>管理員：<input name="username" type="text" maxlength="1

7、0"> 密碼：<input name="password" type="password" > <input type="submit" name="Submit" value="登錄"> <input type="reset" name="Submit2" value="重置"> 用戶類型：<select name="menu1" onChange=&quo

8、t;MM_jumpMenu('parent',this,0)"> <option value="admin_login.asp" selected>管理員</option><option value="student_login.asp">學(xué)生</option> </select> <br><fontcolor=red><%=msg%></font> </center> </td></t

9、r></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”><h

10、tml><head><title>學(xué)生信息</title><LINK href=”style.css” rel=Stylesheet type=text/css></style></head> <table align=center> <tr><td colspan=”2”><center><span class=”style1”>學(xué)生信息管理系統(tǒng)</span></center></td></tr> <t

11、r><td colspan=”5”><a href=”#”><b>首頁</b></a><a href=”search.asp”>查詢</a><a title=”需要管理員權(quán)限”href=”post.asp”>添加</a><a href=”admin_login.asp”>管理</a><a href=”logout.asp”>退出</a></td></tr></table><%users = R

12、equest(“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 = 0 For x = 1 to rs.Pagesizeif x mod

13、2 thentr_color=”#EBEBEB”elsetr_color=”#ffffff”end ifIf rs.eof then Exit For Elseif isNull(Rs(“Dateandtime”) thenstrDateandtime = “”elsestrDateandtime = Cstr(Rs(“Dateandtime”)end ifUsername,Email,Content,Sex,DateandtimeResponse.Write “<table width=50% border=0 align=center cellpadding=0 cellspacin

14、g=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 hre

15、f=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>

16、;</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 c

17、olspan=2>” + Rs(“Class”) + “</td>”Response.Write “</tr>”Response.Write “<tr>”Response.Write “<td>專業(yè)：</td>”Response.Write “<td colspan=2>” + Rs(“Major”) + “</td>”Response.Write “</tr>”Response.Write “<tr>”Response.Write “<td>入學(xué)時(shí)間：</td&

18、gt;”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>”Respon

19、se.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>”if users = “admin” thenResponse.Write “<tr>”Response.Write “<td align=righ

20、t bgcolor=” + tr_color+ “><a href=delete.asp?users=” + users + “&id=” + cstr(Rs(“ID”) + “><font color=red>刪除</font></a></td>”Response.Write “</tr>”end ifResponse.Write “<tr>”Response.Write “<td height=1></td>”Response.Write “</tr>”Re

21、sponse.Write “</table>”rs.MoveNext End If Nextend ifif rs.recordcount > 0 then<tr><td>共有<%=rs.recordcount%>條學(xué)生信息&nbsp;<%=rs.pagesize%>條/頁&nbsp;共<%=rs.pagecount%>頁</td> <td align=”right” class=”Tab”>分頁：<%for i=1 to rs.pagecountif pageno <> I thenResponse.Write “<A href=index.asp?users=” + users + “&pageno=” + cstr(i) + “>”&i&”</a>&nbsp;”elseResponse.Write “<b>” & I &

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論