新聞發(fā)布系統(tǒng)-畢業(yè)設(shè)計(jì)論文

1、<p>　　新聞發(fā)布系統(tǒng)—用戶(hù)模塊設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　摘要：本課程論文在學(xué)習(xí)了ASP基本語(yǔ)法以及Web應(yīng)用方法的基礎(chǔ)上設(shè)計(jì)與實(shí)現(xiàn)了一個(gè)新聞發(fā)布系統(tǒng)的用戶(hù)模塊。系統(tǒng)開(kāi)發(fā)平臺(tái)為Windows 2000，系統(tǒng)開(kāi)發(fā)結(jié)構(gòu)為ASP+JavaScript，數(shù)據(jù)庫(kù)采用Access 2000，程序運(yùn)行平臺(tái)為Windows 98/2000/XP。實(shí)現(xiàn)了對(duì)用戶(hù)的添加、用戶(hù)的刪除、用戶(hù)信息的查看、用戶(hù)的修改。程序通

2、過(guò)調(diào)試運(yùn)行，初步實(shí)現(xiàn)了設(shè)計(jì)目標(biāo)，并且經(jīng)過(guò)適當(dāng)完善后，可以應(yīng)用在商業(yè)中解決實(shí)際問(wèn)題。</p><p>　　關(guān)鍵詞 新聞發(fā)布系統(tǒng)；用戶(hù)；ASP；JavaScript；Access 2000</p><p><b>　　1 引言</b></p><p>　　1.1 課題背景及意義說(shuō)明</p><p>　　隨著Internet

3、信息技術(shù)的高速發(fā)展，越來(lái)越多的企業(yè)已建立或計(jì)劃建立自己的網(wǎng)站。但是，為了建立和維護(hù)自己的網(wǎng)站而聘請(qǐng)專(zhuān)職的網(wǎng)絡(luò)技術(shù)人員的成本對(duì)于一個(gè)中小型企業(yè)來(lái)說(shuō)實(shí)在是太高了。對(duì)于上面這類(lèi)企業(yè)來(lái)說(shuō)，他們最需要的就是一個(gè)現(xiàn)在的新聞發(fā)布系統(tǒng)，這樣只需要會(huì)打字，會(huì)上網(wǎng)，就能利用新聞發(fā)布系統(tǒng)建立和維護(hù)自己的網(wǎng)站。而且，目前許多企業(yè)網(wǎng)站的新聞大多是靜態(tài)的HTML頁(yè)面，每次更新信息需要做一個(gè)頁(yè)面，然后FTP上傳，再修改頁(yè)面鏈接，這樣維護(hù)非常麻煩，而網(wǎng)站新聞發(fā)布系統(tǒng)大

4、大減輕了網(wǎng)站更新維護(hù)的工作量，通過(guò)新聞后臺(tái)維護(hù)程序在瀏覽器上只需錄入文字和上傳圖片就可以快速實(shí)現(xiàn)新聞維護(hù)，從而大大加快了信息的傳播速度，時(shí)時(shí)保持網(wǎng)站的活動(dòng)力和影響力。</p><p>　　作為一個(gè)在網(wǎng)上發(fā)布信息的網(wǎng)站，是用戶(hù)瀏覽新聞和交流的重要平臺(tái)，也是一個(gè)能夠自動(dòng)地發(fā)布各種信息的平臺(tái),它可使人們超越時(shí)間和空間的交流信息。該系統(tǒng)實(shí)現(xiàn)的是用戶(hù)瀏覽新聞，查找信息，發(fā)布留言的功能。</p><p&g

5、t;　　1.2 課題使用技術(shù)簡(jiǎn)要說(shuō)明</p><p>　　ASP是Active Server Page的縮寫(xiě)，意為“活動(dòng)服務(wù)器網(wǎng)頁(yè)”。ASP是微軟公司開(kāi)發(fā)的代替CGI腳本程序的一種應(yīng)用,它可以與數(shù)據(jù)庫(kù)和其它程序進(jìn)行交互，是一種簡(jiǎn)單、方便的編程工具。ASP的網(wǎng)頁(yè)文件的格式是.asp，現(xiàn)在常用于各種動(dòng)態(tài)網(wǎng)站中。 ASP是一種服務(wù)器端腳本編寫(xiě)環(huán)境，可以用來(lái)創(chuàng)建和運(yùn)行動(dòng)態(tài)網(wǎng)頁(yè)或web應(yīng)用程序。ASP網(wǎng)頁(yè)可以包含HTML標(biāo)

