【正文】 amp。 39。?flag= + CStr(cid) + 39。第二節(jié) 登錄程序設(shè)計(jì)在對(duì)系統(tǒng)進(jìn)行管理之前，需要通過系統(tǒng)的身份認(rèn)證。(1)包含文件 ，這樣在打開網(wǎng)頁時(shí)，程序會(huì)自動(dòng)連接到數(shù)據(jù)庫，并進(jìn)行身份驗(yàn)證。參數(shù)flag表示指定的新聞?lì)悇e iflag = (flag) 39。font style=39。如果flag=0，則顯示全部新聞，否則顯示指定類別的新聞。nbsp。39。nbsp。39。 Session(UserName) amp。從程序中可以看到，各項(xiàng)管理功能對(duì)應(yīng)的頁面如下：(1)；(2)類別管理Cate—；(3)；(4)?！啊薄?，即只能管理自己創(chuàng)建的新聞。 ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= amp。 And amp。/td/tr/table Else 39。設(shè)置當(dāng)前頁碼為Page = Page 39。039。 amp。 [b amp。 sql第六章 新聞?lì)悇e管理模塊設(shè)計(jì)新聞?lì)悇e管理模塊可以實(shí)現(xiàn)以下功能：(1)添加新的新聞?lì)悇e記錄；(2)修改新聞?lì)悇e記錄；(3)刪除新聞?lì)悇e記錄。1．顯示新聞?lì)悇e信息為了便于用戶管理新聞?lì)悇e，并在后面顯示修改鏈接和刪除復(fù)選框，代碼如下：p align=39。如果記錄集為空，則顯示“目前還沒有記錄” trtd colspan=3 align=centerfont style=39。在表格中顯示新聞?lì)悇e名稱 DO WHILE Not % tr td%=rs(CateName)%/td td align=centera href=?Oper=updateamp。新聞?lì)悇e后面的復(fù)選框名為Cate，它的id值與對(duì)應(yīng)新聞?lì)悇e的編號(hào)相同。2．顯示功能按鈕如果存在新聞?lì)悇e記錄，則在表格下面顯示“全選”、“清空”和“刪除”按鈕，這些按鈕是為刪除新聞?lì)悇e記錄服務(wù)的，代碼如下：39。nbsp。nbsp。如果當(dāng)前狀態(tài)為修改，則顯示修改的表單，否則顯示添加的表單 If Soperate = update Then sTitle = (name)% form name=UFrom method=post action=?cid=%=Operid%amp。在文本域txttitle中輸入新聞?lì)悇e的名稱，然后單擊“添加’，按鈕，參數(shù)Oper等于add，表示插入新記錄。刪除 If Soperate=delete Then sql = SELECT * FROM News WHERE CateId In ( amp。 ) (sqldelt) 新聞?lì)悇e已經(jīng)成功刪除！ Else 新聞?lì)悇e中包含新聞，不能刪除 End If 39。 CateName amp。 amp。如果新類別名稱與舊名稱不同，則判斷是否存在此類別名稱 sql = SELECT * FROM Category WHERE CateName = 39。 And CateId= amp。 amp。新類別不存在 (UPDATE Category SET CateName=39。 WHERE CateId= amp。此時(shí)，頁面的下方將顯示修改數(shù)據(jù)的表單Uform。 注意，在修改新聞?lì)悇e之前，應(yīng)該判斷新的新聞?lì)悇e是否已經(jīng)存在。 1．選擇全部復(fù)選框 ，定義“全選”按鈕的代碼如下：input type=button value=全 選 onclick=sltAll()當(dāng)單擊“全選”按鈕時(shí)，將執(zhí)行sltAll()函數(shù)，代碼如下：function sltAll(){ var nn = (Cate)。 }} self對(duì)象指當(dāng)前頁面，(Cate)返回當(dāng)前頁面中Cate復(fù)選框的數(shù)量。j。 var strid, strurl。 j++) { if ((Cate,j).checked) { n = n + 1。 } else { strid = strid + , + Cateid。 return false。因?yàn)閺?fù)選框的id值與對(duì)應(yīng)的新聞?lì)悇e編號(hào)相同，所以最后strid中保存的是以逗號(hào)為分隔符的待刪除的新聞?lì)悇e編號(hào)。第一節(jié) 添加新聞，“添加新聞”按鈕的定義代碼如下：input type=button value=添加新聞 onclick=newwin(39。)函數(shù)，．a(chǎn)sp。編輯新聞內(nèi)容表單的定義代碼如下：form action= method=POST name=myform align=center onsubmit=return ValidationPassed可以看到，表單名為myfom，表單提交后。 if( 0) { alert(請(qǐng)選擇新聞?lì)悇e) ValidationPassed = false。 return ValidationPassed。 }}這是一段JavaScript代碼，表示表單myfom。nbsp；”；chr(13) 回車符將被替換為BR。為了避免這種情況發(fā)生，這里將空格表示為[space]，并存入數(shù)據(jù)庫，在讀取數(shù)據(jù)時(shí)再將其轉(zhuǎn)換為空格。新聞?lì)悇eDim sql 39。替換函數(shù)rqtContent = Replace(rqtContent,39。定義sql語句，為插入新聞?dòng)涗浂x記錄集sql=SELECT * FROM News sql, Conn, 1, 339。第二節(jié) 修改新聞 ，每條新聞?dòng)涗浀暮竺娑加幸粋€(gè)修改超級(jí)鏈接。將使用下面的代碼包含相關(guān)文件，從而連接到數(shù)據(jù)庫，并判斷用戶的編輯權(quán)限。 (id))因?yàn)樾侣務(wù)臄?shù)據(jù)在存儲(chǔ)前進(jìn)行過替換處理，所以這里需要將數(shù)據(jù)還原，代碼如下：If Not Then 39。39。 ，定義了一個(gè)隱藏域，代碼如下：input type=hidden name=id value=%=rsNews(id)%它的作。)替換數(shù)據(jù)的目的是使它能夠在表單的滾動(dòng)文本域txtcontent中正確顯示。nbsp。ID的值讀取新聞數(shù)據(jù)，代碼如下:Set rsNews = () Set rsCate = () 39。參數(shù)id表示新聞編號(hào)。釋放資源，顯示提示信息set rs = nothing h2添加成功！/h2本節(jié)前面介紹插入新數(shù)據(jù)時(shí)，都是采用定義INSERT語句的方法。)是特殊字符，所以需要將新聞標(biāo)題和正文中的單引號(hào)替換為全角單引號(hào)(‘)，并使用ChangeChr()函數(shù)對(duì)新聞?wù)倪M(jìn)行轉(zhuǎn)換。記錄集變量title = Request(title)title = Replace(title,39。新聞標(biāo)題Dim content 39。nbsp。被替換的功能字符串包括以下內(nèi)容： [upload] 上傳新聞 圖片標(biāo)記， 需要將其替換為 “div[space]align=centerimg[space]src=images/”，其中[space]是空格標(biāo)記，需要在顯示新聞?wù)臅r(shí)轉(zhuǎn)換： [/upload] 與[upload]匹配使用，標(biāo)記上傳新聞圖片的結(jié)束。如果沒有填寫前面提到的信息，將彈出相關(guān)的對(duì)話框，ValidationPassed=false，這樣表單數(shù)據(jù)將無法提交。 ValidationPassed = false。 } if( == ) { alert(請(qǐng)?zhí)顚懶侣剺?biāo)題)。變量ValidationPassed的值將在對(duì)數(shù)據(jù)有效性進(jìn)行驗(yàn)證時(shí)被賦值。圖710 將新聞?lì)悇e添加到下拉菜單中，代碼如下：% Set rs = () 39。) name=add當(dāng)單擊“添加新聞”按鈕時(shí)，將觸發(fā)onclick事件，并調(diào)newwin(39。 在刪除新聞?lì)悇e之前，應(yīng)該判斷此新聞?lì)悇e中是否包含新聞，如果有新聞，則不能刪除，否則會(huì)產(chǎn)生沒有新聞?lì)悇e的垃圾新聞。 ()。cid= + strid。 Cateid = (Cate,j).id+。 //返回復(fù)選框Cate的數(shù)量 for (j=0。 }}3．生成并提交刪除編號(hào)列表，定義“刪除”按鈕的代碼如下：input type=submit value=刪 除 name=tijiao onclick=SelectChk()當(dāng)單擊“刪除”按鈕時(shí)，將執(zhí)行SelectChk()函數(shù)，代碼如下：function SelectChk(){ var s = false。 2．全部清除選擇 ，定義“清空”按鈕的代碼如下：input type=button value=清 空 onclick=sltNull() 當(dāng)單擊“清空”按鈕時(shí)，將執(zhí)行sltNull()函數(shù)，代碼如下：function sltNull(){ var nn = (Cate)。j。第四節(jié) 刪除新聞?lì)悇e 在刪除新聞?lì)悇e之前，需要選中相應(yīng)的復(fù)選框。下面將介紹相關(guān)的代碼。這樣可以避免出現(xiàn)重復(fù)的新聞?lì)悇e。 CateName amp。 39。如果原類別編號(hào)和新類別名稱不存在，則表示類別名稱發(fā)生變化 Set rs = Nothing 39。 CateName amp。 39。 Set rs = (sql) 39。判斷是否已經(jīng)存在此類別名稱 sql = SELECT * FROM Category WHERE CateName=39。 ) Set rs = (sql) If Then sqldelt = DELETE FROM Category WHERE CateId In( amp。，可以在url中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù)Oper的值決定進(jìn)行的操作，與添加數(shù)據(jù)相關(guān)的代碼如下：% 39。當(dāng)參數(shù)0per等于edit時(shí)，程序?qū)⑻幚硇薷牡男侣勵(lì)悇e數(shù)據(jù)；當(dāng)參數(shù)Oper等于add時(shí)，程序?qū)⑻幚硖砑拥男侣勵(lì)悇e數(shù)據(jù)。3．顯示添加或修改新聞?lì)悇e的表單在功能按鈕的下面，將顯示添加或修改新聞?lì)悇e的表單。nbsp。nbsp。但是一次只能刪除一條記錄。name=%=rs(CateName)%修 改/a/td td align=centerinput type=checkbox name=Cate id=%=rs(CateId)%/td /tr% () LOOP%/table可以看到，修改新聞?lì)悇e的頁面也是Cate_Admin．a(chǎn)sp。目前還沒有記錄。font style=FONTSIZE: 12ptb新 聞 類 別 管 理/b/font/pcentertable border=0 cellspacing=0 width=90% tr td align=right a href=font color=red新聞管理/font/a a href=font color=red用戶管理/font/a/td /tr /tabletable border=1 cellspacing=0 width=90% bgcolor=F0F8FF bordercolorlight=4DA6FF bordercolordark=ECF5FF tr td width=60% align=center bgcolor=FEEC85strong類 別/strong/td td width=20% align=center bgcolor=FEEC85strong修 改/strong/td td width=20% align=center bgcolor=FEEC85strong選 擇/strong/td /tr% Set rs = () 39。第一節(jié) 設(shè)計(jì)新聞?lì)悇e管理界面打開新聞?lì)悇e管理界面，如圖69所示。 /b]/a/td Next /tr/table End If End If%這部分代碼的關(guān)鍵部分是根據(jù)新聞?lì)悇e和用戶類型生成sELECT語句，查詢指定的新聞?dòng)涗洝?i amp。?flag= amp。如果到達(dá)記錄集結(jié)尾，則跳出循環(huán) if then Exit For% trtda href=?id=%=rs(id)% onClick=return newwin()%=rs(title)%/a %If rs(attpic)=true then (附圖) End If%/td td align=center%=rs(posttime)%/td td align=centera href=?id=%=rs(id)% onClick=return newwin()修 改/a/td td align=centerinput type=checkbox name=News id=%=rs(id)% st