【正文】 第三節(jié) 設(shè)計(jì)管理界面 管理界面的功能是對(duì)新聞?lì)悇e和新聞提供管理界面，只有有權(quán)限的用戶才能進(jìn)入管理界面。 第二節(jié) 登錄程序設(shè)計(jì) 在對(duì)系統(tǒng)進(jìn)行管理之前，需要通過系統(tǒng)的身份認(rèn)證。使用 DO WHIIlE循環(huán)語句依次處理每個(gè)新聞?lì)悇e，讀取此類別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標(biāo)題。?flag + CStr cid + 39。_self39。設(shè)置返回頂部鏈接，跳轉(zhuǎn)到書簽 top p align right a href top 返回頂部 39。20%39。 border 0 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。顯示新聞?lì)悇e標(biāo)題 stitle + 39。cidamp。 cellspacing 1 cellpadding 2 39。生成表格 table width 39。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle rsCate CateName cid rsCate CateId 39。 新聞管理 table align center width 100% cellspacing 0 cellpadding 0 border 0 td width * valign TOP % 39。 font color red 新聞查詢 | a href font color red style 39。 % stitle% | % 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% | % 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了。例如，類別編號(hào)為 1 的新聞?lì)悇e的書簽名稱為 al。如果新聞?lì)悇e 較多，則網(wǎng)頁會(huì)被拉長，給用戶閱讀帶來不便。 圖 56 的界面 下面介紹 的主要代碼。 系統(tǒng)主界面與登錄程序設(shè)計(jì) 第一節(jié) 設(shè)計(jì)主界面 本主界面為 ，它的功能是顯示新聞?lì)悇e和每個(gè)類別中的 10 條新聞，并提供進(jìn)入管理界面 的鏈接。+mye+39。+c+39。 如果沒有選擇字符，則在輸入新聞內(nèi)容的文本域中直接加入字體標(biāo)識(shí)，用戶可以在 和 ／ font 之問添加相應(yīng)的文字，代碼如下： mye 39。 39。 39。 font[space]face 39。 This 表示字體下拉菜單， this． selectedlndex 表示當(dāng)前選擇的菜單項(xiàng)目索引， [].value 則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞?C 中。 OPTION selected value 宋體 宋體 OPTION value 楷體 _GB2312 楷體 OPTION value 新宋體 新宋體 OPTION value 黑體 黑體 OPTION value 隸書 隸書 OPTION value Andale Mono Andale Mono OPTION value Arial Arial OPTION value Arial Black Arial Black OPTION value Book Antiqua Book Antiqua OPTION value Century Gothic Century Gothic OPTION value Comic Sans MS Comic Sans MS OPTION value Courier New Courier New OPTION value Geia Geia OPTION value Impact Impact OPTION value Tahoma Tahoma OPTION value Times New Roman Times New Roman OPTION value Trebuchet MS Trebuchet MS OPTION value Script MT Bold Script MT Bold OPTION value Stencil Stencil OPTION value Verdana Verdana OPTION value Lucida Console Lucida Console 在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。 name font style 39。+mye+39。+c+39。 else mye 39。+ .text+39。+c+39。 .text 39。 if .text! 39。 因?yàn)? 的代碼較多，這里僅以字體控制的代碼為例說明。nbsp；”，所以這里使用 [space]表示空格。 圖 5 的設(shè)計(jì)界面 在使用 時(shí)，設(shè)置指定的選項(xiàng)，將會(huì)在新聞內(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ù)新聞編號(hào)讀取新聞信息 set rsNews sql SELECT * FROM News WHERE Id amp。所以在修改和刪除新聞時(shí)，需要判斷當(dāng)前用戶是否是 Admin或指定新聞的作者。 的功能是判斷當(dāng)前用戶是否是Admin，如果不是，則中斷執(zhí)行；如果是，則不執(zhí)行任何操作，直接進(jìn)入包含它的網(wǎng)頁。PWD yourpassword。server local 。 1． 的功能是實(shí)現(xiàn)到數(shù)據(jù)庫的連接，因?yàn)樵诤芏嗑W(wǎng)頁中都有連接數(shù)據(jù)庫的操作，所以把它保存在文件 中，這樣可以避免重復(fù)編程。 第四章 目錄結(jié)構(gòu)與通用模塊 第一節(jié) 目錄結(jié)構(gòu) 在運(yùn)行實(shí)例時(shí)，需要將 web 目錄復(fù)制到 IIS/PWS 的根目錄下，例如 目錄下包含下面兩個(gè)子目錄： images 用于存儲(chǔ)上傳的新聞圖片； pic 用于存儲(chǔ)網(wǎng)頁中的圖片文件； 其他 ASP 和 HTM 文件都保存在 web 目錄下。 在執(zhí)行這些腳本之前，請(qǐng)確定數(shù)據(jù)庫 news 已經(jīng)存在，否則會(huì)產(chǎn)生錯(cuò)誤。39。39。11111139。Admin39。程序員在編寫程序的過程申，無需考慮標(biāo)識(shí)字段的值 。 3．創(chuàng)建表 Discuss 創(chuàng)建表 Discuss 的腳本文件為 ，它的代碼如下： USE news GO CREATE TABLE Discuss Id Int IDENTITY PRIMARY KEY, UserId Varchar 20 , Posttime Smalldatetime, Content Varchar 4000 , NewsId Int GO 在使用 CREATE TABLE 指令創(chuàng)建表時(shí)，通?？梢允褂?IDENTITY 關(guān)鍵字與PRIMARY KEY 關(guān)鍵字相結(jié)合，創(chuàng)建標(biāo)識(shí)字段。例如，表 News 中的 Title 字段將不能為空，否則在新聞列表中將出現(xiàn)一個(gè)空行。 2．創(chuàng)建表 News 創(chuàng)建表 News 的腳本文件為 ，它的代碼如下： USE news GO CREATE TABLE News Id Int IDENTITY PRIMARY KEY, Title Varchar 100 NOT NULL, Content Text, PostTime Datetime, Poster Varchar 50 , CateId Int, Attpic Int DEFAULT 0, ReadCount Int DEFAULT 0 GO 在使用 CREATE TABLE 指令創(chuàng)建表時(shí)，應(yīng) 該注意使用 NOT NULL 關(guān)鍵字定義表的未空字段。 1．創(chuàng)建表 Category 創(chuàng)建表 category 的腳本文件為 ，它的代碼如下： USE news GO CREATE TABLE Category CateId Int IDENTITY PRIMARY KEY, CateName Varchar 50 NOT NULL GO 在使用 CREATE TABLE 指令創(chuàng)建表時(shí)，應(yīng)該注意使用 PRIMARY KEY 關(guān)鍵字定義表的主鍵。 編號(hào) 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 ?UserId ?int 用戶ID 號(hào)。有些程序員習(xí)慣于使用 datetime 數(shù)據(jù)類型存儲(chǔ)日期時(shí)間數(shù)據(jù)，其實(shí)在精確度要求不高的情況下，使用 smalldatetime數(shù)據(jù)類型是足夠了。 表 3 表 Discuss 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 ?id ?int 評(píng)論編號(hào) 2 UserId ?varchar 20 評(píng)論人名稱 3 Posttime sinaildatetime 提交時(shí)間 4 ?Content varchar 4000 評(píng)論內(nèi)容 5 ?Newsld ?int 新聞編號(hào) 在 SQL?Server?2020 中，可以使用 datetime 和 smalldatetime 兩種數(shù)據(jù)類型存儲(chǔ)日期時(shí)間數(shù)據(jù)。 text 數(shù)據(jù)類型也是可變長度的，最多可為 2147483647 個(gè)字符。 char 和 varchar 只能存儲(chǔ)最多 8000 個(gè)字符，其中 char 用于存儲(chǔ)固定長度的字符數(shù)據(jù)， varchar 用于存儲(chǔ)可變長度的字符數(shù)據(jù)。 2．基本新 聞表 News 基本新聞表 News 用來保存網(wǎng)上新聞的基本信息，結(jié)構(gòu)如表 2 所示。這樣，如果修改CateName 字段的值，就需要同時(shí)修改其他所有表的相應(yīng)字段的值，從而造成不必要的麻煩。如果其他表需要引用表 Category 中的數(shù)據(jù)，則在表中添加一個(gè) CateId 字段就可以了。 表 1 表 Category 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 CateId int 新聞?lì)悇e編號(hào) 2 CateName varchar 50 新聞?lì)悇e名稱 ? 在設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)時(shí)，很多表都需要設(shè)計(jì)一個(gè)整型字段作為標(biāo)識(shí)列，這幾乎已經(jīng)成為慣例， 例如表Category 中的 CateId 字段。 下面分別介紹這些表的結(jié)構(gòu)。創(chuàng)建數(shù)據(jù)庫的腳本代碼如下： CREATE DATABASE news GO 可以在 SQL 查詢分析器中執(zhí)行該語句，創(chuàng)建數(shù)據(jù)庫。 圖 4 后臺(tái)系統(tǒng)的流程分析 第