【導讀】析，確立了新聞發(fā)布系統(tǒng)的具體實現(xiàn)功能。并闡述系統(tǒng)的結構設計和功能設計，實現(xiàn)新聞的分類顯示，最近新聞的提示，新聞滾動功能等。經(jīng)過授權的用戶可以。時的進行行為統(tǒng)計和記錄。本系統(tǒng)是學校網(wǎng)站的一個子系統(tǒng)，具有很好的外部接。Inter上發(fā)布信息主要是通過網(wǎng)站來實現(xiàn)的，獲取信息也是。因此網(wǎng)站建設在Inter應用上的地位顯而易見，它已成為政府、企事業(yè)。單位信息化建設中的重要組成部分，從而倍受人們的重視。開發(fā)工具的選用及介。紹ASP的優(yōu)勢ActiveServerPages：“動態(tài)服務器網(wǎng)頁”，一般簡稱為“ASP”，示VBScript的執(zhí)行結果。當然，其他網(wǎng)頁發(fā)展工具，例如，F(xiàn)rontPageExpress、rontPage. 即所得的網(wǎng)頁編輯來寫ASP，可能會發(fā)生一些意想不到的離奇狀態(tài)。語言相容性高ASP與所有的ActiveXScript語言都相容，除了可結合HTML，的方式，使用其他廠商所提供的語言。Ｌ文件，原始的ASP程序代碼是看不到的！

　　

