【正文】 圖 710 的運行界面 將新聞類別添加到下拉菜單中，代碼如下： % Set 。)函數(shù)，即在彈出的新窗口中執(zhí)行 ． asp。) name=add 當單擊“添加新聞”按鈕時，將觸發(fā) onclick 事件，并調(diào) newwin (39。 第一節(jié) 添加新聞 在 中，“添加新聞”按鈕的定義代碼 如下： input type=button value=添加新聞 onclick=newwin(39。 在刪除新聞類別之前，應該判斷此新聞類別中是否包含新聞，如果有新聞，則不能刪除，否則會產(chǎn)生沒有新聞類別的垃圾新聞。因為復選框的 id 值與對應的新聞類別編號相同，所以最后 strid 中保存 的是以逗號為分隔符的待刪除的新聞類別編號。 ()。 return false。cid= + strid。 } else { strid = strid + , + Cateid。 Cateid = (Cate,j).id+。 j++) { if ((Cate,j).checked) { n = n + 1。 //返回復選框 Cate 的數(shù)量 for (j=0。 var strid, strurl。 } } 3．生成并提交刪除編號列表 在 中，定義“刪除”按鈕的代碼如下： input type=submit value=刪 除 name=tijiao onclick=SelectChk() 當單擊“刪除”按鈕時，將執(zhí)行 SelectChk()函數(shù)，代碼如下： function SelectChk() { var s = false。j。 2．全部清除選擇 在 中，定義“清空”按鈕的代碼如下： input type=button value=清 空 onclick=sltNull() 當單擊“清空”按鈕時，將執(zhí)行 sltNull()函數(shù)，代碼如下： function sltNull() { var nn = (Cate)。 } } self 對象指當前頁面， (Cate)返回當前頁面中 Cate復選框的數(shù)量。j。 1．選擇全部復選框 在 中，定義“全選”按鈕 的代碼如下： input type=button value=全 選 onclick=sltAll() 當單擊“全選”按鈕時，將執(zhí)行 sltAll()函數(shù)，代碼如下： function sltAll() { var nn = (Cate)。 第四節(jié) 刪除新聞類別 在刪除新聞類別之前，需要選中相應的復選框。 注意，在修改新聞類別之前，應該判斷新的新聞類別是否已經(jīng)存在。下面將介紹相關(guān)的代碼。此時，頁面的下方將顯示修改數(shù)據(jù)的表單 Uform。這樣可以避免出現(xiàn)重復的新聞類別。 WHERE CateId= amp。 CateName amp。新類別不存在 (UPDATE Category SET CateName=39。 39。 amp。如果原類別編號和新類別名稱不存在，則表示類別名稱發(fā)生變化 Set rs = Nothing 39。 And CateId= amp。 CateName amp。如果新類別名稱與舊名稱不同， 則判斷是否存在此類別名稱 sql = SELECT * FROM Category WHERE CateName = 39。 39。 amp。 Set rs = (sql) 39。 CateName amp。判斷是否已經(jīng)存在此類別名稱 sql = SELECT * FROM Category WHERE CateName=39。 ) (sqldelt) 新聞類別已經(jīng)成功刪除！ Else 新聞類別中包含新聞，不能刪除 End If 39。 ) Set rs = (sql) If Then sqldelt = DELETE FROM Category WHERE CateId In( amp。刪除 If Soperate=delete Then sql = SELECT * FROM News WHERE CateId In ( amp。 在執(zhí)行 時，可以在 url中包含參數(shù)，程序?qū)⒏鶕?jù)參 數(shù) Oper 的值決定進行的操作，與添加數(shù)據(jù)相關(guān)的代碼如下： % 39。在文本域 txttitle 中輸入新聞類別的名稱，然后單擊“添加’，按鈕，將調(diào)用 ，參數(shù) Oper 等于 add，表示插入新記錄。當參數(shù) 0per 等于 edit 時，程序?qū)⑻幚硇薷牡男侣勵悇e數(shù)據(jù)；當參數(shù) Oper 等于 add 時，程序?qū)⑻幚硖砑拥男侣勵悇e 數(shù)據(jù)。如果當前狀態(tài)為修改，則顯示修改的表單，否則顯示添加的表單 If Soperate = update Then sTitle = (name) % form name=UFrom method=post action=?cid=%=Operid%amp。 3．顯示添加或修改新聞類別的表單 在功能按鈕的下面，將顯示添加或修改新聞類別的表單。 2．顯示功能按鈕 如果存在新聞類別記錄，則在表格下 面顯示“全選”、“清空”和“刪除” 按鈕，這些按鈕是為刪除新聞類別記錄服務的，代碼如下： 39。但是一次只能刪除一條記錄。新聞類別后面的復選框名為 Cate，它的 id 值與對應新聞類別的編號相同。name=%=rs(C ateName)%修 改 /a/td td align=centerinput type=checkbox name=Cate id=%=rs(CateId)%/td /tr % () LOOP % /table 可以看到，修改新聞類別的頁 面也是 Cate_Admin． asp。在表格中顯示新聞類別名稱 DO WHILE Not % tr td%=rs(CateName)%/td td align=centera href=?Oper=updateamp。目前還沒有記錄。如果記錄集為空，則顯示“目前還沒有記錄” trtd colspan=3 align=centerfont style=39。font style=FONTSIZE: 12ptb新 聞 類 別 管 理 /b/font/p center table 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 /table table 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。 1．顯示新聞類別信息 為了便于用戶管理新聞類別， 以表格的形式顯示新聞類別名稱，并在后面 顯示修改鏈接和刪除復選框，代碼如下： p align=39。 第一節(jié) 設(shè)計新聞類別管理界面 打開新聞類別管理界面，如圖 69 所示。 sql 第六章 新聞類別管理模塊設(shè)計 新聞類別管理模塊可以實現(xiàn)以下功能： (1)添加新的新聞類別記錄； (2)修改新聞類別記錄； (3)刪除新聞類別記錄。 /b]/a/td Next /tr/table End If End If % 這部分代碼的關(guān)鍵部分是根據(jù)新聞類別和用戶類型生成 sELECT 語句，查詢指定的新聞記錄。 [b amp。 i amp。 amp。?flag= amp。039。如果到達記錄集結(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)% style=fontsize: 9pt value=ON/td /tr % () Next % /table % 39。設(shè)置當前頁碼為 Page = Page 39。讀取參數(shù) page，表示當前的頁碼，使用 CLng將其轉(zhuǎn)換為長整型 Page = CLng(Request(Page)) 39。/td/tr/table Else 39。 ORDER BY Posttime DESC End If End If sql,conn,1,1 39。 And amp。 ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= amp。 ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= amp。根據(jù)參數(shù) iflag和 sql_where 變量設(shè)置 SQL 語句，讀取新聞數(shù)據(jù) If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE amp?！啊薄?，即只能管理自己創(chuàng)建的新聞。如果當前用戶是 Admin，則 sql_where=“”，即顯示所有新聞；否則設(shè)置查詢條件為“ Poster=“” amp。 從程序中可以看到，各項管理功能對應的頁面如下： (1)更改密碼 ； (2)類別管理 Cate— ； (3)用戶管理 ； (4)退出登錄 。 End If % Session(” UserName” )中保存著當前登錄用戶的用戶名。 Session(UserName) amp。如果不是系 統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設(shè)置 WHERE 子句的條件 sql_where = Poster=39。39。39。顯示管理鏈接的代碼如下： % 39。如果 flag=0，則顯示全部新聞，否則顯示指定類別的新聞。color:black39。font style=39。顯示新聞類別鏈接，注意根據(jù)類別編號設(shè)置參數(shù) flag DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) %| a href=39。參數(shù) flag表示指定的新聞類別 iflag = (flag) 39。顯示新聞類別的代碼如下： % Dim rs,rsCate Set rs = () set rs