




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、系統(tǒng)建設(shè)詳細(xì)設(shè)計(jì)1.數(shù)據(jù)庫設(shè)計(jì)管理員用戶表信息:字段名稱類 型大 小字段描述管理員ID自動(dòng)編號(hào)長整型管理員身份識(shí)別管理員名稱文本50管理員登陸名稱密碼文本50管理員登陸的密碼身份文本50有別于學(xué)生登陸界面 學(xué)生用戶表:字段名稱類 型大 小字段描述學(xué)生ID自動(dòng)編號(hào)長整型學(xué)生學(xué)號(hào)學(xué)生名稱文本50學(xué)生名稱密碼文本50學(xué)生登陸的密碼身份文本50有別于管理員登陸界面 學(xué)生信息表:字段名稱類 型大 小字段描述學(xué)生ID自動(dòng)編號(hào)長整型學(xué)生學(xué)號(hào)學(xué)生名稱文本50學(xué)生名稱電子郵箱文本50學(xué)生的電子郵箱備注/學(xué)生的其他信息性別文本50性別入學(xué)時(shí)間文本50學(xué)生入學(xué)的時(shí)間班級(jí)文本50所在班級(jí)專業(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>班級(jí):</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>評(píng)語:</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é)生信息 <%=rs.pagesize%>條/頁 共<%=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> ”elseResponse.Write “<b>” & I &
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025至2030中國男士針織服裝行業(yè)發(fā)展研究與產(chǎn)業(yè)戰(zhàn)略規(guī)劃分析評(píng)估報(bào)告
- 2025至2030中國甲型流感病毒H3N2亞型感染藥物行業(yè)產(chǎn)業(yè)運(yùn)行態(tài)勢(shì)及投資規(guī)劃深度研究報(bào)告
- 2025至2030中國珠寶租賃行業(yè)市場(chǎng)深度研究及發(fā)展前景投資可行性分析報(bào)告
- 心理健康在班級(jí)管理中的重要性探討
- 政策效果評(píng)估中的數(shù)據(jù)挖掘與處理技術(shù)
- 智慧教室在特殊教育中的應(yīng)用探索
- 智慧城市燈光秀創(chuàng)新與技術(shù)的結(jié)合
- 設(shè)備維修知識(shí)培訓(xùn)
- 教育與技術(shù)的深度結(jié)合下的激勵(lì)與薪資新思考
- 新興技術(shù)在企業(yè)培訓(xùn)中的運(yùn)用及效果評(píng)估報(bào)告
- 門診藥房藥物咨詢記錄表
- 質(zhì)量保證體系架構(gòu)圖
- 高中物理選修 分子動(dòng)理論
- 管道施工主要質(zhì)量保證措施及通病防治措施
- 斯巴達(dá)勇士賽
- 信捷XC系列可編程序控制器用戶手冊(cè)(軟件篇)
- 新版FMEA培訓(xùn)課件
- 中考首字母填空練習(xí)67篇含答案
- 1#球磨機(jī)襯板更換及方案
- 光伏工程質(zhì)量通病預(yù)防措施
- 常用塑料改性加工工藝
評(píng)論
0/150
提交評(píng)論