6、記、普通文本、腳本命令以及COM組件等。利用ASP可以向網(wǎng)頁(yè)中添加交互式內(nèi)容（如在線表單），也可以創(chuàng)建使用HTML網(wǎng)頁(yè)作為用戶(hù)界面的web應(yīng)用程序。 與HTML相比，ASP網(wǎng)頁(yè)具有以下特點(diǎn)： （1）利用ASP可以實(shí)現(xiàn)突破靜態(tài)網(wǎng)頁(yè)的一些功能限制，實(shí)現(xiàn)動(dòng)態(tài)網(wǎng)頁(yè)技術(shù)； （2）ASP文件是包含在HTML代碼所組成的文件中的，易于修改和測(cè)試； </p><p>　?。?）服務(wù)器上的ASP解釋程序會(huì)在服務(wù)器端

7、制定ASP程序，并將結(jié)果以HTML格式傳送到客戶(hù)端瀏覽器上，因此使用各種瀏覽器都可以正常瀏覽ASP所產(chǎn)生的網(wǎng)頁(yè)； </p><p>　　（4）ASP提供了一些內(nèi)置對(duì)象，使用這些對(duì)象可以使服務(wù)器端腳本功能更強(qiáng)。例如可以從web瀏覽器中獲取用戶(hù)通過(guò)HTML表單提交的信息，并在腳本中對(duì)這些信息進(jìn)行處理，然后向web瀏覽器發(fā)送信息；</p><p>　?。?）ASP可以使用服務(wù)器端ActiveX組

8、建來(lái)執(zhí)行各種各樣的任務(wù)，例如存取數(shù)據(jù)庫(kù)、發(fā)現(xiàn)哦那個(gè)Email或訪問(wèn)文件系統(tǒng)等。</p><p>　?。?）由于服務(wù)器是將ASP程序執(zhí)行的結(jié)果以HTML格式傳回客戶(hù)端瀏覽器，因此使用者不會(huì)看到ASP所編寫(xiě)的原始程序代碼，可放置ASP程序代碼被竊取。</p><p>　　ASP，活動(dòng)服務(wù)器頁(yè)面,就是一個(gè)編程環(huán)境，在其中，可以混合使用HTML、腳本語(yǔ)言以及組件來(lái)創(chuàng)建服務(wù)器端功能強(qiáng)大的Intern

9、et應(yīng)用程序。 如果你以前創(chuàng)建過(guò)一個(gè)站點(diǎn)，其中混合了HTML、腳本語(yǔ)言以及組件，你就可以在其中加入ASP程序代碼。通過(guò)在HTML頁(yè)面中加入腳本命令，你可以創(chuàng)建一個(gè)HTML用戶(hù)界面，并且，還可以通過(guò)使用組件包含一些商業(yè)邏輯規(guī)則。組件可以被腳本程序調(diào)用，也可以由其他的組件調(diào)用。</p><p><b>　　2 需求分析</b></p><p><b>　　2.1

10、功能性要求</b></p><p>　　圖2-1管理員用例圖</p><p><b>　　2.2非功能性需求</b></p><p>　　為方便管理員管理，本系統(tǒng)的界面要求簡(jiǎn)單、明朗。</p><p>　　系統(tǒng)涉及到用戶(hù)信息，因此對(duì)安全性要求高一些。系統(tǒng)采用權(quán)限技術(shù)，保證系統(tǒng)安全可靠。</p>

11、<p>　　系統(tǒng)的運(yùn)行對(duì)運(yùn)行環(huán)境還有一些要求：</p><p>　　Windows 2000或Windows XP</p><p>　　Internet Information Services(IIS)5.0或6.0</p><p>　　Microsoft Access 2000</p><p>　　系統(tǒng)必須滿(mǎn)足正確性，可靠性，必

12、須有效率，完整性，易使用性，可測(cè)試性，可維護(hù)性，復(fù)用性，安全保密性。尤其是在安全性方面，必須對(duì)用戶(hù)的資料，注冊(cè)信息做到良好的保密工作，還有數(shù)據(jù)庫(kù)的安全性。</p><p><b>　　3 概要設(shè)計(jì)</b></p><p>　　3.1 文檔結(jié)構(gòu)定義</p><p>　　本系統(tǒng)采用ASP+JavaScript的形式實(shí)現(xiàn)。根據(jù)開(kāi)發(fā)系統(tǒng)所需提供的頁(yè)面文