【正文】 lign center font style 39。COLOR:Red39。 目前還沒有記錄。 Else 39。在表格中顯示新聞類別名稱 DO WHILE Not % % rs CateName % td align center a href ?Oper updateamp。cid % rs CateId % amp。name % rs C ateName % 修 改 td align center input type checkbox name Cate id % rs CateId % % LOOP % 可以看到，修改新聞類別的頁面也是 Cate_Admin． asp。參數(shù) Oper 的值為update，表示當前操作為修改新聞類別；參數(shù) cid 表示要修改的新聞類別編號；參數(shù) name 表示要修改的新聞類別名稱。新聞類別后面的復選框名為 Cate，它的id 值與對應新聞類別的編號相同。 通常刪除功能也可以通過超級超級鏈接來實現(xiàn)，就像本例中的‘‘修改’’ 超級鏈接。但是一次只能刪除一條記錄。本實例介紹一種更方便的方法，即通 過復選框選擇要刪除的記錄，然后單擊 cc 刪除，按鈕，這樣可以同時刪除多 條記錄。 2．顯示功能按鈕 如果存在新聞類別記錄，則在表格下面顯示“全選”、“清空”和“刪除” 按鈕，這些按鈕是為刪除新聞類別記錄服務的，代碼如下： 39。如果記錄數(shù)大于 0，則顯示全選、清空和刪除等按鈕 If 0 then % input type button value 全 選 onclick sltAll input type button value 清 空 onclick sltNull input type submit value 刪 除 name tijiao onclick SelectChk %End If% 返回當前記錄集的記錄數(shù)量。 3．顯示添加或修改新聞類別的表單 在功能按鈕的下面，將顯示添加或修改新聞類別的表單。當 flag update 時，將顯示修改新聞類別的表單；否則顯示添加新聞類別的表單，代碼如下： % 39。如果當前狀態(tài)為修改，則顯示修改的表單，否則顯示添加的表單 If Soperate update Then sTitle name % form name UFrom method post action ?cid % Operid% amp。Oper edit div align center input type hidden name sOrgTitle value % sTitle% font color FFFFFF font color 000000 類別名稱 input type text name txttitle size 20 value % sTitle% input type submit name Submit value 修 改 %Else% form name AForm method post action ?Oper add div align center font color FFFFFF font color 000000 類別名稱 input type text name txttitle size 20 input type submit name Submit value 添 加 %End If% 添加和修改新聞類別的腳本都是 ，只是參數(shù)不同。當參數(shù) 0per 等于 edit 時，程序?qū)⑻幚硇薷牡男侣勵悇e數(shù)據(jù)；當參數(shù) Oper 等于 add 時，程序?qū)⑻幚硖砑拥男侣勵悇e 數(shù)據(jù)。 第二節(jié) 添加新聞類別 在執(zhí)行 Cate_Admin． asp 時，如果參數(shù) Oper 不等于 update，頁面的下方將顯示添加數(shù)據(jù)的表 單 Aform。在文本域 txttitle 中輸入新聞類別的名稱，然后單擊“添加’，按鈕，將調(diào)用 ，參數(shù) Oper 等于 add，表示插入新記錄。 下面將介紹相關的代碼。 在執(zhí)行 時，可以在 url 中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù) Oper的值決定進行的操作，與添加數(shù)據(jù)相關的代碼如下： % 39。處理添加、修改和刪除操作 dim Soperate Soperate oper Operid cid 39。刪除 If Soperate delete Then sql SELECT * FROM News WHERE CateId In amp。 CStr Operid amp。 Set rs sql If Then sqldelt DELETE FROM Category WHERE CateId In amp。 CStr Operid amp。 sqldelt 新聞類別已經(jīng)成功刪除！ Else 新聞類別中包含新聞，不能刪除 End If 39。添加 ElseIf Soperate add then CateName Request txttitle 39。判斷是否已經(jīng)存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 amp。 CateName amp。 39。 Set rs sql 39。如果沒有此類別名稱，則創(chuàng)建新記錄 If Then sql INSERT INTO Category CateName VALUES 39。 amp。 CateName amp。 39。 sql 新聞類別已經(jīng)成功添加！ Else 已經(jīng)存在此類別名稱！ End If Set rs Nothing ElseIf Soperate edit Then CateName Request txttitle 39。如果新類別名稱與舊名稱不同，則判斷是否存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 amp。 CateName amp。 39。 And CateId amp。 Operid Set rs sql If Then 39。如果原類別編號和新類別名稱不存在，則表示類別名稱發(fā)生變化 Set rs Nothing 39。此時判斷是否存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 amp。 CateName amp。 39。 Set rs sql If Then 39。新類別不存在 UPDATE Category SET CateName 39。 amp。 CateName amp。 39。 WHERE CateId amp。 Operid 新聞類別已經(jīng)成功修改！ Else 已經(jīng)存在此類別名稱 End if End If End If % 注意，在插入新聞類別之前，應該判斷此新聞類別是否已經(jīng)存在。這樣可以避免出現(xiàn)重復的新聞類別。 第三節(jié) 修改新聞類別 在 中，單擊新聞類別后面的“修改’，超級鏈接，將再次執(zhí)行 ， 參數(shù) Oper 等于 update。此時，頁面的下方將顯示修改數(shù)據(jù)的表單 Uform。在文本域 txttitle 中輸入新聞類別的名稱，然后單擊“修改”按鈕，將調(diào)用，參數(shù) Oper 等于 edit，表示修改記錄。下面將介紹相關的代碼。在執(zhí)行 時，可以在 url 中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù) Oper 的值決定進行的操作。 注意，在修改新聞類別之前，應該判斷新的新 聞類別是否已經(jīng)存在。這樣可以避免出現(xiàn)重復的新聞類別。 第四節(jié) 刪除新聞類別 在刪除新聞類別之前，需要選中相應的復選框。下面介紹幾個與選擇復選框相關的 javaScript 函數(shù)。 1．選擇全部復選框 在 中，定義“全選”按鈕的代碼如下： input type button value 全 選 onclick sltAll 當單擊“全選”按鈕時，將執(zhí)行 sltAll 函數(shù)，代碼如下： function sltAll var nn .item Cate 。 for j 0。j 。j++ .item Cate,j .checked true。 self 對象指當前頁面， .item Cate 返回當前頁面中 Cate 復選框的數(shù)量。程序通過 for 循環(huán)語句將所有的 Cate 復選框值設置為 true。 2．全部清除選擇 在 中，定義“清空”按鈕的代碼如下： input type button value 清 空 onclick sltNull 當單擊“清空”按鈕時，將執(zhí)行 sltNull 函數(shù)，代碼如下： function sltNull var nn .item Cate 。 for j 0。j 。j++ .item Cate,j .checked false。 3．生成并提交刪除編號列表 在 中，定義“刪除”按鈕的代碼如下： input type submit value 刪 除 name tijiao onclick SelectChk 當單擊“刪除”按鈕時，將執(zhí)行 SelectChk 函數(shù)，代碼如下： function SelectChk var s false。 //用來記錄是否存在被選中的復選框 var Cateid, n 0。 var strid, strurl。 var nn .item Cate 。 //返回復選框 Cate 的數(shù)量 for j 0。 j 。 j++ if .item Cate,j .checked n n + 1。 s true。 Cateid .item Cate,j .id+。 //轉換為字符串 //生成要刪除新聞類別編號的列表 if n 1 strid Cateid。 else strid strid + , + Cateid。 strurl ?Oper deleteamp。cid + strid。 if !s alert 請選擇要刪除的新聞類別 ! 。 return false。 if confirm 你確定要刪除這些新聞類別嗎？ strurl。 。 程序?qū)γ總€復選框進行判斷，如果復選框被選中，則將復選框的 id 值轉換為字符串，并追加到變量 strid 中。因為復選框的 id 值與對應的新聞類別編號相同，所以最后 strid 中保存的是以逗號為 分隔符的待刪除的新聞類別編號。以 strid 的值為參數(shù)執(zhí)行 ，參數(shù) Oper 等于 delete，就可以刪除選中記錄了。 在刪除新聞類別之前，應該判斷此新聞類別中是否包含新聞，如果有新聞，則不能刪除，否則會產(chǎn)生沒有新聞類別的垃圾新聞。 第七章 新聞發(fā)布管理模塊設計 系統(tǒng)用戶都可以發(fā)布新聞，新聞發(fā)布管理模塊包含以下功能： 1 發(fā)布新新聞； 2 修改新聞； 3 刪除新聞。 第一節(jié) 添加新聞 在 中，“添加新聞”按鈕的定義代碼如下： input type button value 添加新聞 onclick newwin 39。39。 name add 當單擊“添加新聞”按鈕時，將觸發(fā) onclick 事件，并調(diào) newwin 39。39。 函數(shù)，即在彈出的新窗口中執(zhí)行 ． asp。 的運行界面如圖 710 所示。 圖 710 的運行界面 將新聞類別添加到下拉菜單中