新聞發布及管理系統—免費畢業設計論文(編輯修改稿)

　

【文章內容簡介】 后臺系統 新聞發布管理 發布文字信息 發 布新聞圖片 數據庫 前臺系統 新 發 聞 布 查 網 詢 友 管 評 理 論 創建和修改普通用戶信息 修改自身的用戶名和密碼 新聞類別管理 系統用戶信息管理 修改 Admin 用戶的密碼 重試 圖 4 后臺系統流程分析圖 第五章 數據庫結構設計與實現 創建數據庫 本系統使用的是 SQL Server2020 作為系統數據庫。首先用戶創建 一個名為news 的數據庫，保存新聞發布及管理系統的所有數據?？梢栽?SQL Server 的企業管理器中直接創建，也可以在 SQL Server 的查詢分析器中執行以下腳本，創建數據庫。 CREATE DATABASE news GO 數據庫邏輯結構設計 本系統包含新聞類別表 Category、新聞信息表 News、網友評論表 Discuss和用戶表 Users 四個表。本節將介紹這些表的結構。 新聞類別表 Category 新聞類別表用來保存新聞類別數據，其結構如表 1所示。 表 1 Category 表 字段名 字段類型 字段長 說明 用戶登錄 開 始 CateId int 4 CateName varchar 50 新聞信息表 News 新聞信息表用來保存新聞的基本信息，如新聞標題、內容、發布時間等，具體結構如表 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 該表用來保存網友對新聞發表的評論， 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 電子郵箱 第六章 目錄結構與通過用模塊 設計 本小節將介紹新聞發布管理系統的目錄結構和一些通過模塊 目錄結構 本系統中的所有 ASP 文件都保存在主目錄下，主目錄名由用戶決定。此外，在主目錄下還包含兩個子目錄 ： ? 存儲上傳的新聞圖片。 ? 存儲網頁中的圖片文件。 通用模塊 新聞發布系統中還包含一些通過學習用模塊。用戶可以在其他文件中直接使用 include 語句包含這些模塊，使用其定義的功能。 文件 ，其內容如下： dim Conn dim ConnStr set Conn=() ConnStr=DRIVER={SQL Server}。Server=(local)。UID=sa。PWD=ustb。Database=news ConnStr % 文件 文件包含的功能是判斷用戶是否是 Admin 用戶。如果是，則進入包含它的網頁；如果不是，則中斷執行。使用時，用戶只需在所有只有 Admin用戶才有權執行操作的網頁中，使用 include 包含該文件。 代碼如下： % If Session(UserName) Admin Then (不是 Admin用戶，沒有此權限 ) End If % 文件 在修改、刪除新聞時，要判斷當前用戶是否為 Admin 用戶或者發表新聞的作者。 完成該功能。如果當前用戶是 Admin，則不做任何操作。如果不是 Admin，程序將根據 Id 參數讀取新聞，并將 Poster 字段的值和 Session 中的當前用戶進行比較。如果指定新聞不存在或當前用戶不是指定新聞的作者， 文件將中斷程序執行。 代碼如下： % 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。如果字節數小于 1，則退出 if 1 then Exit Sub 39。定義 Stream對象 set tStream =