【正文】 圖 710 的運行界面 將新聞類別添加到下拉菜單中，代。 函數(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 .item Cate,j .id+。 j++ if .item 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 .item Cate 。 self 對象指當前頁面， .item Cate 返回當前頁面中 Cate 復選框的數(shù)量。j 。 1．選擇全部復選框 在 中，定義“全選”按鈕的代碼如下： input type button value 全 選 onclick sltAll 當單擊“全選”按鈕時，將執(zhí)行 sltAll 函數(shù)，代碼如下： function sltAll var nn .item 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 % 修 改 td align center input type checkbox name Cate id % rs CateId % % LOOP % 可以看到，修改新聞類別的頁面也是 Cate_Admin． asp。在表格中顯示新聞類別名稱 DO WHILE Not % % rs CateName % td align center a href ?Oper updateamp。 目前還沒有記錄。如果記錄集為空，則顯示“目前還沒有記錄” td colspan 3 align center font style 39。 font style FONTSIZE: 12pt 新 聞 類 別 管 理 table border 0 cellspacing 0 width 90% td align right a href font color red 新聞管理 a href font color red 用戶管理 table border 1 cellspacing 0 width 90% bgcolor F0F8FF bordercolorlight 4DA6FF bordercolordark ECF5FF td width 60% align center bgcolor FEEC85 類 別 td width 20% align center bgcolor FEEC85 修 改 td width 20% align center bgcolor FEEC85 選 擇 % Set rs 39。 1．顯示新聞類別信息 為了便于用戶管理新聞類別， 以表格的形式顯示新聞類別名稱，并在后面顯示修改鏈接和刪除復選框，代碼如下： p align 39。 第一節(jié) 設計新聞類別管理界面 打開新聞類別管理界面，如圖 69 所示。 sql 第六章 新聞類別管理模塊設計 新聞類別管理模塊可以實現(xiàn)以下功能： 1 添加新的新聞類別記錄； 2 修改新聞類別記錄； 3 刪除新聞類別記錄。 ] Next End If End If % 這部分代碼的關(guān)鍵部分是根據(jù)新聞類別和用戶類型生成 sELECT 語句，查詢指定的新聞記錄。 [ amp。 i amp。 amp。?flag amp。039。如果到達記錄集結(jié)尾，則跳出循環(huán) if then Exit For % a href ?id % rs id % onClick return newwin % rs title % %If rs attpic true then 附圖 End If% td align center % rs posttime % td align center a href ?id % rs id % onClick return newwin 修 改 td align center input type checkbox name News id % rs id % style fontsize: 9pt value ON % Next % % 39。設置當前頁碼為 Page Page 39。讀取參數(shù) page，表示當前的頁碼，使用 CLng 將其轉(zhuǎn)換為長整型 Page CLng Request Page 39。 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 變量設置 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 “”，即顯示所有新聞；否則設置查詢條件為“ Poster “” amp。 從程序中可以看到，各項管理功能對應的頁面如下： 1 更改密碼 ； 2 類別管理 Cate― ； 3 用戶管理 ； 4 退出登錄 。 End If % Session ” UserName” 中保存著當前登錄用戶的用戶名。 Session UserName amp。如果不是系統(tǒng)管理 員，則只能管理自己提交的新聞，所以在這里設置WHERE 子句的條件 sql_where Poster 39。39。39。顯示管理鏈接的代碼如下： % 39。如果 flag 0，則顯示全部新聞，否則顯示指定類別的新聞。color:black39。 font style 39。顯示新聞類別鏈接，注意根據(jù)類別編號設置參數(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 rsCate 39。 1 包含文件 在 的開始部分添加下面的代碼，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。 錄入新聞類別和新聞內(nèi)容后， 的界面如圖 57 所示。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file ”chkpwd. asp” 這樣為登陸的用戶將看到如下界面：