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