【文章內容簡介】 后臺系統 新聞發(fā)布管理 發(fā)布文字信息 發(fā) 布新聞圖片 數據庫 前臺系統 新 發(fā) 聞 布 查 網 詢 友 管 評 理 論 創(chuàng)建和修改普通用戶信息 修改自身的用戶名和密碼 新聞類別管理 系統用戶信息管理 修改 Admin 用戶的密碼 重試 圖 4 后臺系統流程分析圖 第五章 數據庫結構設計與實現 創(chuàng)建數據庫 本系統使用的是 SQL Server2020 作為系統數據庫。首先用戶創(chuàng)建 一個名為news 的數據庫，保存新聞發(fā)布及管理系統的所有數據。可以在 SQL Server 的企業(yè)管理器中直接創(chuàng)建，也可以在 SQL Server 的查詢分析器中執(zhí)行以下腳本，創(chuàng)建數據庫。 CREATE DATABASE news GO 數據庫邏輯結構設計 本系統包含新聞類別表 Category、新聞信息表 News、網友評論表 Discuss和用戶表 Users 四個表。本節(jié)將介紹這些表的結構。 新聞類別表 Category 新聞類別表用來保存新聞類別數據，其結構如表 1所示。 表 1 Category 表 字段名 字段類型 字段長 說明 用戶登錄 開 始 CateId int 4 CateName varchar 50 新聞信息表 News 新聞信息表用來保存新聞的基本信息，如新聞標題、內容、發(fā)布時間等，具體結構如表 2 所示。 表 2 News 表 字段名 字段類型 字段長 說明 Id int 4 新聞編號，系統自動編號 Title varchar 100 新聞標題 Content Text 16 新聞內容 PostTime Datetime 8 提交時間 Poster Varchar 50 提交人 CateId Int 4 新聞類別編號 Attpic Bit 4 是否有圖片： 0：沒有； 1：有 Readcount int 4 閱讀次數 網友評論表 Discuss 該表用來保存網友對新聞發(fā)表的評論， Discuss 表的結構如表 3所示。 表 3 Discuss 表 字段名 字段類型 字段長 說明 Id int 4 評論文章編號，系統自 動生成 UserId varchar 20 評論人 Posttime smaaldatetime 4 提交時間 content varchar 4000 評論內容 NewsId Int 4 新聞編號 在 Discuss 表中使用了 Smalldatetime 數據類型存儲日期時間數據，該類型可以存儲從 1900年 1月 1日到 2079年 6月 6日的日期和時間數據，精確到分鐘；datetime 類型可以存儲從 1753 年 1 月 1 日到 9999 年 12月 31 日的日期和時間數據，精確到 。在精確度要求不高的情況下使用 smalldatetime 數據類型就足夠了。 用戶表 Users Users 用來保存用戶的基本信息，如表 4所示。 表 4 Users 表 字段名 字段類型 字段長 說明 UserId int 4 用戶 ID，系統自動編號 UserName varchar 50 用戶名 UserPwd varchar 50 密碼 Ename varchar 50 用戶姓名 Email varchar 50 電子郵箱 第六章 目錄結構與通過用模塊 設計 本小節(jié)將介紹新聞發(fā)布管理系統的目錄結構和一些通過模塊 目錄結構 本系統中的所有 ASP 文件都保存在主目錄下，主目錄名由用戶決定。此外，在主目錄下還包含兩個子目錄 ： ? 存儲上傳的新聞圖片。 ? 存儲網頁中的圖片文件。 通用模塊 新聞發(fā)布系統中還包含一些通過學習用模塊。用戶可以在其他文件中直接使用 include 語句包含這些模塊，使用其定義的功能。 文件 ，其內容如下： dim Conn dim ConnStr set Conn=() ConnStr=DRIVER={SQL Server}。Server=(local)。UID=sa。PWD=ustb。Database=news ConnStr % 文件 文件包含的功能是判斷用戶是否是 Admin 用戶。如果是，則進入包含它的網頁；如果不是，則中斷執(zhí)行。使用時，用戶只需在所有只有 Admin用戶才有權執(zhí)行操作的網頁中，使用 include 包含該文件。 代碼如下： % If Session(UserName) Admin Then (不是 Admin用戶，沒有此權限 ) End If % 文件 在修改、刪除新聞時，要判斷當前用戶是否為 Admin 用戶或者發(fā)表新聞的作者。 完成該功能。如果當前用戶是 Admin，則不做任何操作。如果不是 Admin，程序將根據 Id 參數讀取新聞，并將 Poster 字段的值和 Session 中的當前用戶進行比較。如果指定新聞不存在或當前用戶不是指定新聞的作者， 文件將中斷程序執(zhí)行。 代碼如下： % If Session(UserName) Admin Then NewsId = Request(Id) 39。根據新聞編號讀取新聞信息 set rsNews = () sql = SELECT * FROM News WHERE Id= amp。 Trim(NewsId) set rsNews = (sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。判斷用戶權限，是否可以維護新聞，管理員可以編輯所有新聞，編輯者只能修改自己的新聞 If rsNews(Poster) Session(UserName) Then 不是 Admin或新聞的作者，無權修改！ End If End If End If % 文件 文件的功能是修改新聞的字體、字號、顏色和排列位置等屬性。 文件的界面如圖 5 所示。 文件的內容如下： 字體 SELECT onChange=var c=[].value。 if(().text!=39。39。) {().text=39。font[space]face=39。+c+39。39。+ge().text+39。/font39。} else { = 39。font[space]face=39。+c+39。39。++39。/font39。} name=font style=39。FONTSIZE: 9pt39。 option value=宋體 selected宋體 /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 ?? 文件的下拉菜單中，定義了系統支持的字體名稱。根據下拉菜單中的選定值的不同，有對應的 JavaScript 代碼。 This 表示下拉菜單， 表 示 當 前 選 擇 的 菜 單 項 目 。 [].value 表示選擇下拉菜單的值，保存在變量“ C”中。 ().text 表示當前選擇字符的內容。如果不為空，則在兩側添加字體標示 font和 /font。 在添加、修改新聞內容 的網頁中，必須將表單定義為 myform，新聞內容的多行文本框必須定義為 txtcontent。在其他文件中需要顯示控制模板的位置使用include 引用此文件。 文件 文件的功能是從客戶端上傳文件到服務器指定目錄，實現無組件上傳。 文件包含 2 個類； 和FileInfo。在類 Upload_5xsoft 初始化時，程序從上傳表單中讀取文件信息，類Upload_5xsoft 中的 Class_initialize 方法用于實現這一功能。類 FileInfo 的主要功能是取得文件信息。 Upload_5xsoft 文件代碼如下： SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim Data_5xsoft Class upload_5xsoft dim objForm,objFile,Version Public function Form(strForm) strForm=lcase(strForm) if not (strForm) then Form= else Form=objForm(strForm) end if end function Public function File(strFile) strFile=lcase(strFile) if not (strFile) then set File=new FileInfo else set File=objFile(strFile) end if end function Private Sub Class_Initialize dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile dim iFileSize,sFilePath,sFileType,sFormValue,sFileName dim iFindStart,iFindEnd dim iFormStart,iFormEnd,sFormName Version=化境 HTTP上傳程序 Version 39。定義 Dictionary對象 set objForm=() set objFile=() 39。如果字節(jié)數小于 1，則退出 if 1 then Exit Sub 39。定義 Stream對象 set tStream =