【正文】 Cate = () 39。 (1)包含 文件 在 的開始部分添加下面的代碼，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進(jìn)行身份驗(yàn)證。 錄入新聞類別和新聞內(nèi)容后， 的界面如圖 57 所示。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶將看到如下界面： 第三節(jié) 設(shè)計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權(quán)限的用戶才能進(jìn)入管理界面。 第二節(jié) 登錄程序設(shè)計 在對系統(tǒng)進(jìn)行管理之前，需要通過系 統(tǒng)的身份認(rèn)證。使用 DO WHIIlE 循環(huán)語句依次處理每個新聞類別，讀取此類別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標(biāo)題。?flag= + CStr(cid) + 39。_self39。設(shè)置返回頂部鏈接，跳轉(zhuǎn)到書簽 top p align=righta href=top返回頂部 /a 39。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。按提交時間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。100%39。顯示新聞類別標(biāo)題 stitle + ==/td/tr 39。cidamp。 cellspacing=1 cellpadding=2tr 39。生成表格 table width=39。依次顯示每個新聞類別中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。新聞管理/font/a /div table align=center width=100% cellspacing=0 cellpadding=0 border=0 tr td width=* valign=TOP % 39。font color=red新聞查詢 /font/a | a href=font color=red style=39。%=stitle%/font/a | % Loop % a href=39。TEXTDECORATION: none。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞類別供點(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。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。=====顯示所有新聞類別供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞 ===== 39。這樣，用戶就可以通過單擊鏈接直達(dá)新聞類別了。例如，類別編號為 1 的新聞類別的書簽名稱為al。如果新聞類別 較多，則網(wǎng)頁會被拉長，給用 戶閱讀帶來不便。 圖 56 的界面 下面介紹 的主要代碼。 第五章 系統(tǒng)主界面與登錄程序設(shè)計 第一節(jié) 設(shè)計主界面 本主界面為 ，它的功能是顯示新聞類別和每個類別中的 10 條新聞，并提供進(jìn)入管理界面 ()的鏈接。++39。+c+39。 如果沒有選擇字符，則在輸入新聞內(nèi)容的文本域中直接加入字體標(biāo)識，用戶可以在font和 ／ font之問添加相應(yīng)的文字，代碼如下： =39。/font39。39。font[space]face=39。 This 表示字體下拉菜單， this． selectedlndex表示當(dāng)前選擇的菜單項(xiàng)目索引，[].value 則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞?C 中。 OPTION selected value=宋體 宋體 /OPTION OPTION value=楷體 _GB2312楷體 /OPTION OPTION value=新宋體 新宋體 /OPTION OPTION value=黑體 黑體 /OPTION OPTION value=隸書 隸書 /OPTION OPTION value=Andale MonoAndale Mono/OPTION OPTION value=ArialArial/OPTION OPTION value=Arial BlackArial Black/OPTION OPTION value=Book AntiquaBook Antiqua/OPTION OPTION value=Century GothicCentury Gothic/OPTION OPTION value=Comic Sans MSComic Sans MS/OPTION OPTION value=Courier NewCourier New/OPTION OPTION value=GeiaGeia/OPTION OPTION value=ImpactImpact/OPTION OPTION value=TahomaTahoma/OPTION OPTION value=Times New RomanTimes New Roman/OPTION OPTION value=Trebuchet MSTrebuchet MS/OPTION OPTION value=Script MT BoldScript MT Bold/OPTION OPTION value=StencilStencil/OPTION OPTION value=VerdanaVerdana/OPTION OPTION value=Lucida ConsoleLucida Console/OPTION/SELECT 在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。} name=font style=39。++39。+c+39。}else { = 39。+().text+39。+c+39。) {().text=39。 if(().text!=39。 因?yàn)? 的代碼較多，這里僅以字體控制的代碼為例說明。nbsp；”，所以這里使用 [space]表示空格。 圖 5 的設(shè)計界面 在使用 時，設(shè)置指定的選項(xiàng)，將會在新聞內(nèi)容中生成相應(yīng)的 HTML 代碼。 可以實(shí)現(xiàn)這些功能。 使用 可以結(jié)束網(wǎng)頁的輸出。判斷用戶權(quán)限，是否可以維護(hù)新聞，管理員可以編輯所有新聞，編輯者只能修改自己的新聞 If rsNews(Poster) Session(UserName) Then 不是 Admin 或新聞的作者，無權(quán)修改！ End If End If End If % 如果當(dāng)前用戶是 Admin，則 不做任何操作；否則，程序?qū)⒏鶕?jù)參數(shù) Id讀取新聞信息，并將 Poster 字段的值與當(dāng)前用戶名進(jìn)行比較。根據(jù)新聞編號讀取新聞信息 set rsNews = () sql = SELECT * FROM News WHERE Id= amp。所以在修改和刪除新聞時，需要判斷當(dāng)前用戶是否是 Admin 或指 定新聞的作者。 的功能是判斷當(dāng)前用戶是否是 Admin，如果不是， 則中斷執(zhí)行；如果是，則不執(zhí)行任何操作，直接進(jìn)入包含它的網(wǎng)頁。 的代碼如下： % dim Conn dim ConnStr set Conn=() ConnStr=Provider=。 第二節(jié) 通用模塊 本實(shí)例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用include 語句包含這些模塊，使用其中定義的功能。 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 UserId 數(shù)字 用戶 ID 號 。 表 2 表 News 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Id 數(shù)字 新聞編號 2 Title 文本 新聞標(biāo)題 3 Content 備注 新聞內(nèi)容 4 PostTime 日期 /時間 提交時間 5 Poster 文本 提交人 6 CateId 數(shù)字 新聞類別編號 7 Attpic 文本 是否有圖片標(biāo)記 (0 沒有； 1 有 ) 8 Readcount 數(shù)字 閱讀次數(shù) 3．網(wǎng)友評論信息表 Discuss 網(wǎng)友評論信息表 Discuss 用來保存網(wǎng)友對新聞的評論信息，結(jié)構(gòu)如表 3 所示 。 1．新聞類別表 Category 新聞類別表 Category 用來保存新聞類別數(shù)據(jù)，結(jié)構(gòu)如表 1 所示。 第一節(jié) 創(chuàng)建數(shù)據(jù)庫 首先創(chuàng)建一個 Access 2020 數(shù)據(jù)庫 ，用來保存本系統(tǒng)的所有數(shù)據(jù)。 Admin 用戶擁有所有的權(quán)限，普通用戶只能對自己發(fā)布的新聞進(jìn)行管理，包括修改新聞內(nèi)容、刪除新聞和刪除網(wǎng)友評論。前臺系統(tǒng)不需要進(jìn)行身份認(rèn)證，任何人都可以通過瀏覽器閱讀已經(jīng)發(fā)布的新聞、發(fā)表網(wǎng)友評論。第 2個過程根據(jù)用戶的類型決定用戶的操作權(quán)限，從而決定用戶的工作界面。 (2)確定用戶的類型。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開 始，對用戶的身份進(jìn)行認(rèn)證。 用戶管理功能模塊的關(guān)系如圖 3 所示。在系統(tǒng)初始化時，有一個默認(rèn)的 “ 系統(tǒng)管理員 ” 用戶 Admin，由程序設(shè)計人員手動地添加到數(shù)據(jù)庫中。 圖 1 新聞發(fā)布及管理系統(tǒng)功能模塊示意圖 新聞發(fā)布及管理系統(tǒng)的功能模塊之間的關(guān)系如圖 2 所示。 第二節(jié) 系統(tǒng)功能模塊劃分 從功能描述的內(nèi)容可以看到，本實(shí)例可以實(shí)現(xiàn) 6個完整的功能。 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)頁中瀏覽新聞圖片。 第一節(jié) 系統(tǒng)功能描述 新聞發(fā)布及管理系統(tǒng)包括新聞類別管理、新聞發(fā)布管理、圖片處理、新聞查詢、網(wǎng)友評論和用戶管理等模塊。使用新聞發(fā)布及管理系統(tǒng)可以使新聞發(fā)布和管理變得很輕松，管理員只需設(shè)置標(biāo)題、內(nèi)容和圖片等新聞就可以了，系統(tǒng)將自動生成對應(yīng)的網(wǎng)頁。許多企業(yè)和個人網(wǎng)站也需要定期發(fā)布一些關(guān)于企業(yè)或網(wǎng)站的新聞。 (7) Error 對象和 Errors 集合：提供訪問數(shù)據(jù)庫時的錯誤信息。 (5) Field 對象和 Field 集合：提供對 RecordSet 中當(dāng)前記錄的各個字段進(jìn)行訪問的功能。 (3) Parameters 對象和 Parameters 集合：為 Command 對象提供數(shù)據(jù)和參數(shù)。 (1) Connection 對象：建立與后臺數(shù)據(jù)庫的連接。 6. Database Access 組件 ADO WWW上很重要的應(yīng)用是訪問 WEB 數(shù)據(jù)庫，用 ASP 訪問 WEB數(shù)據(jù)庫時，必須使用 ADO 組件， ADO 是 ASP 內(nèi)置的 ActiveX 服務(wù)器組件 (ActiveX Server Component)，通過在 WEB 服務(wù)器上設(shè)置 ODBC 和 OLEDB 可連接多種數(shù)據(jù)庫：如 SYBASE、 OR