13、檔定義ASP文檔，表定義參見(jiàn)數(shù)據(jù)組織與定義部分的內(nèi)容。</p><p>　　本課題的ASP包括：</p><p>　　admin_admin.asp：該文檔用于添加管理人員界面的設(shè)計(jì)。</p><p>　　admin_adminDel.asp：該文檔用于刪除管理人員的設(shè)計(jì)。</p><p>　　admin_adminmodify.asp：該文

14、檔用于修改管理人員信息的設(shè)計(jì)。</p><p>　　admin_adminsave.asp：該文檔用于對(duì)保存管理人員信息錯(cuò)誤提示的設(shè)計(jì)。</p><p>　　它們之間的文檔關(guān)聯(lián)關(guān)系如下所示：</p><p>　　圖2-2文檔關(guān)聯(lián)關(guān)系圖</p><p><b>　　相關(guān)數(shù)據(jù)組織與定義</b></p><

15、p>　　建立管理人員信息Admin表。</p><p>　　圖2-3　Admin表</p><p><b>　　開(kāi)發(fā)環(huán)境說(shuō)明</b></p><p>　　ASP+JavaScript+Access 2000.</p><p><b>　　詳細(xì)設(shè)計(jì)</b></p><p>

16、;　　4.1 業(yè)務(wù)邏輯層定義</p><p>　　本模塊的業(yè)務(wù)邏輯層實(shí)現(xiàn)主要用到了admin_admin.asp，admin_adminDel.asp, admin_adminmodify.asp 和admin_adminsave.asp。</p><p>　　admin_admin.asp：用于添加管理人員。</p><p>　　admin_adminDel.as

17、p：用于刪除管理人員。</p><p>　　admin_adminmodify.asp:用于修改管理人員信息。</p><p>　　admin_adminsave.asp：用于保存管理人員信息時(shí)的錯(cuò)誤提示。</p><p>　　4.2 頁(yè)面邏輯層實(shí)現(xiàn)</p><p>　　4.2.1 admin_admin.asp</p><

18、;p><b>　　<%</b></p><p>　　Set rs=Server.CreateObject("ADODB.RecordSet") </p><p>　　sql="select * from admin order by id" </p><p>　　rs.Open sql,con

19、n,1,1 </p><p>　　while not rs.eof</p><p>　　if rs("aleave")="super" then aleave="超級(jí)管理員" end if</p><p>　　if rs("aleave")="check" then

20、aleave="普通管理員" end if</p><p><b>　　%></b></p><p>　　<td><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a></td></

21、p><p>　　<td><a href="admin_AdminDel.asp?id=<%=rs("id")%>">刪除</a></td></p><p><b>　　</tr></b></p><p>　　<%rs.movenex

22、t</p><p><b>　　wend</b></p><p><b>　　rs.close</b></p><p>　　set rs=nothing</p><p><b>　　%></b></p><p><b>　　</ta

23、ble> </b></p><p><b>　　<br></b></p><p>　　<table width="300" border="0" align="center" cellpadding="4" cellspacing="1&quo

24、t; bgcolor="#C6C6C6"></p><p>　　<tr bgcolor="#CCCCCC"> </p><p>　　<td colspan="2">添加管理員：</td> </p><p><b>　　</tr></b&g

25、t;</p><p>　　<form name="add" method="post" action="admin_adminsave.asp"></p><p>　　<tr bgcolor="#FFFFFF"> </p><p>　　<td align=&

26、quot;right" height="22">管理帳號(hào)：</td></p><p><b>　　<td> </b></p><p>　　<input type="text" name="admin" class="form"> <

27、/td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#FFFFFF"> </p><p>　　<td align="right">管理權(quán)限：</td> </p><p><

28、;b>　　<td> </b></p><p>　　<select name="aleave" class="input"></p><p>　　<option value=super selected>超級(jí)管理員</option> </p><p>　　<

29、option value=check>普通管理員</option> </p><p><b>　　</select></b></p><p><b>　　</td></b></p><p><b>　　</tr></b></p>&

