【正文】 39。 程序?qū)γ總€(gè)復(fù)選框進(jìn)行判斷，如果復(fù)選框被選中，則將復(fù)選框的 id 值轉(zhuǎn)換為字符串，并追加到變量 strid 中。 //轉(zhuǎn)換為字符串 //生成要?jiǎng)h除新聞?lì)悇e編號的列表 if n 1 strid Cateid。 //用來記錄是否存在被選中的復(fù)選框 var Cateid, n 0。j++ .item Cate,j .checked true。在執(zhí)行 時(shí)，可以在 url 中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù) Oper 的值決定進(jìn)行的操作。 39。此時(shí)判斷是否存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 sql 新聞?lì)悇e已經(jīng)成功添加！ Else 已經(jīng)存在此類別名稱！ End If Set rs Nothing ElseIf Soperate edit Then CateName Request txttitle 39。 amp。處理添加、修改和刪除操作 dim Soperate Soperate oper Operid cid 39。當(dāng) flag update 時(shí)，將顯示修改新聞?lì)悇e的表單；否則顯示添加新聞?lì)悇e的表單，代碼如下： % 39。參數(shù) Oper 的值為update，表示當(dāng)前操作為修改新聞?lì)悇e；參數(shù) cid 表示要修改的新聞?lì)悇e編號；參數(shù) name 表示要修改的新聞?lì)悇e名稱。讀取所有的新聞?lì)悇e數(shù)據(jù)到記錄集 rs 中 sql SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。在調(diào)試程序時(shí)，可以使用下面的語句顯示 sELECT 語句的內(nèi)容。 iflag amp。處理不合法的頁碼 If Page 1 Then Page 1 If Page Then Page 39。 iflag amp。Session “ UserName” amp。 amp。 3 顯示管理鏈接 在 中，將根據(jù)用戶類型顯示管理鏈接，包括“更改密碼”、“類別管理”、“用戶管理”和“退出登錄”，只有 Admin 用戶才能看到“類別管理”和“用戶管理”鏈接。設(shè)置 SQL 語句，讀取所有的新聞?lì)悇e到 sql SELECT * FROM Category ORDER BY CateId Set rsCate sql 39。本節(jié)將介紹管理界面 的實(shí)現(xiàn)方法。 href 39。最新的新聞！39。39。 cid amp。顯示新聞?lì)悇e，并設(shè)置書簽 td bgcolor ceceff a name aamp。TEXTDECORATION: none39。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql SELECT * FROM Category ORDER BY CateId Set rsCate sql 39。書簽是網(wǎng)頁中被標(biāo)記的位置或被標(biāo)記的選中文本。 % 39。 錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 56 所示。 也就是在它的兩側(cè)添加字體標(biāo)識 和 。 當(dāng)下拉菜單的選擇發(fā)生變化時(shí)，將觸發(fā) onChange 事件，程序中直接定義了對應(yīng)的 JavaScript 代碼。 font[space]face 39。39。 的設(shè)計(jì)界面如圖 5 所示。 可以實(shí)現(xiàn)此功能，代碼如下： % If Session UserName Admin Then NewsId Request Id 39。 的代碼如下： % dim Conn dim ConnStr set Conn ConnStr driver SQL Server 。, 39。每次增加新記錄時(shí)，標(biāo)識字段自動(dòng)遞增。 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ù)庫 news 中創(chuàng)建表。如果需要存儲(chǔ)的數(shù)據(jù)很大，則可以使用 text 數(shù)據(jù)類型，例如表 News 中的 Content 字符，因?yàn)樾侣剝?nèi)容的數(shù)據(jù)量通常會(huì)超過 8000 個(gè)字符。所謂標(biāo)識列，就是可以惟一標(biāo)識一行記錄的列，在表中不會(huì)存在兩條標(biāo)識列相同的記錄。 Admin 用戶擁有所有的權(quán)限，普通用戶只能對自己發(fā)布的新聞進(jìn)行管理，包括修改新聞內(nèi)容、刪除新聞和刪除網(wǎng)友評論。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始，對用戶的身份進(jìn)行認(rèn)證。 6 Property 對象和 Properties 集合：提供有關(guān)信息，供 Connection、Command、 RecordSet、 Field 對象使用。 此外，還可安裝 Myinfo、 Counters、 Content Rotator、 Page Count等組件，用戶也可自行編制 Actiive 組件，以提高系統(tǒng)的 實(shí)用性。 5 Server 對象：提供對服務(wù)器有關(guān)方法和屬性的訪問。 2 WINDOWS NT workstation 運(yùn)行 Peer Web Server 以上。 由于 ASP 在服務(wù)器端運(yùn)行，運(yùn)行結(jié)果以 HTML 主頁形式返回用戶瀏覽器，因而 ASP 源程序不會(huì)泄密，增加了系統(tǒng)的安全保密性。適用于多種服務(wù)器平臺，如 UNIX、 WINDOWS 等，但 CGI 的開發(fā)成本高、維護(hù)困難、功能有限、不具備事務(wù)處理功能、占用服務(wù)器資源較多。當(dāng)然，其他網(wǎng)頁發(fā)展工具，例如， FrontPage Express、 rontPage等也都可以；不過還是建議你用記事本來寫，既省錢又方便，若是使用那些所見即所得的網(wǎng)頁編輯來寫 ASP，可能會(huì)發(fā)生一些意想不到的離奇狀態(tài)。本系統(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)在大家面前。簡單的說 ,新聞發(fā)布系統(tǒng)就是充當(dāng)一個(gè)網(wǎng)絡(luò)新聞媒介的功能。通吃各家瀏覽由于 ASP 程序是在網(wǎng)絡(luò)服務(wù)器端中執(zhí)行，執(zhí)行結(jié)果所產(chǎn)生的 HTML 文件適用于不同的瀏覽器。 2 . INTERNET 數(shù)據(jù)庫連接器 IDC Inter Database Connector IDC 集成在 ISAPI Inter Server API 中，充分利用了 DLL 技術(shù)，易擴(kuò)充，但編程較CGI 更為復(fù)雜，只適用于小型數(shù)據(jù)庫系統(tǒng)。此外， ASP 是面向 對象的腳本環(huán)境，用戶可自行增加 ActiveX 組件來擴(kuò)充其功能，拓展應(yīng)用范圍。 3 WINDOWS 95/98 運(yùn)行 PWS Personal Web Server 。 6 Object Context 對象： IIS 新增的對象，用來進(jìn)行事務(wù)處理。 6. Database Access 組件 ADO 上很重要的應(yīng)用是訪問 WEB 數(shù)據(jù)庫，用 ASP 訪問 WEB 數(shù)據(jù)庫時(shí)，必須使用 ADO組件， ADO是 ASP內(nèi)置的 ActiveX服務(wù)器組件 ActiveX Server Component ，通過在 WEB 服務(wù)器上設(shè)置 ODBC 和 OLEDB 可連接多種數(shù)據(jù)庫：如 SYBASE、 ORACLE、INFORMIX、 SQL SERVER、 ACCESS、 VFP 等，是對目前微軟所支持的數(shù)據(jù)庫進(jìn)行操作的最有效和最簡單直接的方法。 7 Error 對象和 Errors 集合：提供訪問數(shù)據(jù)庫時(shí)的錯(cuò)誤信息。身份認(rèn)證可以分為以下兩個(gè)過程： 1 確認(rèn)用戶是否是有效的系統(tǒng)用戶。 圖 4 后臺系統(tǒng)的流程分析 第三章 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)與實(shí)現(xiàn) 這一章將介紹系統(tǒng)的數(shù)據(jù)庫表結(jié)構(gòu)和創(chuàng)建表的腳本。如果其他表需要引用表 Category 中的數(shù)據(jù)，則在表中添加一個(gè) CateId 字段就可以了。 text 數(shù)據(jù)類型也是可變長度的，最多可為 2147483647 個(gè)字符。 1．創(chuàng)建表 Category 創(chuàng)建表 category 的腳本文件為 ，它的代碼如下： USE news GO CREATE TABLE Category CateId Int IDENTITY PRIMARY KEY, CateName Varchar 50 NOT NULL GO 在使用 CREATE TABLE 指令創(chuàng)建表時(shí)，應(yīng)該注意使用 PRIMARY KEY 關(guān)鍵字定義表的主鍵。程序員在編寫程序的過程申，無需考慮標(biāo)識字段的值 。39。server local 。根據(jù)新聞編號讀取新聞信息 set rsNews sql SELECT * FROM News WHERE Id amp。 圖 5 的設(shè)計(jì)界面 在使用 時(shí)，設(shè)置指定的選項(xiàng)，將會(huì)在新聞內(nèi)容中生成相應(yīng)的HTML 代碼。 .text 39。+c+39。 This 表示字體下拉菜單， this． selectedlndex 表示當(dāng)前選擇的菜單項(xiàng)目索引， [].value 則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞?C 中。 如果沒有選擇字符，則在輸入新聞內(nèi)容的文本域中直接加入字體標(biāo)識，用戶可以在 和 ／ font 之問添加相應(yīng)的文字，代碼如下： mye 39。 圖 56 的界面 下面介紹 的主要代碼。 顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞 39。在FrontPage 中選擇“插入” /“書簽”菜單項(xiàng)，可以在指定位置插入書簽。顯示所有新聞?lì)悇e鏈接 Do While Not stitle rsCate CateName cid rsCate CateId 39。 新聞管理 table align center width 100% cellspacing 0 cellpadding 0 border 0 td width * valign TOP % 39。cidamp。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。 href 39。 border 0 End If 39。?flag + CStr cid + 39。 錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 57 所示。顯示新聞?lì)悇e鏈接，注意根據(jù)類別編號設(shè)置參數(shù) flag DO WHILE Not stitle rsCate CateName cid rsCate CateId % | a href 39。顯示管理鏈接的代碼如下： % 39。 Session UserName amp?！啊薄?，即只能管理自己創(chuàng)建的新聞。 And amp。設(shè)置當(dāng)前頁碼為 Page Page 39。 amp。 sql 第六章 新聞?lì)悇e管理模塊設(shè)計(jì) 新聞?lì)悇e管理模塊可以實(shí)現(xiàn)以下功能： 1 添加新的新聞?lì)悇e記錄； 2 修改新聞?lì)悇e記錄； 3 刪除新聞?lì)悇e記錄。如果記錄集為空，則顯示“目前還沒有記錄” td colspan 3 align center font style 39。新聞?lì)悇e后面的復(fù)選框名為 Cate，它的id 值與對應(yīng)新聞?lì)悇e的編號相同。如果當(dāng)前狀態(tài)為修改，則顯示修改的表單，否則顯示添加的表單 If Soperate update Then sTitle name % form name UFrom method post action ?cid % Operid% amp。刪除 If Soperate delete Then sql SELECT * FROM News WHERE CateId In amp。 CateName amp。如果新類別名稱與舊名稱不同，則判斷是否存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 amp。 WHERE CateId amp。 注意，在修改新聞?lì)悇e之前，應(yīng)該判斷新的新 聞?lì)悇e是否已經(jīng)存在。 self 對象指當(dāng)前頁面， .item Cate