【正文】 ，將根據(jù)用戶類型顯示管理鏈接，包括“更改密碼”、“類別管理”、“用戶管理”和“退出登錄”，只有Admin用戶才能看到“類別管理”和“用戶管理”鏈接。%=stitle%/font/a % Loop% ，參數(shù)flag表示新聞?lì)悇e。TEXTDECORATION: none。?flag=%=cid%39。設(shè)置SQL語句， sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。定義變量 Dim iflag,sql_where 39。!include file=!include file=顯示新聞?lì)悇e鏈接，每個(gè)新聞?lì)悇e只顯示最新的20條新聞。?flag= + CStr(cid) + 39。_self39。 39。amp。amp。設(shè)置返回頂部鏈接，跳轉(zhuǎn)到書簽top p align=righta href=top返回頂部/aamp。20%39。 border=0/td End If 39。 ALT=39。3天內(nèi)新聞標(biāo)記new圖片 If datediff(d, rs(Posttime), ndate+time()) = 0 Then img SRC=39。 + rs(Title) + 39。 href=39。return newwin()。50%39。只顯示10條新聞 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。按提交時(shí)間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。100%39。==/td/tr 39。顯示新聞?lì)悇e標(biāo)題 stitle + amp。nbsp。nbsp。cidamp。 cellspacing=1 cellpadding=2tr 39。生成表格 table width=39。依次顯示每個(gè)新聞?lì)悇e中最新的10條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。新聞管理/font/a /divtable align=center width=100% cellspacing=0 cellpadding=0 border=0tr td width=* valign=TOP% 39。a href=font color=red style=39。font color=red新聞查詢/font/a |amp。%=stitle%/font/a | % Loop%a href=39。TEXTDECORATION: none。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞===== 39。當(dāng)然，如果新聞的內(nèi)容經(jīng)常更新，則可以將3天改為1天。TEXTDECORATION: none39。在FrontPage中選擇“插入”/“書簽”菜單項(xiàng)，可以在指定位置插入書簽。%=stitle%/font/a | % Loop% 如果網(wǎng)頁中顯示的內(nèi)容較多，通常需要通過定義書簽的方法使用戶快速到達(dá)指定的位置。TEXTDECORATION: none。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞===== 39。這樣，用戶就可以通過單擊鏈接直達(dá)新聞?lì)悇e了。例如，類別編號為1的新聞?lì)悇e的書簽名稱為al。如果新聞?lì)悇e較多，則網(wǎng)頁會被拉長，給用戶閱讀帶來不便。判斷用戶權(quán)限，是否可以維護(hù)新聞，管理員可以編輯所有新聞，編輯者只能修改自己的新聞 If rsNews(Poster) Session(UserName) Then 不是Admin或新聞的作者，無權(quán)修改！ End If End If End If% ，它的功能是顯示新聞?lì)悇e和每個(gè)類別中的10條新聞，并提供進(jìn)入管理界面()的鏈接。根據(jù)新聞編號讀取新聞信息 set rsNews = () sql = SELECT * FROM News WHERE Id= amp。所以在修改和刪除新聞時(shí)，需要判斷當(dāng)前用戶是否是Admin或指定新聞的作者。如果不是，則中斷執(zhí)行；如果是，則不執(zhí)行任何操作，直接進(jìn)入包含它的網(wǎng)頁。PWD=yourpassword。server=(local)。 ，因?yàn)樵诤芏嗑W(wǎng)頁中都有連接數(shù)據(jù)庫的操作，這樣可以避免重復(fù)編程。圖45 新聞?lì)悇e管理界面5 新聞發(fā)布界面設(shè)計(jì) 系統(tǒng)用戶都可以發(fā)布新聞，新聞發(fā)布管理模塊包含以下功能： 添加新聞的運(yùn)行界面如圖46所示。其界面如圖43所示：圖43 登錄界面4 新聞管理界面設(shè)計(jì) 管理界面的功能是對新聞?lì)悇e和新聞提供管理界面，只有有權(quán)限的用戶才能進(jìn)入管理界面。 錄入新聞?lì)悇e和新聞內(nèi)容后。圖41 ，設(shè)置指定的選項(xiàng)，將會在新聞內(nèi)容中生成相應(yīng)的HTML代碼。圖41 添加新聞?lì)悇e程序流程圖圖42添加新聞流程圖圖43查詢新聞程序流程圖 界面設(shè)計(jì)1. 通用模塊的設(shè)計(jì) 本實(shí)例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用include語句包含這些模塊，使用其中定義的功能。前臺系統(tǒng)不需要進(jìn)行身份認(rèn)證，任何人都可以通過瀏覽器閱讀已經(jīng)發(fā)布的新聞、發(fā)表網(wǎng)友評論。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始，對用戶的身份進(jìn)行認(rèn)證.。AuNameAuIdidCateIdTimeDataidCateIdEmailEnameUserPwdUserNameUserIdNewsldvarchar(20)評論人名稱3Posttimesinaildatetime提交時(shí)間4idPostTimedatetime新聞標(biāo)題3Idint 說明1字段名稱數(shù)據(jù)結(jié)構(gòu)1．新聞?lì)悇e表Category 新聞?lì)悇e表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1CateIdint新聞?lì)悇e編號2CateNamevarchar (50)新聞?lì)悇e名稱 數(shù)據(jù)庫設(shè)計(jì) 概念結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)涉及到得實(shí)體有：管理員、新聞、欄目等實(shí)體,各實(shí)體的ER圖如下。5．網(wǎng)友留言模塊：(1)網(wǎng)友對某條新聞發(fā)表評論； (2)管理員可刪除新聞評論。2．新聞發(fā)布管理：(1)基本新聞信息的錄入，包括新聞標(biāo)題、新聞內(nèi)容和所屬類別等；(2)基本新聞信息的修改； (3)基本新聞信息的刪除；3．圖片處理模塊：(1)選擇圖片文件； (2)上傳圖片文件；(3)存儲圖片新聞； (4)修改新聞圖片；(5)刪除新聞圖片； (6)在網(wǎng)頁中瀏覽圖片。學(xué)校新聞發(fā)布管理系統(tǒng)新聞?lì)悇e管理新聞發(fā)布及管理圖片處理模塊新聞查詢模塊網(wǎng)友評論模塊系統(tǒng)用戶管理圖31 新聞發(fā)布系統(tǒng)功能模塊圖 圖32 新聞發(fā)布系統(tǒng)各模塊關(guān)系圖 各功能模塊描述 學(xué)校新聞發(fā)布管理系統(tǒng)包括新聞?lì)悇e管理、新聞發(fā)布管理、圖片處理、新聞查詢、網(wǎng)友評論和用戶管理等模塊。 數(shù)據(jù)流圖 圖21 頂層數(shù)據(jù)流圖圖22 一層數(shù)據(jù)流圖圖23 一層數(shù)據(jù)流圖 數(shù)據(jù)字典（1） 數(shù)據(jù)存儲定義如下數(shù)據(jù)存儲名稱：管理員信息編號：D1輸入：管理員登錄名及密碼 輸出：查詢、發(fā)布新聞信息數(shù)據(jù)結(jié)構(gòu)：管理員名稱+管理員編碼+登錄密碼+登錄日期說明：管理員信息由專人維護(hù)，維護(hù)系統(tǒng)不在本系統(tǒng)范圍內(nèi)數(shù)據(jù)存儲名稱：友情鏈接信息表編號：D2輸入： 輸出：友情連接到的的網(wǎng)站信息數(shù)據(jù)結(jié)構(gòu)：數(shù)據(jù)ID+鏈接圖片路徑+鏈接的名稱+鏈接地址+鏈接日期說明：幫助需要的讀者鏈接到必要的網(wǎng)站，幫助他們找到適合的信息數(shù)據(jù)存儲名稱：新聞信息表編號：D3輸入：新聞內(nèi)容、發(fā)布時(shí)間等 輸出：新聞內(nèi)容、發(fā)布時(shí)間等數(shù)據(jù)結(jié)構(gòu)：新聞編號+新聞?lì)愋途幪?新聞標(biāo)題+新聞內(nèi)容+作者+發(fā)布時(shí)間 +瀏覽次數(shù)+是否有圖片說明：新聞編號是唯一的數(shù)據(jù)存儲名稱：登錄信息表編號：D4輸入：登陸讀者相關(guān)信息 輸出：登陸記錄數(shù)據(jù)結(jié)構(gòu)：登錄時(shí)間+登錄人編號+登陸次數(shù)說明：便于系統(tǒng)的維護(hù)與管理數(shù)據(jù)存儲名稱：作者信息表編號：D5輸入：新聞發(fā)布作者相關(guān)信息 輸出：作者信息記錄數(shù)據(jù)結(jié)構(gòu)：作者編號+作者名稱+投稿日期+作品類型編號說明：便于系統(tǒng)對作者信息的維護(hù)與管理數(shù)據(jù)存儲名稱：新聞?lì)愋捅砭幪枺篋6輸入：新聞分類 輸出：各類新聞信息數(shù)據(jù)結(jié)構(gòu)：新聞?lì)愋途幪?作者編號+新聞?lì)愋兔Q說明：便于系統(tǒng)對新聞信息的維護(hù)與管理數(shù)據(jù)存儲名稱：瀏覽量統(tǒng)計(jì)表編號：D7輸入：每月新聞閱讀量的統(tǒng)計(jì)值 輸出：新聞瀏覽量統(tǒng)計(jì)報(bào)表數(shù)據(jù)結(jié)構(gòu)：瀏覽時(shí)間+瀏覽次數(shù)+新聞編號說明：便于系統(tǒng)對新聞信息的統(tǒng)計(jì)與管理數(shù)據(jù)存儲名稱：網(wǎng)友評論信息表編號：D8輸入：網(wǎng)友評論的相關(guān)內(nèi)容 輸出：網(wǎng)友評論的統(tǒng)計(jì)報(bào)表數(shù)據(jù)結(jié)構(gòu)：評論編號+評論人名稱+評論時(shí)間+評論內(nèi)容+新聞編號說明：便于系統(tǒng)對網(wǎng)友評論信息的維護(hù)與管理（2） 數(shù)據(jù)項(xiàng)定義 管理員記錄數(shù)據(jù)項(xiàng)名稱 類型 長度 注明管理員名稱 字符型 20 限英文字符和漢字管理員編號 字符型 4 唯一管理員密碼 字符型 50 登錄日期 日期型 20 限英文字符和漢字友情鏈接信息數(shù)據(jù)項(xiàng)名稱 類型 長度 注明友情鏈接編號 字符型 50 唯一友情鏈接路徑 字符型