30、lt;p>　　<tr bgcolor="#FFFFFF"> </p><p>　　<td align="right" height="22">管理密碼：</td></p><p><b>　　<td> </b></p><p>　　

31、<input type="password" name="password" class="form"> </td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#CCCCCC"> </

32、p><p>　　<td colspan="2" align="center"> </p><p>　　<input type="submit" name="Submit" value="確 定"> </p><p>　　<input type

33、="hidden" name="act" value="add"></p><p><b>　　</td></b></p><p>　　圖2-4添加管理員信息圖</p><p>　　4.2.2 admin_adminDel.asp</p><p&g

34、t;　　<!--#include file="adminconn.inc" --></p><p><b>　　<%</b></p><p>　　if session("aleave")="" then</p><p>　　response.redirect &quo

35、t;adminlogin.asp"</p><p>　　response.end</p><p><b>　　end if</b></p><p><b>　　%></b></p><p>　　<%if session("aleave")="che

36、ck" then</p><p>　　response.write"<SCRIPT language=JavaScript>alert('對(duì)不起，你沒(méi)有這個(gè)權(quán)限！');"</p><p>　　response.write"javascript:history.go(-1)</SCRIPT>"</

37、p><p>　　response.end</p><p><b>　　end if%></b></p><p><b>　　<%</b></p><p>　　set rs=server.CreateObject("ADODB.RecordSet")</p>

38、<p>　　rs.open "delete * from admin where id="&request.QueryString("id"),conn,1</p><p>　　set rs=nothing</p><p>　　response.redirect "admin_admin.asp"</p&g

39、t;<p><b>　　%></b></p><p>　　4.2.3 admin_adminmodify.asp</p><p>　　<%if session("aleave")="check" then</p><p>　　response.write"<SCR

40、IPT language=JavaScript>alert('對(duì)不起，你沒(méi)有這個(gè)權(quán)限！');"</p><p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p>　　response.end</p><p><b>　　e

41、nd if%></b></p><p>　　<%id=request.QueryString("id")</p><p>　　set rs=server.createobject("adodb.recordset")</p><p>　　sql="select * from admin whe

42、re id="&id</p><p>　　rs.open sql,conn,1,1</p><p>　　if rs.eof then</p><p>　　response.write"<SCRIPT language=JavaScript>alert('服務(wù)器出錯(cuò)，請(qǐng)聯(lián)系管理員！');"</p&

