【正文】 對新聞內(nèi)容進行替換 txtcontent = rsNews(content) txtcontent = replace(txtcontent, br, chr(13)) txtcontent = replace(txtcontent, amp。,‘)因為在sql語句中，單引號(39。有一個函數(shù)ChangeStr()，它的功能是替換新聞?wù)闹械墓δ茏址?，目的是使其能夠成為HTML網(wǎng)頁的一部分，在瀏覽網(wǎng)頁時被正常顯示。在提交表單數(shù)據(jù)之前，程序?qū)alidationPassed變量進行判斷，只有當(dāng)ValidationPassed=True時，才執(zhí)行提交操作。 } if (confirm(你確定要刪除這些新聞類別嗎？)) { = strurl。j++) { (Cate,j).checked = false。在文本域txttitle中輸入新聞類別的名稱，然后單擊“修改”按鈕，參數(shù)Oper等于edit，表示修改記錄。 Operid Set rs = (sql) If Then 39。添加 ElseIf Soperate = add then CateName = Request(txttitle) 39。input type=submit value=刪 除 name=tijiao onclick=SelectChk()%End If%。cid=%=rs(CateId)%amp。 i amp。設(shè)置分頁顯示，每頁顯示20條新聞記錄 = 20 39。變量sql_where用來記錄查詢條件。font color=red類別管理/font/a amp。設(shè)置SQL語句， sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。生成“更多新聞”鏈接， a target=39。如果新聞中有圖片，則在標題中顯示（附圖） If rs(Attpic) Then (附圖) End If /a 39。生成另一個表格，用于顯示新聞標題 table width=39。將指針移至開始位置，分別顯示每個分類中的新聞 If = False Then End If 39。新聞管理/font/a 3．顯示各新聞類別中的最新新聞 ，并將3天內(nèi)的新聞使用new圖片標記。為了解決這個問題，本實例使用書簽來定義新聞類別的位置，書簽格式為a類別編號。+c+39。39。第四章 目錄結(jié)構(gòu)與通用模塊第一節(jié) 目錄結(jié)構(gòu) 在運行實例時，需要將web目錄復(fù)制到IIS/PWS的根目錄下，例如目錄下包含下面兩個子目錄：images用于存儲上傳的新聞圖片；pic用于存儲網(wǎng)頁中的圖片文件；其他ASP和HTM文件都保存在web目錄下。例如，表News中的Title字段將不能為空，否則在新聞列表中將出現(xiàn)一個空行。3．網(wǎng)友評論信息表Discuss網(wǎng)友評論信息表Discuss用來保存網(wǎng)友對新聞的評論信息，結(jié)構(gòu)如表3所示。CateIdintTitlevarchar(100)在系統(tǒng)中，CateId字段對于用戶來說是透明的，用戶感覺不到它的存在，也無法對其進行修改。下面分別介紹這些表的結(jié)構(gòu)。Admin用戶可以創(chuàng)建用戶、修改和刪除用戶；普通用戶則只能修改自己的用戶名和密碼。第二章 系統(tǒng)分析與總體設(shè)計很多網(wǎng)站都提供新聞欄目，例如搜狐、新浪等著名網(wǎng)站的新聞專欄。此項功能需得到MTS(Microsoft Transcation Server)管理的支持?！　。骸　SP的程序代碼簡單、通用，ASP文件通常由四部分構(gòu)成：　　(1) 標準的HTML標記：所有的HTML標記均可使用。 ：ASP具備有面向?qū)ο螅∣bjectOriented）功能，學(xué)習(xí)容易，ASP提供了五種方便能力強大的內(nèi)建對象：Request、Response、Sever、Application以及Session，同時，若使用ASP內(nèi)建的“Application”對象或”Session”對象所撰寫出來的ASP程序可以在多個網(wǎng)頁之間暫時保存必要的信息。隱密安全性高。 當(dāng)用戶使用瀏覽器請求ASP主頁時，WEB服務(wù)器響應(yīng)，調(diào)用ASP引擎來執(zhí)行ASP文件，并解釋其中的腳本語言(JScript 或VBScript)，通過ODBC連接數(shù)據(jù)庫，由數(shù)據(jù)庫訪問組件ADO(ActiveX Data Objects)完成數(shù)據(jù)庫操作，最后ASP生成包含有數(shù)據(jù)查詢結(jié)果的HTML主頁返回用戶端顯示?！　?4) Response對象：服務(wù)器將輸出內(nèi)容發(fā)送到用戶端。　　(5) Field對象和Field集合：提供對RecordSet中當(dāng)前記錄的各個字段進行訪問的功能。新聞發(fā)布及管理系統(tǒng)新聞類別管理新聞發(fā)布及管理圖片處理模塊新聞查詢模塊網(wǎng)友評論模塊系統(tǒng)用戶管理圖1 新聞發(fā)布及管理系統(tǒng)功能模塊示意圖新聞發(fā)布及管理系統(tǒng)的功能模塊之間的關(guān)系如圖2所示。第一節(jié) 創(chuàng)建數(shù)據(jù)庫首先創(chuàng)建一個數(shù)據(jù)庫news，用來保存本系統(tǒng)的所有數(shù)據(jù)。如果其他表需要引用表Category中的數(shù)據(jù)，則在表中添加一個CateId字段就可以了。char和varchar只能存儲最多8000個字符，其中char用于存儲固定長度的字符數(shù)據(jù)，varchar用于存儲可變長度的字符數(shù)據(jù)。Contentvarchar(4000)評論內(nèi)容5說明1表中每一行的主鍵都有惟一值，可以使用主鍵惟一地標識一行數(shù)據(jù)。)GO在創(chuàng)建表users的同時，將默認的用戶Admin插入到表中，默認的密碼為“l(fā)lllll”。 Trim(NewsId) set rsNews=(sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。) {().text=39。This表示字體下拉菜單，this．selectedlndex表示當(dāng)前選擇的菜單項目索引，[].value則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞緾中。圖56 。在FrontPage中選擇“插入”/“書簽”菜單項，可以在指定位置插入書簽。a href=font color=red style=39。顯示新聞類別標題 stitle + amp。 href=39。amp。顯示新聞類別的代碼如下：% Dim rs,rsCate Set rs = () set rsCate = () 39。nbsp。 End If%Session(”UserName”)中保存著當(dāng)前登錄用戶的用戶名。 ORDER BY Posttime DESC End If End If sql,conn,1,1 39。 i amp。目前還沒有記錄。nbsp。 ) Set rs = (sql) If Then sqldelt = DELETE FROM Category WHERE CateId In( amp。 CateName amp。這樣可以避免出現(xiàn)重復(fù)的新聞類別。 2．全部清除選擇 ，定義“清空”按鈕的代碼如下：input type=button value=清 空 onclick=sltNull() 當(dāng)單擊“清空”按鈕時，將執(zhí)行sltNull()函數(shù)，代碼如下：function sltNull(){ var nn = (Cate)。cid= + strid。圖710 將新聞類別添加到下拉菜單中，代碼如下：% Set rs = () 39。如果沒有填寫前面提到的信息，將彈出相關(guān)的對話框，ValidationPassed=false，這樣表單數(shù)據(jù)將無法提交。記錄集變量title = Request(title)title = Replace(title,39。ID的值讀取新聞數(shù)據(jù)，代碼如下:Set rsNews = () Set rsCate = () 39。39。定義sql語句，為插入新聞記錄定義記錄集sql=SELECT * FROM News sql, Conn, 1, 339。nbsp；”；chr(13) 回車符將被替換為BR。 if( 0) { alert(請選擇新聞類別) ValidationPassed = false。因為復(fù)選框的id值與對應(yīng)的新聞類別編號相同，所以最后strid中保存的是以逗號為分隔符的待刪除的新聞類別編號。 var strid, strurl。 注意，在修改新聞類別之前，應(yīng)該判斷新的新聞類別是否已經(jīng)存在。 amp。 CateName amp。如果當(dāng)前狀態(tài)為修改，則顯示修改的表單，否則顯示添加的表單 If Soperate = update Then sTitle = (name)% form name=UFrom method=post action=?cid=%=Operid%amp。新聞類別后面的復(fù)選框名為Cate，它的id值與對應(yīng)新聞類別的編號相同。 sql第六章 新聞類別管理模塊設(shè)計新聞類別管理模塊可以實現(xiàn)以下功能：(1)添加新的新聞類別記錄；(2)修改新聞類別記錄；(3)刪除新聞類別記錄。設(shè)置當(dāng)前頁碼為Page = Page 39?！啊薄?，即只能管理自己創(chuàng)建的新聞。nbsp。font style=39。?flag= + CStr(cid) + 39。 ALT=39。按提交時間的降序顯示新聞標題 sql = SELECT * FROM News WHERE CateId= amp。生成表格 table width=39。=====顯示所有新聞類別供點擊，點擊不同類別顯示該類別的新聞===== 39。這樣，用戶就可以通過單擊鏈接直達新聞類別了。/font39。}else { = 39。圖5 ，設(shè)置指定的選項，將會在新聞內(nèi)容中生成相應(yīng)的HTML代碼。：%dim Conndim ConnStrset Conn=()ConnStr=driver={SQL Server}。每次增加新記錄時，標識字段自動遞增。22000中，可以使用datetime和smalldatetime兩種數(shù)據(jù)類型存儲日期時間數(shù)據(jù)。表Discuss的結(jié)構(gòu)編號字段名稱新聞標題3字段名稱數(shù)據(jù)結(jié)構(gòu)多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始，對用戶的身份進行認證。使用新聞發(fā)布及管理系統(tǒng)可以使新聞發(fā)布和管理變得很輕松，管理員只需設(shè)置標題、內(nèi)容和圖片等新聞就可以了，系統(tǒng)將自動生成對應(yīng)的網(wǎng)頁。　　(3) Database Access組件：提供ADO (ActiveX Data Objects)來訪問支持ODBC的數(shù)據(jù)庫。(4) 腳本語言：ASP自帶JScript和VBScript兩種腳本語言，增加了ASP的編程功能，用戶也可安裝其它腳本語言，如Perl、Rexx等。在此期間本人將使用Macromedia Dreamweaver MX 2004進行ASP頁面的編碼。當(dāng)然，其他網(wǎng)頁發(fā)展工具，例如，F(xiàn)rontPage Express、 FrontPage等也都可以；不過還是建議你用記事本來寫，既省錢又方便，若是使用那些所見即所得的網(wǎng)頁編輯來寫ASP，可能會發(fā)生一些意想不到的離奇狀態(tài)。用JAVA/JDBC編寫的軟件可移植性強，適用于多種操作系統(tǒng)，但其執(zhí)行效率和執(zhí)行速度還不理想，目前無法建立高效、高速的應(yīng)用?！　?2) Session對象：存貯特定用戶的會話信息，只被該用戶訪問，當(dāng)用戶在不同WEB頁面跳轉(zhuǎn)時，Session中的變量在用戶整個會話過程中一直保存?！　?2) Command對象：執(zhí)行SQL指令，訪問數(shù)據(jù)庫。6．系統(tǒng)用戶管理功能：(1)系統(tǒng)用戶信息的錄入，包括用戶名和密碼等信息；(2)系統(tǒng)用戶信息的修改；(3)系統(tǒng)用戶信息的刪除。后臺系統(tǒng)的流程分析如圖4所示。提交時間5在SQLidEmail39。所以在修改和刪除新聞時，需要判斷當(dāng)前用戶是否是Admin或指定新聞的作者。SELECT onChange=var c=[].value。FONTSIZE: 9pt39。/font在添加和修改新聞內(nèi)容的網(wǎng)頁中，必須將表單定義為myform，輸入新聞內(nèi)容的滾動文本框定義為txtcontent，否則此功能將無法實現(xiàn)。color:black39。39。==amp。a onClick=39。nbsp。 。如果為管理員則顯示類別管理和用戶管理 If Session(UserName) = Admin Then amp。 amp。 iflag amp。 iflag amp。讀取所有的新聞類別數(shù)據(jù)到記錄集rs中 sql = SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。amp。處理添加、修改和刪除操作 d