【正文】 ，例如 目錄下包含下面兩個子目錄： images 用于存儲上傳的新聞圖片； pic 用于存儲網(wǎng)頁中的圖片文件； 其他 ASP 和 HTM 文件都保存在 web 目錄下。 通用模塊 本實例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用 include 語句包含這些模塊，使用其中定義的功能。 1． 的功能是實現(xiàn)到數(shù)據(jù)庫的連接，因為在很多網(wǎng)頁中都有連接數(shù)據(jù)庫 的操作，所以把它保存在文件 中，這樣可以避免重復(fù)編程。 的代碼如下： % dim Conn dim ConnStr set Conn=()ConnStr=driver={SQL Server}。server=(local)。UID=sa。PWD=yourpassword。Database=news ConnStr % 在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫，代碼如下 ： !include File= 2． 因為本實例中有些功能只有 Admin 用戶才有權(quán)限使用，所以在進(jìn)入這些網(wǎng)頁之前，需要判斷用戶是否是 Admin。 的功能是判斷當(dāng)前用戶是否是 Admin，如果不是，則中斷執(zhí)行；如果是，則不執(zhí)行任何操作，直接進(jìn)入包含它的網(wǎng)頁。 東華理工大學(xué) 總體設(shè)計 的代碼如下： % If Session(UserName) Admin Then (不是 Admin 用戶，沒有此權(quán)限 ) End If % 在文件中引用此文件作為頭文件，代碼如下 : !include File= 3． 在修改和刪除新聞時，除了 Admin 用戶擁有所有權(quán)限外，其他用戶只能修改自己創(chuàng)建的新聞。所以在修改和刪除新聞時，需要判斷當(dāng)前用戶是否是 Admin或指定新聞的作者。 可以實現(xiàn)此功能，代碼如下： % If Session(UserName) Admin Then NewsId = Request(Id) 39。根據(jù)新聞編號讀取新聞信息 set rsNews = () sql = SELECT * FROM News WHERE Id= amp。 Trim(NewsId) set rsNews=(sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。判斷用戶權(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)行比較。在兩種情況下， 將阻止程序繼續(xù)執(zhí)行： (1)指定新聞不存在； (2)當(dāng)前用戶不是指定新聞的作者。 使用 可以結(jié)束網(wǎng)頁的輸出。 在文件中引用此文件作為頭文件，代碼如下： 東華理工大學(xué) 總體設(shè)計 !include File= 4． 在添加和修改新聞 內(nèi)容時，需要對字體、字號、顏色和排列位置等屬性進(jìn)行設(shè)置。 可以實現(xiàn)這些功能。 的設(shè)計界面如圖 5 所示。 圖 5 的設(shè)計界面 在使用 時，設(shè)置指定的選項，將會在新聞內(nèi)容中生成相應(yīng)的 HTML 代碼。例如，選中正文 abc，然后選擇“楷體”、“ 1 號字”，將生成如下代碼： font[space]face=楷體 _GB2312font[space]size=1abc/font/font [space]是自定義的符號 ，因為空格在轉(zhuǎn)換成 HTML 格式時，將被替換為“ amp。nbsp；”，所以這里使用 [space]表示空格。在顯示新聞內(nèi)容時，程序?qū)詣訉?[space]轉(zhuǎn)換為空格。 因為 的代碼較多，這里僅以字體控制的代碼為例說明。相關(guān)代碼如下： 字體 SELECT onChange=var c=[].value。 if(().text!=39。39。) {().text=39。font[space]face=39。+c+39。39。+().text+39。/font39。}else { = 39。font[space]face=39。+c+39。39。++39。/font39。} name=font style=39。FONTSIZE: 9pt39。 OPTION selected value=宋體 宋體 /OPTION OPTION value=楷體 _GB2312楷體 /OPTION OPTION value=新宋體 新宋體 /OPTION OPTION value=黑體 黑體 /OPTION 東華理工大學(xué) 總體設(shè)計 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東華理工大學(xué) 數(shù)據(jù)庫結(jié)構(gòu)與設(shè)計 四 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計與實現(xiàn) 此部分由章俊設(shè)計與實現(xiàn) 創(chuàng)建數(shù)據(jù)庫 首先創(chuàng)建一個數(shù)據(jù)庫 news，用來保存本系統(tǒng)的所有數(shù)據(jù)。創(chuàng)建數(shù)據(jù)庫的腳本代碼如下： CREATE DATABASE news GO 可以在 SQL 查詢分析器中執(zhí)行該語句，創(chuàng)建數(shù)據(jù)庫。 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 本系統(tǒng)定義的數(shù)據(jù)庫 中包含以下 4 個表：新聞類別表： Category、新聞基本信息表： News、網(wǎng)友評論信息表： Discuss 和用戶信息表： users。 下面分別介紹這些表的結(jié)構(gòu)。 1．新聞類別表 Category 新聞類別表 Category 用來保存新聞類別數(shù)據(jù)，結(jié)構(gòu)如表 1 所示。 表 1 表 Category 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 CateId int 新聞類別編號 2 CateName varchar (50) 新聞類別名稱 在設(shè)計數(shù)據(jù)庫結(jié)構(gòu)時，很多表都需要設(shè)計一個整型字段作為標(biāo)識列，這幾乎 已經(jīng)成為慣例，例如表 Category 中的 CateId 字段。所謂標(biāo)識列，就是可以惟一標(biāo)識一行記錄的列，在表中不會存在兩條標(biāo)識列相同的記錄。如果其他表需要引用表 Category 中的數(shù)據(jù)，則在表中添加一個 CateId 字段就可以了。有的程序設(shè)計人員習(xí)慣于直接使用名稱字段作為標(biāo)識列，例如表 Category 中的 CateName字段。這樣，如果修改 CateName 字段的值，就需要同時修改其他所有表的相應(yīng)字段的值，從而造成不必要的麻煩。在系統(tǒng)中， CateId 字段對于用戶來說是透明的，用戶感覺不到它的存在，也無法對其進(jìn)行修改 。 2．基本新聞表 News 基本新聞表 News 用來保存網(wǎng)上新聞的基本信息，結(jié)構(gòu)如表 2 所示。 表 2 表 News 的結(jié)構(gòu) 東華理工大學(xué) 數(shù)據(jù)庫結(jié)構(gòu)與設(shè)計 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Id int 新聞編號 2 Title varchar(100) 新聞標(biāo)題 3 Content text 新聞內(nèi)容 4 PostTime datetime 提交時間 5 Poster varchar(50) 提交人 6 CateId int 新聞類別編號 7 Attpic bit 是否有圖片標(biāo)記 (0 沒有； 1 有 ) 8 Readcount int 閱讀次數(shù) 在 SQL Server 2020 中，可以使用 char、 varchar 和 text 等 3 種數(shù)據(jù)類型存儲非 Unicode 字符數(shù)據(jù)。 char 和 varchar 只能存儲最多 8000 個字符，其中 char用于存儲固定長度的字符數(shù)據(jù)， varchar 用于存儲可變長度的字符數(shù)據(jù)。如果需要存儲的數(shù)據(jù)很大，則可以使用 text 數(shù)據(jù)類型，例如表 News 中的 Content 字符，因為新聞內(nèi)容的數(shù)據(jù)量通常會超過 8000 個字符。 text 數(shù)據(jù)類型也是可變 長度的，最多可為 2147483647 個字符。 3．網(wǎng)友評論信息表 Discuss 網(wǎng)友評論信息表 Discuss 用來保存網(wǎng)友對新聞的評論信息，結(jié)構(gòu)如表 3 所示。 表 3 表 Discuss 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 id int 評論編號 2 UserId varchar(20) 評論人名稱 3 Posttime sinaildatetime 提交時間 4 Content varchar(4000) 評論內(nèi)容 5 Newsld int 新聞編號 在 SQL Server 2020 中，可以使用 datetime 和 smalldatetime 兩種數(shù)據(jù)類型存儲日期時間數(shù)據(jù)。 datetime 數(shù)據(jù)類型用于存儲從 1753 年 1 月 1 日到 9999 年 12月 31 日的日期和時間數(shù)據(jù)，精確到 3． 33ms； smalldatetime 數(shù)據(jù)類型用于存儲從 1900 年 1 月 1 日到 2079 年 6 月 6 日的日期和時間數(shù)據(jù)，精確到分鐘。有些程序員習(xí)慣于使用 datetime 數(shù)據(jù)類型存儲日期時間數(shù)據(jù)，其實在精確度要求不高的情況下，使用 smalldatetime 數(shù)據(jù)類型是足夠了。 4．．用戶信息表 Users 用戶信息表 Users 用來保存用戶的基本信息，結(jié)構(gòu)如表 8． 4 所示。 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 UserId int 用戶 ID 號 。 東華理工大學(xué) 數(shù)據(jù)庫結(jié)構(gòu)與設(shè)計 2 UserName varchar(50) 用戶名 3 UserPwd varcahr(50) 密碼 4 Ename varchar(50) 用戶姓名 5 Email varchar(50) 電子郵箱 東華理工大學(xué) 數(shù)據(jù)庫結(jié)構(gòu)與設(shè)計 16 五：系統(tǒng)主界面與登錄程序設(shè)計 此部分由吳春清設(shè)計與實現(xiàn) 設(shè)計主界面 本主界面為 ，它的功能是顯示新聞 類別和每個類別中的 10 條新聞，并提供進(jìn)入管理界面 ()的鏈接。 錄入新聞類別和新聞內(nèi)容后， 的界面如圖 56 所示。 圖 56 的界面 下面介紹 的主要代碼。 1．顯示新聞類別鏈接