43、gt;<p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p><b>　　else</b></p><p>　　admin=rs("admin")</p><p>　　password=rs("p

44、assword")</p><p>　　aleave=rs("aleave")</p><p><b>　　%></b></p><p>　　<td width="100%" height="24" colspan=2 align=center><b&

45、gt;修 改 管 理 員 資 料</b></td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#FFFFFF"> </p><p>　　<td width="30%" height="22&

46、quot; align="right">用戶(hù)名：</td></p><p>　　<td width="70%"> </p><p>　　<input type="text" name="admin" value="<%=admin%>" siz

47、e="20" class="input"></td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#FFFFFF"> </p><p>　　<td width="30%"

48、; height="22" align="right">密碼：</td></p><p>　　<td width="70%"> </p><p>　　<input type="text" name="password" value="<%=

49、decrypt(rs("password"))%>" size="20" class="input"></td></p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#FFFFFF"> &l

50、t;/p><p>　　<td width="30%" height="22" align="right">權(quán)限：</td></p><p>　　<td width="70%" height="22"> </p><p>　　<se

51、lect name="aleave" style="font-size:9pt" class="input"></p><p>　　<option value=super<%if aleave="super" then%> selected<%end if%>>超級(jí)管理員</option

52、></p><p>　　<option value=check<%if aleave="check" then%> selected<%end if%>>普通管理員</option></p><p><b>　　</select></b></p><p>&l

53、t;b>　　</td></b></p><p><b>　　</tr></b></p><p>　　<tr align="center" bgcolor="#FFFFFF" height="24"> </p><p>　　<t

54、d height="30" colspan=2> </p><p>　　<input type="hidden" value="edit" name="act"></p><p>　　<input name="cmdok" type="submit"

55、; id="cmdok" value=" 修 改 " class="input"></p><p><b>　　&nbsp;</b></p><p>　　<input name="cmdcance" type="reset" id="cmd

56、cance" value=" 清 除 " class="input"></p><p><b>　　</td></b></p><p>　　圖2-5修改管理員資料圖</p><p>　　4.2.4 admin_adminsave.asp</p><p>

57、　　<%if session("aleave")="check" then</p><p>　　response.write"<SCRIPT language=JavaScript>alert('對(duì)不起，你沒(méi)有這個(gè)權(quán)限！');"</p><p>　　response.write"java

58、script:history.go(-1)</SCRIPT>"</p><p>　　response.end</p><p><b>　　end if%></b></p><p><b>　　<%</b></p><p>　　admin=request.form(&

59、quot;admin")</p><p>　　password=request.form("password")</p><p>　　aleave=request.form("aleave")</p><p>　　if admin="" or password="" then&

60、lt;/p><p>　　response.write"<SCRIPT language=JavaScript>alert('管理員名稱(chēng)和密碼都不能為空！');"</p><p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p

61、>　　Response.End</p><p><b>　　end if</b></p><p>　　set rs=server.CreateObject("ADODB.RecordSet")</p><p>　　if request("act")="edit" and requ

62、est.QueryString("id")<>"" then</p><p>　　id=request("id")</p><p>　　sql="select * from admin where id="& request.QueryString("id")</p

63、><p>　　rs.open sql,conn,3,2</p><p>　　if not rs.eof then</p><p>　　rs("aleave")=aleave</p><p>　　rs("admin")=admin</p><p>　　rs("password

64、")=encrypt(password)</p><p><b>　　rs.update</b></p><p><b>　　end if</b></p><p><b>　　rs.close</b></p><p>　　elseif request("ac

65、t")="add" then</p><p>　　sql="select * from admin where admin='"&admin&"'"</p><p>　　rs.open sql,conn,3,2</p><p>　　if (rs.eof and rs

66、.bof) then</p><p><b>　　rs.addnew</b></p><p>　　rs("aleave")=aleave</p><p>　　rs("admin")=admin</p><p>　　rs("password")=encrypt(p

67、assword)</p><p><b>　　rs.update</b></p><p><b>　　end if</b></p><p><b>　　rs.close</b></p><p><b>　　end if</b></p><

68、;p>　　set rs=nothing</p><p>　　conn.close</p><p>　　set conn=nothing</p><p>　　response.redirect "admin_admin.asp"</p><p><b>　　%></b></p>

69、<p><b>　　圖2-6錯(cuò)誤信息圖</b></p><p><b>　　代碼調(diào)試與測(cè)試</b></p><p>　　程序調(diào)試運(yùn)行在軟件設(shè)計(jì)中是關(guān)鍵的一步。</p><p>　　首先解壓新聞發(fā)布系統(tǒng)到某一文件夾下，在此我們存放于D:\新聞發(fā)布管理系統(tǒng)。</p><p><b>

70、;　　圖2-７ 解壓目錄</b></p><p>　　第二步：配置IIS[Internet 信息服務(wù)(IIS)管理器]。</p><p>　　圖2-８建立虛擬目錄圖</p><p><b>　　圖2-９創(chuàng)建向?qū)D</b></p><p>　　圖2-10選擇路徑圖</p><p>　　圖

71、2-11設(shè)置訪問(wèn)權(quán)限圖</p><p>　　第三步：設(shè)置IIS管理器屬性。</p><p>　　圖2-12IP地址設(shè)置圖</p><p>　　圖2-13主目錄設(shè)置圖</p><p>　　第四步通過(guò)以上步驟，基本上配置完成新聞發(fā)布系統(tǒng)的運(yùn)行環(huán)境。右擊站點(diǎn)名稱(chēng)，選擇“瀏覽(B)”，我們看到右側(cè)顯示框顯示的效果。</p><p&

72、gt;　　圖2-14主頁(yè)效果圖</p><p><b>　　小結(jié)</b></p><p>　　本課程設(shè)計(jì)實(shí)現(xiàn)了新聞發(fā)布系統(tǒng)的用戶(hù)管理模塊，在可以運(yùn)行的前提下，實(shí)現(xiàn)了對(duì)管理員的添加、修改、刪除、瀏覽等功能。通過(guò)本次課程設(shè)計(jì)，我對(duì)軟件工程這門(mén)課程有了更進(jìn)一步的了解，把原來(lái)的課本知識(shí)真正的轉(zhuǎn)化為實(shí)際的東西，理解了開(kāi)發(fā)一個(gè)項(xiàng)目的般過(guò)程。在這次設(shè)計(jì)過(guò)程中學(xué)到了很多方面有用的思想

