【正文】 修改新聞 50 第三節(jié) 刪除新聞 52 第四節(jié) 新聞查詢管理 53 第八章 調(diào)試與安裝 63 第一節(jié) 安裝 IIS 63 第二節(jié) ASP 硬件要求 64 結(jié)束語 65 參 考 文 獻(xiàn) 66 后 記 66 摘要 我們從建站的實(shí)際情況出發(fā)，經(jīng)過對(duì)有關(guān)網(wǎng)站新聞發(fā)布事項(xiàng)的一番考察和分析，確立了新聞發(fā)布系統(tǒng)的具體實(shí)現(xiàn)功能。本系統(tǒng)是學(xué)校網(wǎng)站的一個(gè)子系統(tǒng)，具有很好的外部接口，能夠很好的配合站 點(diǎn)的其它子系統(tǒng)服務(wù)于網(wǎng)站的新聞發(fā)布 .該系統(tǒng)是一個(gè)基于新聞發(fā)布和內(nèi)容管理的全站管理系統(tǒng)；基于 B/S 模式 WEBMIS 系統(tǒng)，本系統(tǒng)可以將雜亂無章的信息（包括文字、圖片和影音）經(jīng)過組織，合理而且有序地呈現(xiàn)在大家面前。 Inter 上發(fā)布信息主要是通過網(wǎng)站來實(shí)現(xiàn)的，獲取信息也是要在 Inter“海洋”中按照一定的檢索方式將所需要的信息從網(wǎng)站上下載下來。當(dāng)然，其他網(wǎng)頁(yè)發(fā)展工具，例如， FrontPage Express、 rontPage等也都可以；不過還是建議你用記事本來寫，既省錢又方便，若是使用那些所見即所得的網(wǎng)頁(yè)編輯來寫 ASP，可能會(huì)發(fā)生一些意想不到的離奇狀態(tài)。 易于操控?cái)?shù)據(jù)庫(kù) ASP 可以輕易地通過 ODBC Open Database Connectivity 驅(qū)動(dòng)程序連接各種不同的數(shù)據(jù)庫(kù)，例如： Acess、 Foxpro、 dBase、 Oracle 等等，另外， ASP 亦可將“文本文件”或是” Excel” 文件當(dāng)成數(shù)據(jù)庫(kù)用。適用于多種服務(wù)器平臺(tái)，如 UNIX、 WINDOWS 等，但 CGI 的開發(fā)成本高、維護(hù)困難、功能有限、不具備事務(wù)處理功能、占用服務(wù)器資源較多。用 JAVA/JDBC 編寫的軟件可移植性強(qiáng)，適用于多種操作系統(tǒng)，但其執(zhí)行效率和執(zhí)行速度還不理想，目前無法建立高效、高速的應(yīng)用。 由于 ASP 在服務(wù)器端運(yùn)行，運(yùn)行結(jié)果以 HTML 主頁(yè)形式返回用戶瀏覽器，因而 ASP 源程序不會(huì)泄密，增加了系統(tǒng)的安全保密性。 服務(wù)器端的 include 語句：可用 include 語句調(diào)入其它 ASP 代碼，增強(qiáng)了編程的靈活性。 2 WINDOWS NT workstation 運(yùn)行 Peer Web Server 以上。 2 Session 對(duì)象：存貯特定用戶的會(huì)話信息，只被該用戶訪問，當(dāng)用戶在不同 WEB 頁(yè)面跳轉(zhuǎn)時(shí)， Session 中的變量在用戶整個(gè)會(huì)話過程中一直保存。 5 Server 對(duì)象：提供對(duì)服務(wù)器有關(guān)方法和屬性的訪問。 2 Browser Capabilities 組件：確定訪問 WEB 站點(diǎn)的 用戶瀏覽器的功能數(shù)據(jù)，包括類型、性能、版本等。 此外，還可安裝 Myinfo、 Counters、 Content Rotator、 Page Count等組件，用戶也可自行編制 Actiive 組件，以提高系統(tǒng)的 實(shí)用性。 2 Command 對(duì)象：執(zhí)行 SQL 指令，訪問數(shù)據(jù)庫(kù)。 6 Property 對(duì)象和 Properties 集合：提供有關(guān)信息，供 Connection、Command、 RecordSet、 Field 對(duì)象使用。在系統(tǒng)初始化時(shí)，有一個(gè)默認(rèn)的“系統(tǒng)管理員”用戶 Admin，由程序設(shè)計(jì)人員手動(dòng)地添加到數(shù)據(jù)庫(kù)中。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始，對(duì)用戶的身份進(jìn)行認(rèn)證。第 2 個(gè)過程根據(jù)用戶的類型決定用戶的操作權(quán)限，從而決定用戶的工作界面。 Admin 用戶擁有所有的權(quán)限，普通用戶只能對(duì)自己發(fā)布的新聞進(jìn)行管理，包括修改新聞內(nèi)容、刪除新聞和刪除網(wǎng)友評(píng)論。 第二節(jié) 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)定義的數(shù)據(jù) 庫(kù)中包含以下 4 個(gè)表：新聞?lì)悇e表： Category、新聞基本信息表： News、網(wǎng)友評(píng)論信息表： Discuss 和用戶信息表： users。所謂標(biāo)識(shí)列，就是可以惟一標(biāo)識(shí)一行記錄的列，在表中不會(huì)存在兩條標(biāo)識(shí)列相同的記錄。在系統(tǒng)中， CateId 字段對(duì)于用戶來說是透明的，用戶感覺不到它的存在，也無法對(duì)其進(jìn)行修改。如果需要存儲(chǔ)的數(shù)據(jù)很大，則可以使用 text 數(shù)據(jù)類型，例如表 News 中的 Content 字符，因?yàn)樾侣剝?nèi)容的數(shù)據(jù)量通常會(huì)超過 8000 個(gè)字符。 datetime 數(shù)據(jù)類型用于存儲(chǔ)從 1753 年 1 月 1 日到 9999 年 12 月 31 日的日期和時(shí)間數(shù)據(jù)，精確到 3． 33ms； smalldatetime 數(shù)據(jù)類型用于存儲(chǔ)從 1900 年 1 月 1 日到 2079 年 6月 6 日的日期和時(shí)間數(shù)據(jù)，精確到分鐘。 2 ?UserName ?varchar 50 用戶名 3 ?UserPwd ?varcahr 50 密碼 4 ?Ename ?varchar 50 用戶姓名 5 ?Email ?varchar 50 電子郵箱 第三節(jié) 創(chuàng)建表的腳本文件 本節(jié)將介紹創(chuàng)建表的腳本文件，可以在“查詢分析器”中執(zhí)行這些腳本，在數(shù)據(jù)庫(kù) news 中創(chuàng)建表。使用 NOT NULL 定義的字段將不允許為空，這樣就可以避免表中出現(xiàn)無效的數(shù)據(jù)，影響系統(tǒng)運(yùn)行。每次增加新記錄時(shí)，標(biāo)識(shí)字段自動(dòng)遞增。, 39。, 39。如果要?jiǎng)?chuàng)建的表已經(jīng)存在，則需要先將表刪除。 的代碼如下： % dim Conn dim ConnStr set Conn ConnStr driver SQL Server 。Database news ConnStr % 在文件中引用此文件作為頭文件就可以訪問數(shù)據(jù)庫(kù)，代碼如下： !include File 2． 因?yàn)楸緦?shí)例中有些功能只有 Admin 用戶才有權(quán)限使用 ，所以在進(jìn)入這些網(wǎng)頁(yè)之前，需要判斷用戶是否是 Admin。 可以實(shí)現(xiàn)此功能，代碼如下： % If Session UserName Admin Then NewsId Request Id 39。在兩種情況下， 將阻止程序繼續(xù)執(zhí)行： 1 指定新聞不存在； 2 當(dāng)前用戶不是指定新聞的作者。 的設(shè)計(jì)界面如圖 5 所示。在顯示新聞內(nèi)容時(shí)，程序?qū)?huì)自動(dòng)將 [space]轉(zhuǎn)換為空格。39。 39。 font[space]face 39。 39。 當(dāng)下拉菜單的選擇發(fā)生變化時(shí)，將觸發(fā) onChange 事件，程序中直接定義了對(duì)應(yīng)的 JavaScript 代碼。+c+39。 也就是在它的兩側(cè)添加字體標(biāo)識(shí) 和 。 39。 錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 56 所示。為了解決這個(gè)問題，本實(shí)例使用書簽來定義新 聞?lì)悇e的位置，書簽格式為 a 。 % 39。每個(gè)新聞?lì)悇e標(biāo)題被定義為一個(gè)書簽，名為 a 類別編號(hào) % a href a % cid% font style 39。書簽是網(wǎng)頁(yè)中被標(biāo)記的位置或被標(biāo)記的選中文本。 新聞管理 3．顯示各新聞?lì)悇e中的最新新聞 的主要內(nèi)容是顯示新聞?lì)悇e中的最新 10 條新聞，并將 3天內(nèi)的新聞使用 new 圖片標(biāo)記。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql SELECT * FROM Category ORDER BY CateId Set rsCate sql 39。color:black39。TEXTDECORATION: none39。變量 t 用來記錄 t 0 39。顯示新聞?lì)悇e，并設(shè)置書簽 td bgcolor ceceff a name aamp。生成另一個(gè)表格，用于顯示新聞標(biāo)題 table width 39。 cid amp。顯示新聞標(biāo)題及鏈接，查看新聞的腳本文件為 td width 39。39。如果新聞中有圖片，則在標(biāo)題中顯示（附圖） If rs Attpic Then 附圖 End If 39。最新的新聞！39。 + CStr rs Posttime + End If Loop 39。 href 39。請(qǐng)參照注釋理解。本節(jié)將介紹管理界面 的實(shí)現(xiàn)方法。 !include file !include file 2 顯示新聞?lì)悇e鏈接 將新聞按照分類顯示，每個(gè)新聞?lì)悇e只顯示最新的 20 條新聞。設(shè)置 SQL 語句，讀取所有的新聞?lì)悇e到 sql SELECT * FROM Category ORDER BY CateId Set rsCate sql 39。TEXTDECORATION: none。 3 顯示管理鏈接 在 中，將根據(jù)用戶類型顯示管理鏈接，包括“更改密碼”、“類別管理”、“用戶管理”和“退出登錄”，只有 Admin 用戶才能看到“類別管理”和“用戶管理”鏈接。 font color red 類別管理 a href 39。 amp。當(dāng) Session ”UserName” ” Admin”時(shí)，才能顯示“類別管理”和“用戶管理”超級(jí)鏈接。Session “ UserName” amp。 sql_where amp。 iflag amp。如果記錄集 rs 為空，則顯示“目錄還沒有記錄” If Then td colspan 4 align center 目前還沒有記錄。處理不合法的頁(yè)碼 If Page 1 Then Page 1 If Page Then Page 39。顯示分頁(yè)頁(yè)碼 If 1 then table border 39。 iflag amp。 39。在調(diào)試程序時(shí)，可以使用下面的語句顯示 sELECT 語句的內(nèi)容。 圖 69 新聞?lì)悇e管理界面 下面將介紹 中與界面顯示相關(guān)的部分代碼。讀取所有的新聞?lì)悇e數(shù)據(jù)到記錄集 rs 中 sql SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。 Else 39。參數(shù) Oper 的值為update，表示當(dāng)前操作為修改新聞?lì)悇e；參數(shù) cid 表示要修改的新聞?lì)悇e編號(hào)；參數(shù) name 表示要修改的新聞?lì)悇e名稱。本實(shí)例介紹一種更方便的方法，即通 過復(fù)選框選擇要?jiǎng)h除的記錄，然后單擊 cc 刪除，按鈕，這樣可以同時(shí)刪除多 條記錄。當(dāng) flag update 時(shí)，將顯示修改新聞?lì)悇e的表單；否則顯示添加新聞?lì)悇e的表單，代碼如下： % 39。 第二節(jié) 添加新聞?lì)悇e 在執(zhí)行 Cate_Admin． asp 時(shí)，如果參數(shù) Oper 不等于 update，頁(yè)面的下方將顯示添加數(shù)據(jù)的表 單 Aform。處理添加、修改和刪除操作 dim Soperate Soperate oper Operid cid 39。 CStr Operid amp。 amp。如果沒有此類別名稱，則創(chuàng)建新記錄 If Then sql INSERT INTO Category CateName VALUES 39。 sql 新聞?lì)悇e已經(jīng)成功添加！ Else 已經(jīng)存在此類別名稱！ End If Set rs Nothing ElseIf Soperate edit Then CateName Request txttitle 39。 39。此時(shí)判斷是否存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 Set rs sql If Then 39。 39。 第三節(jié) 修改新聞?lì)悇e 在 中，單擊新聞?lì)悇e后面的“修改’，超級(jí)鏈接，將再次執(zhí)行 ， 參數(shù) Oper 等于 update。在執(zhí)行 時(shí)，可以在 url 中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù) Oper 的值決定進(jìn)行的操作。下面介紹幾個(gè)與選擇復(fù)選框相關(guān)的 javaScript 函數(shù)。j++ .item Cate,j .checked true。 for j 0。 //用來記錄是否存在被選中的復(fù)選框 var Cateid, n 0。 j 。 //轉(zhuǎn)換為字符串 //生成要?jiǎng)h除新聞?lì)悇e編號(hào)的列表 if n 1 strid Cateid。 if !s alert 請(qǐng)選擇要?jiǎng)h除的新聞?lì)悇e ! 。 程序?qū)γ總€(gè)復(fù)選框進(jìn)行判斷，如果復(fù)選框被選中，則將復(fù)選框的 id 值轉(zhuǎn)換為字符串，并追加到變量 strid 中。 第七章 新聞發(fā)布管理模塊設(shè)計(jì) 系統(tǒng)用戶都可以發(fā)布新聞，新聞發(fā)布管理模塊包含以下功能： 1 發(fā)布新新聞； 2 修改新聞； 3 刪除新