【正文】 設(shè)置分頁顯示，每頁顯示 20 條新聞記錄 = 20 39。 sql_where amp。 iflag amp。 tr td width=56% align=center bgcolor=FEEC85strong 題 目/strong/td td width=24% align=center bgcolor=FEEC85strong 時 間/strong/td td width=10% align=center bgcolor=FEEC85strong 修 改/strong/td td width=10% align=center bgcolor=FEEC85strong選擇 /td /tr % 39。 End If % a href=39。如果不 是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設(shè)置 WHERE 子句的條件 sql_where = Poster=39。39。font color=red新聞查詢 /font/a a href=39。TEXTDECORATION: none。設(shè)置 SQL語句，讀取所有的新聞類別到 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。39。100%39。FONTSIZE:12pt39。 for(j=0。 for(j=0。 return false。 //轉(zhuǎn)換為字符串 //生成要刪除新聞編號的列表 if(n==1) { strid = Newsid。 j。 //用來記錄是否存在被選中的復(fù)選框 var Newsid, n=0。 var newwin=(url,newwin,oth)。 } else { hth=600。 } else if(wth==800) { hth=500。 if(wth==1024) { hth=600。 charset=gb2312 title新聞管理 /title meta name=GENERATOR content=Microsoft FrontPage link rel=stylesheet href= script language=javascript function newwin(url) { var wth=。在管理界面中可以添加、刪除新聞類別和新聞內(nèi)容。 登錄程序設(shè)計 必須通過系統(tǒng)身份驗證，才能對系統(tǒng)進行管理。使用 Do while 語句依次處理每個新聞類別，讀取該類別中所有新聞信 息到記錄集 rs 中，并顯示新聞標(biāo)題。單擊每個新聞類別右下方的“更多新聞”鏈接，可以閱讀該類別的所有新聞，如圖 7所示。釋放資源 Set rs = nothing Set rsCate = nothing % p align=centera href=javascript:close()[關(guān)閉 ]/a /body /html 下面介紹 文件的主要功能 顯示新聞類別鏈接 系統(tǒng)能將新聞分類顯示，每個新聞類別顯示最新的 5條新聞。_self39。20%39。 ALT=39。 + rs(Title) + 39。return newwin()。只顯示 5條新聞 If t 6 Then Dim ndate ndate = DateAdd(d,3,date()) 39。按提交時間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。顯示新聞類別標(biāo)題 stitle + ==/td/tr 39。 cellspacing=1 cellpadding=2tr 39。依次顯示每個新聞類別中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。font color=red新聞查詢 /font/a | a href=font color=red style=39。TEXTDECORATION: none。=====顯示所有新聞類別供點擊，點擊不同類別顯示該類別的新聞 ===== 39。 ()。 wth=500。 lefth =35。 lefth =147。 charset=gb2312 link href= rel=stylesheet script language=JavaScript function newwin(url) { var wth=。, amp。如果是文件 if InStr (45,sInfo,filename=,1) 0 then set theFile=new FileInfo 39。使用循環(huán)語句，依次讀取文件數(shù)據(jù) iFormStart = 1 iFormEnd = LenB(RequestData) vbCrlf = chrB(13) amp。如果字節(jié)數(shù)小于 1，則退出 if 1 then Exit Sub 39。在類 Upload_5xsoft 初始化時，程序從上傳表單中讀取文件信息，類Upload_5xsoft 中的 Class_initialize 方法用于實現(xiàn)這一功能。 在添加、修改新聞內(nèi)容 的網(wǎng)頁中，必須將表單定義為 myform，新聞內(nèi)容的多行文本框必須定義為 txtcontent。 This 表示下拉菜單， 表 示 當(dāng) 前 選 擇 的 菜 單 項 目 。} name=font style=39。+c+39。+ge().text+39。) {().text=39。 文件的界面如圖 5 所示。 代碼如下： % If Session(UserName) Admin Then NewsId = Request(Id) 39。 完成該功能。Database=news ConnStr % 文件 文件包含的功能是判斷用戶是否是 Admin 用戶。 文件 ，其內(nèi)容如下： dim Conn dim ConnStr set Conn=() ConnStr=DRIVER={SQL Server}。此外，在主目錄下還包含兩個子目錄 ： ? 存儲上傳的新聞圖片。 表 3 Discuss 表 字段名 字段類型 字段長 說明 Id int 4 評論文章編號，系統(tǒng)自 動生成 UserId varchar 20 評論人 Posttime smaaldatetime 4 提交時間 content varchar 4000 評論內(nèi)容 NewsId Int 4 新聞編號 在 Discuss 表中使用了 Smalldatetime 數(shù)據(jù)類型存儲日期時間數(shù)據(jù)，該類型可以存儲從 1900年 1月 1日到 2079年 6月 6日的日期和時間數(shù)據(jù)，精確到分鐘；datetime 類型可以存儲從 1753 年 1 月 1 日到 9999 年 12月 31 日的日期和時間數(shù)據(jù)，精確到 。本節(jié)將介紹這些表的結(jié)構(gòu)。 后臺系統(tǒng) 新聞發(fā)布管理 發(fā)布文字信息 發(fā) 布新聞圖片 數(shù)據(jù)庫 前臺系統(tǒng) 新 發(fā) 聞 布 查 網(wǎng) 詢 友 管 評 理 論 創(chuàng)建和修改普通用戶信息 修改自身的用戶名和密碼 新聞類別管理 系統(tǒng)用戶信息管理 修改 Admin 用戶的密碼 重試 圖 4 后臺系統(tǒng)流程分析圖 第五章 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計與實現(xiàn) 創(chuàng)建數(shù)據(jù)庫 本系統(tǒng)使用的是 SQL Server2020 作為系統(tǒng)數(shù)據(jù)庫。 前一階段決定用戶能否進入系統(tǒng)；后一階段根據(jù)用戶類型決定用戶的權(quán)限，以及用戶的工作界面。在系統(tǒng)系統(tǒng)初始化時，有一個默認的系統(tǒng)管理員用戶 Admin，系統(tǒng)管理員除了可以修改 Admin 用戶的密碼，還可以創(chuàng)建、修改和刪除普通用戶，普通用戶只能修改自己的用戶名和密碼。我們采用了 DreamweaverMX 進行開發(fā)，它是用來快速創(chuàng)建數(shù)據(jù)驅(qū)動 Web 應(yīng)用程序的基于團隊的開發(fā)環(huán)境，支持 ASP，以O(shè)DBC 連接數(shù)據(jù)庫，腳本語言為簡單易學(xué)的 JavaScript。 、開發(fā)環(huán)境 1. 硬件條件 服務(wù) 器兩臺，一臺為數(shù)據(jù)庫服務(wù)器，一臺為 Web 服務(wù)器；客戶端計算機若干；網(wǎng)絡(luò) 通 訊設(shè)備，主要包括交換機、網(wǎng)卡、集線器、 MODEM 等。JavaScript 創(chuàng)作者可以不那麼注重程式技巧，所以許多 Java 的特性在 Java Script 中并不支援。無須有高性能的電腦，軟件僅需一個字處理軟件及一瀏覽器，無須 WEB服務(wù)器通道，通過自己的電腦即可完成所有的事情。當(dāng)事件發(fā)生后，可能會引起相應(yīng)的事件響應(yīng)。 動態(tài)性 JavaScript 是動態(tài)的，它可以直接對用戶或客戶輸入做出響應(yīng)，無須經(jīng)過Web 服務(wù)程序。 簡單性 JavaScript 的簡單性主要體現(xiàn)在：首先它是一種基于 Java 基本語句和控制流之上的簡單而緊湊的設(shè)計 , 從而對于學(xué)習(xí) Java 是一種非常好的過渡。它與 HTML 標(biāo) 識結(jié)合在一起，從而方便用戶的使用操作。它的出現(xiàn)彌補了 HTML 語言的缺陷，它是 Java 與 HTML 折衷的選擇，具有以下幾個基本特點： 腳本編寫語言 JavaScript 是一種腳本語言，它采用小程序段的方式實現(xiàn)編程。 JavaScript 是一種基于對象 (Object)和事件驅(qū)動 (Event Driven)并具有安全性能的腳本語言。它深受廣泛用戶的喜愛的歡迎。可以這樣說 ,JavaScript 的出現(xiàn)是時代的需求 ,是當(dāng)今的信息時代造就了 JavaScript。通過 HTML 符號的描述就可以實現(xiàn)文字、表格、聲音、圖像、動畫等多媒體信息的檢索。采用超鏈技術(shù)（超文本和超媒體技術(shù)）是實現(xiàn)這個目標(biāo)最簡單的、最快速的手段和途徑。隨著 Inter 技術(shù)的突飛猛進，各行各業(yè)都在加入 Inter 的行業(yè)中來。通常單位要建立自己的 Web服務(wù)器一般選擇的操作系統(tǒng)是易上手易管理的 Windows 2020 Server，或是微軟最近推出的Windows 2020 Server。如果要運行在非 Windows平臺，例如 Unix、 Linux 等，則要 安裝相應(yīng)的 ASP 腳本解釋引擎軟件。 ASP可以方便地實現(xiàn)諸如用戶信息 收集、計數(shù)器、留言板、論壇、聊天室和電子商務(wù)功能。 ▲ ASP 以對象為基礎(chǔ)，可以使用 ActiveX 控件繼續(xù)擴充其功能。 ▲ 使用普通的文本編輯器，如 Windows 的記事本，即可進行編輯設(shè)計。集成與HTML 中，無需編譯鏈接可直接執(zhí)行 ，而且 使用文本編輯器即可設(shè)計。在站點發(fā)布數(shù)據(jù)庫將使用這個組件及其中包含的對象，以完成對 ODBC 數(shù)據(jù)源的讀寫。 ASP 文件可以用常規(guī)的文本編輯器編輯， ASP 使用VBScript、 JavaScript 等腳本語言作為開發(fā)工具，鑲嵌于 HTML 文本中，使用%?% 將 ASP 的程序包含起來。盡管 ASP 在工作效率方面較之一些新技術(shù)要差，但勝在簡單、直觀、易學(xué)，是涉足網(wǎng)絡(luò)編程的一條捷徑。其工作原理是當(dāng)瀏覽者發(fā)出瀏覽請求的時候，服務(wù)器會自動將 ASP 的程序碼，解釋為標(biāo)準(zhǔn) HTML 格式的網(wǎng)頁內(nèi)容，再送到瀏覽者瀏覽器上顯示出來。所謂動態(tài)內(nèi)容是由每一個用戶按照自己的需求發(fā)出請求而特殊制作的 Web 網(wǎng)頁 。 也正是由于網(wǎng)絡(luò)實現(xiàn)網(wǎng)站的數(shù)據(jù)信息能夠進行實時交互，保證網(wǎng)站數(shù)據(jù)的實時性。 它 打破了地域限制，真正使信息 得以 共享 ， 改變 了 人們的工作和生活 方式 。 本 系統(tǒng)主要從以下幾個方面進行設(shè)計和開發(fā)：（ 1）新聞類別管理，包括新聞類別的錄入、查詢、修改和刪除等；（ 2）新聞發(fā)布管理，包括新聞信息 錄入、修改和刪除等；（ 3）圖片處理，包括圖片文件上傳、存儲、修改、刪除和瀏覽等；（ 4）新聞查詢，分為按照新聞類別和新聞發(fā)布時間兩個查詢子模塊；（ 5）網(wǎng)友評論，包括評論發(fā)表和管理員刪除兩個子模塊；（ 6）系統(tǒng)用戶管理，包括添加用戶、刪除用戶和修改信息 3 個子模塊。網(wǎng)易、搜狐等著名網(wǎng)站都開設(shè)有新聞專欄，每天發(fā)布大量新聞信息。因為每天發(fā)布的新聞的頻率和數(shù)量都很大，如果使用靜態(tài)頁面