73、和技巧，特別在對(duì)設(shè)計(jì)過(guò)程中所出現(xiàn)的種種錯(cuò)誤的解決過(guò)程中受益匪淺，尤其是解決問(wèn)題和分析問(wèn)題的能力。 由于作者能力水平有限，加之寫(xiě)作時(shí)間倉(cāng)促，不當(dāng)之處在所難免，懇請(qǐng)批評(píng)指正。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 邵麗萍，張后，揚(yáng)朱兵，陳學(xué)東編著.動(dòng)態(tài)網(wǎng)頁(yè)制作ASP[M].北京:電子工業(yè)出版社，2003.</p>&l

74、t;p>　　[2] 新東方電腦教材研發(fā)室，石志國(guó)編著.ASP動(dòng)態(tài)網(wǎng)站編程.北京：清華大學(xué)出版社,2001.</p><p>　　[3] weissinger A編著.馮延暉，王永慶，劉海明譯.ASP技術(shù)手冊(cè)[M].北京：中國(guó)電力出版社，2001.</p><p>　　[4] anderson R等編著.劉福太等譯.ASP3高級(jí)編程[M].北京：機(jī)械工業(yè)出版社，2000.</p&

75、gt;<p>　　[5] 美 Christoph Wille Christian Koller. 24小時(shí)學(xué)通ASP.北京：人民郵電出版社出版, 2000年</p><p><b>　　附錄：</b></p><p>　　// 程序名稱(chēng)：admin_admin.asp</p><p>　　// 程序功能：完成添加管理人員。<

76、;/p><p>　　// 程序作者：吳敬素</p><p>　　// 最后修改日期：2007-6-29</p><p>　　<!--#include file="adminconn.inc" --></p><p><b>　　<%</b></p><p>　　i

77、f session("aleave")="" then</p><p>　　response.redirect "adminlogin.asp"</p><p>　　response.end</p><p><b>　　end if</b></p><p>&l

78、t;b>　　%></b></p><p><b>　　<html></b></p><p><b>　　<head></b></p><p>　　<link rel="stylesheet" href="../css.css" t

79、ype="text/css"></p><p><b>　　</head></b></p><p>　　<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" margi

80、nheight="0"></p><p>　　<table width="100%" border="0" cellpadding="0" cellspacing="0"></p><p><b>　　<tr></b></p>

81、<p>　　<td height="50" valign="top"></p><p>　　<table width="100%" border="0" cellspacing="0" cellpadding="0"></p><p>

82、<b>　　<tr></b></p><p>　　<td>&nbsp;</td></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　<

83、;table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#C6C6C6"></p><p>　　<tr align="center" bgcolor

84、="#CCCCCC"> </p><p>　　<td width="15%" height="24"> ID</td></p><p>　　<td width="15%">用戶(hù)</td></p><p>　　<td width=

85、"20%">密碼(<font color="#666666">加密</font>)</td></p><p>　　<td width="20%">權(quán)限</td></p><p>　　<td width="15%">修改</td&

86、gt;</p><p>　　<td width="15%">刪除</td></p><p><b>　　</tr></b></p><p>　　<%Set rs=Server.CreateObject("ADODB.RecordSet") </p>

87、<p>　　sql="select * from admin order by id" </p><p>　　rs.Open sql,conn,1,1 </p><p>　　while not rs.eof</p><p>　　if rs("aleave")="super" then aleave

88、="超級(jí)管理員" end if</p><p>　　if rs("aleave")="check" then aleave="普通管理員" end if%></p><p>　　<tr align="center" bgcolor="#FFFFFF">

