【導(dǎo)讀】我們從建站的實際情況出發(fā)，經(jīng)過對有關(guān)網(wǎng)站新聞發(fā)布事項的一番考察和分析，并闡述系統(tǒng)的結(jié)構(gòu)設(shè)計和功能設(shè)計，實現(xiàn)新聞的分類。顯示，最近新聞的提示，新聞滾動功能等。經(jīng)過授權(quán)的用戶可以通過Web瀏覽器，以人機。交互式的客戶端程序?qū)崿F(xiàn)對學(xué)校新聞的發(fā)布、管理、實時的進行行為統(tǒng)計和記錄。而且有序地呈現(xiàn)在大家面前。在Inter飛速發(fā)展的今天，互聯(lián)網(wǎng)成為人們快速獲取、發(fā)布和傳遞信息的重要渠道，它在人們政治、經(jīng)濟、生活等各個方面發(fā)揮著重要的作用。Inter上發(fā)布信息主要是通過。網(wǎng)站上下載下來。因此網(wǎng)站建設(shè)在Inter應(yīng)用上的地位顯而易見，它已成為政府、企事業(yè)。單位信息化建設(shè)中的重要組成部分，從而倍受人們的重視。以能受到大家的重視與使用的原因，主要在于所產(chǎn)生的執(zhí)行結(jié)果都是標準的HTML格式，或JavaScript是在客戶端的瀏覽器上執(zhí)行，若使用VBScript來設(shè)計程序，客戶端

　　

【正文】 )%/td td align=centera href=?Oper=updateamp。cid=%=rs(CateId)%amp。name=%=rs(C ateName)%修 改 /a/td td align=centerinput type=checkbox name=Cate id=%=rs(CateId)%/td /tr % () LOOP % /table 可以看到，修改新聞類別的頁 面也是 Cate_Admin． asp。參數(shù) Oper 的值為 update，表示當前操作為修改新聞類別；參數(shù) cid 表示要修改的新聞類別編號；參數(shù) name 表示要修改的新聞類別名稱。新聞類別后面的復(fù)選框名為 Cate，它的 id 值與對應(yīng)新聞類別的編號相同。 通常刪除功能也可以通過超級超級鏈接來實現(xiàn)，就像本例中的‘‘修改’’ 超級鏈接。但是一次只能刪除一條記錄。本實例介紹一種更方便的方法，即通 過復(fù)選框選擇要刪除的記錄，然后單擊 cc 刪除，按鈕，這樣可以同時刪除多 條記錄。 2．顯示功能按鈕 如果存在新聞類別記錄，則在表格下 面顯示“全選”、“清空”和“刪除” 按鈕，這些按鈕是為刪除新聞類別記錄服務(wù)的，代碼如下： 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=FFFFFFbfont color=000000類別名稱 /font/b/font input type=text name=txttitle size=20 value=%=sTitle% input type=submit name=Submit value= 修 改 /div /form %Else% form name=AForm method=post action=?Oper=add div align=center font color=FFFFFFbfont color=000000類別名稱 /font/b/font input type=text name=txttitle size=20 input type=submit name=Submit value= 添 加 /div /form %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，表示插入新記錄。 下面將介紹相關(guān)的代碼。 在執(zhí)行 時，可以在 url中包含參數(shù)，程序?qū)⒏鶕?jù)參 數(shù) Oper 的值決定進行的操作，與添加數(shù)據(jù)相關(guān)的代碼如下： % 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 % 注意，在插入新聞類別之前，應(yīng)該判斷此新聞類別是否已經(jīng)存在。這樣可以避免出現(xiàn)重復(fù)的新聞類別。 第三節(jié) 修改新聞類別 在 中，單擊新聞類別后面的“修改’，超級鏈接，將再次執(zhí)行， 參數(shù) Oper等于 update。此時，頁面的下方將顯示修改數(shù)據(jù)的表單 Uform。在文本域 txttitle中輸入新聞類別的名稱，然后單擊“修改”按 鈕，將調(diào)用 ，參數(shù) Oper 等于edit，表示修改記錄。下面將介紹相關(guān)的代碼。在執(zhí)行 時，可以在 url中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù) Oper 的值決定進行的操作。 注意，在修改新聞類別之前，應(yīng)該判斷新的新聞類別是否已經(jīng)存在。這樣可以避免出現(xiàn)重復(fù)的新聞類別。 第四節(jié) 刪除新聞類別 在刪除新聞類別之前，需要選中相應(yīng)的復(fù)選框。下面介紹幾個與選擇復(fù)選框相關(guān)的javaScript 函數(shù)。 1．選擇全部復(fù)選框 在 中，定義“全選”按鈕 的代碼如下： input type=button value=全 選 onclick=sltAll() 當單擊“全選”按鈕時，將執(zhí)行 sltAll()函數(shù)，代碼如下： function sltAll() { var nn = (Cate)。 for(j=0。j。j++) { (Cate,j).checked = true。 } } self 對象指當前頁面， (Cate)返回當前頁面中 Cate復(fù)選框的數(shù)量。 程序通過 for 循環(huán)語句將所有的 Cate 復(fù)選框值設(shè)置為 true。 2．全部清除選擇 在 中，定義“清空”按鈕的代碼如下： input type=button value=清 空 onclick=sltNull() 當單擊“清空”按鈕時，將執(zhí)行 sltNull()函數(shù)，代碼如下： function sltNull() { var nn = (Cate)。 for(j=0。j。j++) { (Cate,j).checked = false。 } } 3．生成并提交刪除編號列表 在 中，定義“刪除”按鈕的代碼如下： input type=submit value=刪 除 name=tijiao onclick=SelectChk() 當單擊“刪除”按鈕時，將執(zhí)行 SelectChk()函數(shù)，代碼如下： function SelectChk() { var s = false。 //用來記錄是否存在被選中的復(fù)選框 var Cateid, n=0。 var strid, strurl。 var nn = (Cate)。 //返回復(fù)選框 Cate 的數(shù)量 for (j=0。 j。 j++) { if ((Cate,j).checked) { n = n + 1。 s = true。 Cateid = (Cate,j).id+。 //轉(zhuǎn)換為字符串 //生成要刪除新聞類別編號的列表 if(n==1) { strid = Cateid。 } else { strid = strid + , + Cateid。 } } } strurl = ?Oper=deleteamp。cid= + strid。 if(!s) { alert(請選擇要刪除的新聞類別 !)。 return false。 } if (confirm(你確定要刪除這些新聞類別嗎？ )) { = strurl。 ()。 } } 程序?qū)γ總€復(fù)選框進行判斷，如果復(fù)選框被選中，則將復(fù)選框的 id 值轉(zhuǎn)換為字符串，并追加到變量 strid 中。因為復(fù)選框的 id 值與對應(yīng)的新聞類別編號相同，所以最后 strid 中保存 的是以逗號為分隔符的待刪除的新聞類別編號。以 strid 的值為參數(shù)執(zhí)行 ，參數(shù) Oper 等于 delete，就可以刪除選中記錄了。 在刪除新聞類別之前，應(yīng)該判斷此新聞類別中是否包含新聞，如果有新聞，則不能刪除，否則會產(chǎn)生沒有新聞類別的垃圾新聞。 第七章 新聞發(fā)布管理模塊設(shè)計 系統(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 的運行界面 將新聞類別添加到下拉菜單中，代碼如下： % Set