【正文】 f Then 39。如果原類別編號(hào)和新類別名稱不存在，則表示類別名稱發(fā)生變化 Set rs = Nothing 39。此時(shí)判斷是否存在此類別名稱 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) 新聞?lì)悇e已經(jīng)成功修改！ Else 已經(jīng)存在此類別名稱 End if End If End If% 注意，在插入新聞?lì)悇e之前，應(yīng)該判斷此新聞?lì)悇e是否已經(jīng)存在。這樣可以避免出現(xiàn)重復(fù)的新聞?lì)悇e。第三節(jié) 修改新聞?lì)悇e ，單擊新聞?lì)悇e后面的“修改’，超級(jí)鏈接， 參數(shù)Oper等于update。此時(shí)，頁(yè)面的下方將顯示修改數(shù)據(jù)的表單Uform。在文本域txttitle中輸入新聞?lì)悇e的名稱，然后單擊“修改”按鈕，參數(shù)Oper等于edit，表示修改記錄。下面將介紹相關(guān)的代碼。，可以在url中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù)Oper的值決定進(jìn)行的操作。 注意，在修改新聞?lì)悇e之前，應(yīng)該判斷新的新聞?lì)悇e是否已經(jīng)存在。這樣可以避免出現(xiàn)重復(fù)的新聞?lì)悇e。第四節(jié) 刪除新聞?lì)悇e 在刪除新聞?lì)悇e之前，需要選中相應(yīng)的復(fù)選框。下面介紹幾個(gè)與選擇復(fù)選框相關(guān)的javaScript函數(shù)。 1．選擇全部復(fù)選框 ，定義“全選”按鈕的代碼如下：input type=button value=全 選 onclick=sltAll()當(dāng)單擊“全選”按鈕時(shí)，將執(zhí)行sltAll()函數(shù)，代碼如下：function sltAll(){ var nn = (Cate)。 for(j=0。j。j++) { (Cate,j).checked = true。 }} self對(duì)象指當(dāng)前頁(yè)面，(Cate)返回當(dāng)前頁(yè)面中Cate復(fù)選框的數(shù)量。程序通過(guò)for循環(huán)語(yǔ)句將所有的Cate復(fù)選框值設(shè)置為true。 2．全部清除選擇 ，定義“清空”按鈕的代碼如下：input type=button value=清 空 onclick=sltNull() 當(dāng)單擊“清空”按鈕時(shí)，將執(zhí)行sltNull()函數(shù)，代碼如下：function sltNull(){ var nn = (Cate)。 for(j=0。j。j++) { (Cate,j).checked = false。 }}3．生成并提交刪除編號(hào)列表，定義“刪除”按鈕的代碼如下：input type=submit value=刪 除 name=tijiao onclick=SelectChk()當(dāng)單擊“刪除”按鈕時(shí)，將執(zhí)行SelectChk()函數(shù)，代碼如下：function SelectChk(){ var s = false。 //用來(lái)記錄是否存在被選中的復(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)換為字符串 //生成要?jiǎng)h除新聞?lì)悇e編號(hào)的列表 if(n==1) { strid = Cateid。 } else { strid = strid + , + Cateid。 } } } strurl = ?Oper=deleteamp。cid= + strid。 if(!s) { alert(請(qǐng)選擇要?jiǎng)h除的新聞?lì)悇e!)。 return false。 } if (confirm(你確定要?jiǎng)h除這些新聞?lì)悇e嗎？)) { = strurl。 ()。 }} 程序?qū)γ總€(gè)復(fù)選框進(jìn)行判斷，如果復(fù)選框被選中，則將復(fù)選框的id值轉(zhuǎn)換為字符串，并追加到變量strid中。因?yàn)閺?fù)選框的id值與對(duì)應(yīng)的新聞?lì)悇e編號(hào)相同，所以最后strid中保存的是以逗號(hào)為分隔符的待刪除的新聞?lì)悇e編號(hào)。，參數(shù)Oper等于delete，就可以刪除選中記錄了。 在刪除新聞?lì)悇e之前，應(yīng)該判斷此新聞?lì)悇e中是否包含新聞，如果有新聞，則不能刪除，否則會(huì)產(chǎn)生沒(méi)有新聞?lì)悇e的垃圾新聞。第七章 新聞發(fā)布管理模塊設(shè)計(jì)系統(tǒng)用戶都可以發(fā)布新聞，新聞發(fā)布管理模塊包含以下功能：(1)發(fā)布新新聞；(2)修改新聞；(3)刪除新聞。第一節(jié) 添加新聞，“添加新聞”按鈕的定義代碼如下：input type=button value=添加新聞 onclick=newwin(39。39。) name=add當(dāng)單擊“添加新聞”按鈕時(shí)，將觸發(fā)onclick事件，并調(diào)newwin(39。39。)函數(shù)，．a(chǎn)sp。圖710 將新聞?lì)悇e添加到下拉菜單中，代碼如下：% Set rs = () 39。將新聞?lì)悇e裝入下拉菜單中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId)% option value=%=cid%%=stitle%/option% LOOP%下拉菜單名為Cate，值為新聞?lì)悇e編號(hào)，顯示的內(nèi)容是新聞?lì)悇e名稱。編輯新聞內(nèi)容表單的定義代碼如下：form action= method=POST name=myform align=center onsubmit=return ValidationPassed可以看到，表單名為myfom，表單提交后。在提交表單數(shù)據(jù)之前，程序?qū)?duì)ValidationPassed變量進(jìn)行判斷，只有當(dāng)ValidationPassed=True時(shí)，才執(zhí)行提交操作。變量ValidationPassed的值將在對(duì)數(shù)據(jù)有效性進(jìn)行驗(yàn)證時(shí)被賦值。在．，定義“確定”按鈕的代碼如下：input type=submit value= 確 定 name=B1 onclick=return form_onsubmit()在單擊“確定”按鈕時(shí)，將執(zhí)行form_onsubmit()，進(jìn)行數(shù)據(jù)有效性驗(yàn)證，代碼如下:function form_onsubmit(obj) { ValidationPassed = true。 if( 0) { alert(請(qǐng)選擇新聞?lì)悇e) ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請(qǐng)?zhí)顚懶侣剺?biāo)題)。 ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請(qǐng)?zhí)顚懶侣剝?nèi)容！)。 ValidationPassed = false。 return ValidationPassed。 }}這是一段JavaScript代碼，表示表單myfom。程序?qū)⒎謩e對(duì)新聞?lì)悇e、新聞標(biāo)題和新聞內(nèi)容進(jìn)行判斷，這些信息是必須填寫的。如果沒(méi)有填寫前面提到的信息，將彈出相關(guān)的對(duì)話框，ValidationPassed=false，這樣表單數(shù)據(jù)將無(wú)法提交。，將可以顯示控制模板。，有一個(gè)函數(shù)ChangeStr()，它的功能是替換新聞?wù)闹械墓δ茏址?，目的是使其能夠成為HTML網(wǎng)頁(yè)的一部分，在瀏覽網(wǎng)頁(yè)時(shí)被正常顯示。被替換的功能字符串包括以下內(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é)束。需要將其替換為 “[space]border=0[space]width=300/img/div”；空格(””) 空格將被替換為“amp。nbsp；”；chr(13) 回車符將被替換為BR。函數(shù)ChangeStr()的代碼如下：Function ChangeChr(str) ChangeChr = Replace( str, [upload], div[space]align=centerimg[space]src=images/) ChangeChr=Replace( ChangeChr, [/upload], [space]border=0[space]width=300/img/div) ChangeChr = Replace( ChangeChr, , amp。nbsp。) ChangeChr = Replace( ChangeChr, chr(13), br)End Function新聞?wù)男枰４嬖跀?shù)據(jù)庫(kù)中，當(dāng)從數(shù)據(jù)庫(kù)中讀取新聞?wù)牡膬?nèi)容在網(wǎng)頁(yè)中顯示時(shí)，空格將被自動(dòng)過(guò)濾掉，這樣imgsrc=images/將無(wú)法被正確顯示。為了避免這種情況發(fā)生，這里將空格表示為[space]，并存入數(shù)據(jù)庫(kù)，在讀取數(shù)據(jù)時(shí)再將其轉(zhuǎn)換為空格。，并將它們轉(zhuǎn)換為能夠保存到數(shù)據(jù)庫(kù)中的格式，代碼如下：Dim title 39。新聞標(biāo)題Dim content 39。新聞內(nèi)容Dim category 39。新聞?lì)悇eDim sql 39。sql語(yǔ)句字符串Dim rs 39。記錄集變量title = Request(title)title = Replace(title,39。,‘)attpic = Request(attpic)rqtContent = ChangeChr(request(txtcontent)) 39。替換函數(shù)rqtContent = Replace(rqtContent,39。,‘)因?yàn)樵趕ql語(yǔ)句中，單引號(hào)(39。)是特殊字符，所以需要將新聞標(biāo)題和正文中的單引號(hào)替換為全角單引號(hào)(‘)，并使用ChangeChr()函數(shù)對(duì)新聞?wù)倪M(jìn)行轉(zhuǎn)換。接下來(lái)程序?qū)⒈４嫘侣剶?shù)據(jù)，代碼如下：Set rs = ()39。定義sql語(yǔ)句，為插入新聞?dòng)涗浂x記錄集sql=SELECT * FROM News sql, Conn, 1, 339。使用AddNew和Update插入新記錄rs(CateId) = CInt(Request(Cate)) rs(Title) = titlers(Content) = rqtContentrs(Posttime) = now()rs(Poster) = Session(UserName)rs(ReadCount) = 0If attpic Then rs(attpic) = attpicEnd If39。釋放資源，顯示提示信息set rs = nothing h2添加成功！/h2本節(jié)前面介紹插入新數(shù)據(jù)時(shí)，都是采用定義INSERT語(yǔ)句的方法。這里使用一種新方法，然后依次對(duì)rs中各字段賦值。第二節(jié) 修改新聞 ，每條新聞?dòng)涗浀暮竺娑加幸粋€(gè)修改超級(jí)鏈接。單擊此鏈接，對(duì)指定新聞進(jìn)行編輯。參數(shù)id表示新聞編號(hào)。，將使用下面的代碼包含相關(guān)文件，從而連接到數(shù)據(jù)庫(kù)，并判斷用戶的編輯權(quán)限。!include file=!include file=ID的值讀取新聞數(shù)據(jù)，代碼如下:Set rsNews = () Set rsCate = () 39。讀取指定新聞數(shù)據(jù) Set rsNews = (SELECT * FROM News WHERE id = amp。 (id))因?yàn)樾侣務(wù)臄?shù)據(jù)在存儲(chǔ)前進(jìn)行過(guò)替換處理，所以這里需要將數(shù)據(jù)還原，代碼如下：If Not Then 39。對(duì)新聞內(nèi)容進(jìn)行替換 txtcontent = rsNews(content) txtcontent = replace(txtcontent, br, chr(13)) txtcontent = replace(txtcontent, amp。nbsp。, ) rqtContent = replace(txtcontent, 39。39。, 39。)替換數(shù)據(jù)的目的是使它能夠在表單的滾動(dòng)文本域txtcontent中正確顯示。代碼中省略的部分包括生成新聞?lì)悇e下拉菜單，以及根據(jù)新聞數(shù)據(jù)對(duì)表單中的各組件賦值。 ，定義了一個(gè)隱藏域，代碼如下：input type=hidden name=id value=%=rsNews(id)%它的作