89、</p><p>　　<td height="22"><%=rs("id")%></td></p><p>　　<td><%=rs("admin")%></td></p><p>　　<td><%=rs("p

90、assword")%></td></p><p>　　<td><%=aleave%></td></p><p>　　<td><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a><

91、;/td></p><p>　　<td><a href="admin_AdminDel.asp?id=<%=rs("id")%>">刪除</a></td></p><p><b>　　</tr></b></p><p>　　&l

92、t;%rs.movenext</p><p><b>　　wend</b></p><p><b>　　rs.close</b></p><p>　　set rs=nothing%></p><p><b>　　</table> </b></p>

93、<p><b>　　<br></b></p><p>　　<table width="300" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#C6C6C6"

94、;></p><p>　　<td colspan="2">添加管理員：</td> </p><p><b>　　</tr></b></p><p>　　<form name="add" method="post" action="

95、;admin_adminsave.asp"></p><p>　　<td align="right" height="22">管理帳號(hào)：</td></p><p><b>　　<td> </b></p><p>　　<input type=&quo

96、t;text" name="admin" class="form"> </td></p><p><b>　　</tr></b></p><p>　　<td align="right">管理權(quán)限：</td> </p><p&g

97、t;<b>　　<td> </b></p><p>　　<select name="aleave" class="input"></p><p>　　<option value=super selected>超級(jí)管理員</option> </p><p>　

98、　<option value=check>普通管理員</option> </p><p>　　</select></td></tr></p><p>　　<tr bgcolor="#FFFFFF"> </p><p>　　<td align="right&q

99、uot; height="22">管理密碼：</td></p><p><b>　　<td> </b></p><p>　　<input type="password" name="password" class="form"> </td&g

100、t;</p><p><b>　　</tr></b></p><p>　　<tr bgcolor="#CCCCCC"> </p><p>　　<td colspan="2" align="center"> </p><p>　

101、　<input type="submit" name="Submit" value="確 定"> </p><p>　　<input type="hidden" name="act" value="add"></p><p><b>　　

102、</td></b></p><p><b>　　</tr></b></p><p>　　</form> </table> <br> </td> </tr></table></body></html></p&

103、gt;<p>　　// 程序名稱(chēng)： admin_AdminDel.asp</p><p>　　// 程序功能：完成刪除管理人員。</p><p>　　// 程序作者：吳敬素</p><p>　　// 最后修改日期：2007-6-29</p><p>　　<!--#include file="adminconn.i

104、nc" --></p><p>　　<% if session("aleave")="" then</p><p>　　response.redirect "adminlogin.asp"</p><p>　　response.end</p><p><b

105、>　　end if%></b></p><p>　　<%if session("aleave")="check" then</p><p>　　response.write"<SCRIPT language=JavaScript>alert('對(duì)不起，你沒(méi)有這個(gè)權(quán)限！');"

106、;</p><p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p>　　response.end</p><p><b>　　end if%></b></p><p>　　<%set rs=server.

107、CreateObject("ADODB.RecordSet")</p><p>　　rs.open "delete * from admin where id="&request.QueryString("id"),conn,1</p><p>　　set rs=nothing</p><p>　　

108、response.redirect "admin_admin.asp"%></p><p>　　// 程序名稱(chēng)： admin_adminmodify.asp</p><p>　　// 程序功能：完成修改管理人員信息。</p><p>　　// 程序作者：吳敬素</p><p>　　// 最后修改日期：2007-6-2

109、9</p><p>　　<!--#include file="adminconn.inc" --></p><p>　　<%if session("aleave")="" then</p><p>　　response.redirect "adminlogin.asp"

110、</p><p>　　response.end</p><p><b>　　end if%></b></p><p>　　<%if session("aleave")="check" then</p><p>　　response.write"<SCRI

111、PT language=JavaScript>alert('對(duì)不起，你沒(méi)有這個(gè)權(quán)限！');"</p><p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p>　　response.end</p><p><b>　　en

112、d if%></b></p><p>　　<%id=request.QueryString("id")</p><p>　　set rs=server.createobject("adodb.recordset")</p><p>　　sql="select * from admin wher

113、e id="&id</p><p>　　rs.open sql,conn,1,1</p><p>　　if rs.eof then</p><p>　　response.write"<SCRIPT language=JavaScript>alert('服務(wù)器出錯(cuò)，請(qǐng)聯(lián)系管理員！');"</p&g

114、t;<p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p><b>　　else</b></p><p>　　admin=rs("admin")</p><p>　　password=rs("pa

115、ssword")</p><p>　　aleave=rs("aleave")%></p><p>　　<LINK href="../css.css" type=text/css rel=stylesheet></p><p>　　<META http-equiv=Content-Type co

116、ntent=text/html; charset=gb2312></p><p>　　<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">&

117、lt;/p><p>　　<form method="POST" action="admin_adminSave.asp?id=<%=id%>"></p><p>　　<tr bgcolor="#CCCCCC"> </p><p>　　<td width="10

118、0%" height="24" colspan=2 align=center><b>修 改 管 理 員 資 料</b></td></p><p><b>　　</tr></b></p><p>　　<td width="30%" height="22

119、" align="right">用戶(hù)名：</td></p><p>　　<td width="70%"> </p><p>　　<input type="text" name="admin" value="<%=admin%>" si

120、ze="20" class="input"></td></p><p><b>　　</tr></b></p><p>　　<td width="30%" height="22" align="right">密碼：</td

121、></p><p>　　<td width="70%"> </p><p>　　<input type="text"name="password"value="<%=decrypt(rs("password"))%>" size="20"

122、; class="input"></td></p><p><b>　　</tr></b></p><p>　　<td width="30%" height="22" align="right">權(quán)限：</td></p>

123、<p>　　<td width="70%" height="22"> </p><p>　　<select name="aleave" style="font-size:9pt" class="input"></p><p>　　<option val

124、ue=super<%if aleave="super" then%> selected<%end if%>>超級(jí)管理員</option></p><p>　　<option value=check<%if aleave="check" then%> selected<%end if%>>普通管理員

125、</option></p><p>　　</select></td></tr></p><p>　　<input name="cmdok" type="submit" id="cmdok" value=" 修 改 " class="input&qu

126、ot;> &nbsp;</p><p>　　<input name="cmdcance" type="reset" id="cmdcance" value=" 清 除 " class="input"></p><p>　　</td></tr>

127、</form></table></body></html></p><p><b>　　<%end if</b></p><p>　　rs.close set rs=nothing%></p><p>　　// 程序名稱(chēng)： admin_adminsave.asp</p>

128、<p>　　// 程序功能：完成保存管理人員信息時(shí)的錯(cuò)誤提示。</p><p>　　// 程序作者：吳敬素</p><p>　　// 最后修改日期：2007-6-29</p><p>　　<!--#include file="adminconn.inc" --></p><p>　　<% if

129、 session("aleave")="" then</p><p>　　response.redirect "adminlogin.asp"</p><p>　　response.end</p><p><b>　　end if%></b></p><p&g

130、t;　　<%if session("aleave")="check" then</p><p>　　response.write"<SCRIPT language=JavaScript>alert('對(duì)不起，你沒(méi)有這個(gè)權(quán)限！');"response.write"javascript:history.go(-1)

131、</SCRIPT>"</p><p>　　response.end</p><p><b>　　end if%></b></p><p>　　<%admin=request.form("admin")</p><p>　　password=request.form(&

132、quot;password")</p><p>　　aleave=request.form("aleave")</p><p>　　if admin="" or password="" then</p><p>　　response.write"<SCRIPT language=J

133、avaScript>alert('管理員名稱(chēng)和密碼都不能為空！');"</p><p>　　response.write"javascript:history.go(-1)</SCRIPT>"</p><p>　　Response.End</p><p><b>　　end if</b&

134、gt;</p><p>　　set rs=server.CreateObject("ADODB.RecordSet")</p><p>　　if request("act")="edit" and request.QueryString("id")<>"" then</p&

135、gt;<p>　　id=request("id")</p><p>　　sql="select * from admin where id="& request.QueryString("id")</p><p>　　rs.open sql,conn,3,2</p><p>　　if

136、not rs.eof then</p><p>　　rs("aleave")=aleave</p><p>　　rs("admin")=admin</p><p>　　rs("password")=encrypt(password)</p><p><b>　　rs.upd

137、ate</b></p><p><b>　　end if</b></p><p><b>　　rs.close</b></p><p>　　elseif request("act")="add" then</p><p>　　sql="s

138、elect * from admin where admin='"&admin&"'"</p><p>　　rs.open sql,conn,3,2</p><p>　　if (rs.eof and rs.bof) then</p><p><b>　　rs.addnew</b>&l

139、t;/p><p>　　rs("aleave")=aleave</p><p>　　rs("admin")=admin</p><p>　　rs("password")=encrypt(password)</p><p><b>　　rs.update</b><

140、/p><p><b>　　end if</b></p><p><b>　　rs.close</b></p><p><b>　　end if</b></p><p>　　set rs=nothing</p><p>　　conn.close</p&g