【正文】 代碼中省略的部分包括生成新聞類別下拉菜單，以及根據(jù)新聞數(shù)據(jù)對表單中的各組件賦值。, ) rqtContent = replace(txtcontent, 39。讀取指定新聞數(shù)據(jù) Set rsNews = (SELECT * FROM News WHERE id = amp。這里使用一種新方法，然后依次對rs中各字段賦值。接下來程序?qū)⒈４嫘侣剶?shù)據(jù)，代碼如下：Set rs = ()39。,‘)attpic = Request(attpic)rqtContent = ChangeChr(request(txtcontent)) 39。新聞內(nèi)容Dim category 39。) ChangeChr = Replace( ChangeChr, chr(13), br)End Function新聞?wù)男枰４嬖跀?shù)據(jù)庫中，當(dāng)從數(shù)據(jù)庫中讀取新聞?wù)牡膬?nèi)容在網(wǎng)頁中顯示時(shí)，空格將被自動過濾掉，這樣imgsrc=images/將無法被正確顯示。需要將其替換為 “[space]border=0[space]width=300/img/div”；空格(””) 空格將被替換為“amp。，將可以顯示控制模板。 return ValidationPassed。 ValidationPassed = false。在．，定義“確定”按鈕的代碼如下：input type=submit value= 確 定 name=B1 onclick=return form_onsubmit()在單擊“確定”按鈕時(shí)，將執(zhí)行form_onsubmit()，進(jìn)行數(shù)據(jù)有效性驗(yàn)證，代碼如下:function form_onsubmit(obj) { ValidationPassed = true。將新聞類別裝入下拉菜單中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId)% option value=%=cid%%=stitle%/option% LOOP%下拉菜單名為Cate，值為新聞類別編號，顯示的內(nèi)容是新聞類別名稱。39。第七章 新聞發(fā)布管理模塊設(shè)計(jì)系統(tǒng)用戶都可以發(fā)布新聞，新聞發(fā)布管理模塊包含以下功能：(1)發(fā)布新新聞；(2)修改新聞；(3)刪除新聞。 }} 程序?qū)γ總€(gè)復(fù)選框進(jìn)行判斷，如果復(fù)選框被選中，則將復(fù)選框的id值轉(zhuǎn)換為字符串，并追加到變量strid中。 if(!s) { alert(請選擇要刪除的新聞類別!)。 //轉(zhuǎn)換為字符串 //生成要刪除新聞類別編號的列表 if(n==1) { strid = Cateid。 j。 //用來記錄是否存在被選中的復(fù)選框 var Cateid, n=0。 for(j=0。j++) { (Cate,j).checked = true。下面介紹幾個(gè)與選擇復(fù)選框相關(guān)的javaScript函數(shù)?？梢栽趗rl中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù)Oper的值決定進(jìn)行的操作。第三節(jié) 修改新聞類別 ，單擊新聞類別后面的“修改’，超級鏈接， 參數(shù)Oper等于update。 39。 Set rs = (sql) If Then 39。此時(shí)判斷是否存在此類別名稱 sql = SELECT * FROM Category WHERE CateName=39。 39。) (sql) 新聞類別已經(jīng)成功添加！ Else 已經(jīng)存在此類別名稱！ End If Set rs = Nothing ElseIf Soperate = edit Then CateName = Request(txttitle) 39。如果沒有此類別名稱，則創(chuàng)建新記錄 If Then sql = INSERT INTO Category(CateName) VALUES(39。 amp。 CStr(Operid) amp。處理添加、修改和刪除操作 dim Soperate Soperate = (oper) Operid = (cid) 39。第二節(jié) 添加新聞類別 在執(zhí)行Cate_Admin．a(chǎn)sp時(shí)，如果參數(shù)Oper不等于update，頁面的下方將顯示添加數(shù)據(jù)的表單Aform。當(dāng)flag=update時(shí)，將顯示修改新聞類別的表單；否則顯示添加新聞類別的表單，代碼如下：% 39。amp。amp。本實(shí)例介紹一種更方便的方法，即通過復(fù)選框選擇要刪除的記錄，然后單擊cc刪除，按鈕，這樣可以同時(shí)刪除多條記錄。參數(shù)Oper的值為update，表示當(dāng)前操作為修改新聞類別；參數(shù)cid表示要修改的新聞類別編號；參數(shù)name表示要修改的新聞類別名稱。/font/td/tr/table Else 39。讀取所有的新聞類別數(shù)據(jù)到記錄集rs中 sql = SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。圖69 新聞類別管理界面。在調(diào)試程序時(shí)，可以使用下面的語句顯示sELECT語句的內(nèi)容。 39。 iflag amp。顯示分頁頁碼 If 1 then table border=39。處理不合法的頁碼 If Page 1 Then Page = 1 If Page Then Page = 39。如果記錄集rs為空，則顯示“目錄還沒有記錄” If Then trtd colspan=4 align=center目前還沒有記錄。 iflag amp。 sql_where amp。Session(“UserName”)amp。當(dāng)Session(”UserName”)=”Admin”時(shí)，才能顯示“類別管理”和“用戶管理”超級鏈接。 amp。a href=39。amp。a href=39。如果為管理員則顯示類別管理和用戶管理 If Session(UserName) = Admin Then amp。%=stitle%/font/a % Loop%，參數(shù)flag表示新聞類別。?flag=%=cid%39。定義變量 Dim iflag,sql_where 39。 。請參照注釋理解。 href=39。nbsp。nbsp。顯示新聞提交的時(shí)間 td width=39。pic/39。?id= + cstr(rs(id)) + 39。a onClick=39。計(jì)數(shù) t = t + 1 39。 border=0 cellspacing=0 cellpadding=0 39。nbsp。==amp。顯示新聞類別，并設(shè)置書簽 td bgcolor=ceceffa name=aamp。變量t用來記錄 t = 0 39。TEXTDECORATION: none39。39。每個(gè)新聞類別標(biāo)題被定義為一個(gè)書簽，名為 a類別編號% a href=a%=cid%font style=39。這部分代碼如下:% 39。在本例中，因?yàn)闀炍恢檬莿討B(tài)變化的，所以需要使用代碼定義，方法如下：a name=書簽名/a 2．“新聞管理”鏈接系統(tǒng)管理員Admin或其他用戶可以通過“新聞管理”a href=font color=red style=39。color:black39。按順序讀取所有新聞類別，保存在記錄集rsCate中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。下面的代碼將在網(wǎng)頁中生成所有新聞類別的鏈接，每個(gè)鏈接都指相應(yīng)新聞類別的書簽。 1．顯示新聞類別鏈接 ，每個(gè)新聞類別只顯示最新的10條新聞。/font在添加和修改新聞內(nèi)容的網(wǎng)頁中，必須將表單定義為myform，輸入新聞內(nèi)容的滾動文本框定義為txtcontent，否則此功能將無法實(shí)現(xiàn)。font[space]face=39。+().text+39。，如果它不為空，則將其替換為如下代碼：().text=39。FONTSIZE: 9pt39。39。/font39。font[space]face=39。SELECT onChange=var c=[].value。在顯示新聞內(nèi)容時(shí)，程序?qū)詣訉space]轉(zhuǎn)換為空格。判斷用戶權(quán)限，是否可以維護(hù)新聞，管理員可以編輯所有新聞，編輯者只能修改自己的新聞 If rsNews(Poster) Session(UserName) Then 不是Admin或新聞的作者，無權(quán)修改！ End If End If End If%如果當(dāng)前用戶是Admin，；否則，程序?qū)⒏鶕?jù)參數(shù)Id讀取新聞信息，并將Poster字段的值與當(dāng)前用戶名進(jìn)行比較。所以在修改和刪除新聞時(shí)，需要判斷當(dāng)前用戶是否是Admin或指定新聞的作者。PWD=yourpassword。1．，因?yàn)樵诤芏嗑W(wǎng)頁中都有連接數(shù)據(jù)庫的操作，這樣可以避免重復(fù)編程。在執(zhí)行這些腳本之前，請確定數(shù)據(jù)庫news已經(jīng)存在，否則會產(chǎn)生錯誤。39。Admin39。3．創(chuàng)建表Discuss，它的代碼如下：USE newsGOCREATE TABLE Discuss ( Id Int IDENTITY PRIMARY KEY, UserId Varchar(20), Posttime Smalldatetime, Content Varchar(4000), NewsId Int )GO在使用CREATE TABLE指令創(chuàng)建表時(shí)，通?？梢允褂肐DENTITY關(guān)鍵字與PRIMARY KEY關(guān)鍵字相結(jié)合，創(chuàng)建標(biāo)識字段。2．創(chuàng)建表News，它的代碼如下：USE newsGOCREATE TABLE News( Id Int IDENTITY PRIMARY KEY, Title Varchar(100) NOT NULL, Content Text, PostTime Datetime, Poster Varchar(50), CateId Int, Attpic Int DEFAULT 0, ReadCount Int DEFAULT 0)GO在使用CREATE TABLE指令創(chuàng)建表時(shí)，應(yīng)該注意使用NOT NULL關(guān)鍵字定義表的未空字段。EmailUserPwdUserId4．．用戶信息表Users用戶信息表Users用來保存用戶的基本信息，結(jié)構(gòu)如表8．4所示。ServerNewsldid如果需要存儲的數(shù)據(jù)很大，則可以使用text數(shù)據(jù)類型，例如表News中的Content字符，因?yàn)樾侣剝?nèi)容的數(shù)據(jù)量通常會超過8000個(gè)字符。在SQLReadcountint新聞類別編號7提交人6提交時(shí)間5Contenttext新聞內(nèi)容4 表2表News的結(jié)構(gòu)編號有的程序設(shè)計(jì)人員習(xí)慣于直接使用名稱字段作為標(biāo)識列，例如表Category中的CateName字段。表Category的結(jié)構(gòu)編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1CateIdint新聞類別編號2CateNamevarchar (50)新聞類別名稱表1創(chuàng)建數(shù)據(jù)庫的腳本代碼如下：CREATE DATABASE newsGO可以在SQL查詢分析器中執(zhí)行該語句，創(chuàng)建數(shù)據(jù)庫。后臺系統(tǒng)的流程分析如圖4所示。第1個(gè)過程決定用戶能否進(jìn)入系統(tǒng)。系統(tǒng)用戶信息管理修改Admin用戶的密碼創(chuàng)建、修改、刪除普通用戶信息修改自身的Admin用戶普通用戶圖3 用戶管理功能模塊的關(guān)系圖第三節(jié) 系統(tǒng)流程分析為了使讀者進(jìn)一步了解本實(shí)例系統(tǒng)的設(shè)計(jì)，本小節(jié)將對系統(tǒng)進(jìn)行流程分析。后臺系統(tǒng) 提供數(shù)據(jù)新聞類別管理前臺系統(tǒng)數(shù)據(jù)庫基本信息發(fā)布新聞圖片發(fā)布新聞查詢管理發(fā)表網(wǎng)友評論