【正文】 添加 ElseIf Soperate = add th。 CStr(Operid) amp。 CStr(Operid) amp。處理添加、修改和刪除操作 dim Soperate Soperate = (oper) Operid = (cid) 39。下面將介紹相關(guān)的代碼。第二節(jié) 添加新聞?lì)悇e 在執(zhí)行 Cate_Admin．a(chǎn)sp 時(shí)，如果參數(shù) Oper 不等于 update，頁(yè)面的下方將顯示添加數(shù)據(jù)的表單 Aform。Oper=edit div align=centerinput type=hidden name=sOrgTitle value=%=sTitle%font color=FFFFFFbfont color=000000類(lèi)別名稱(chēng)/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=centerfont color=FFFFFFbfont color=000000類(lèi)別名稱(chēng)/font/b/font input type=text name=txttitle size=20input type=submit name=Submit value= 添 加 /div/form%End If% 添加和修改新聞?lì)悇e的腳本都是 ，只是參數(shù)不同。當(dāng) flag=update時(shí)，將顯示修改新聞?lì)悇e的表單；否則顯示添加新聞?lì)悇e的表單，代碼如下：% 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% 返回當(dāng)前記錄集的記錄數(shù)量。本實(shí)例介紹一種更方便的方法，即通過(guò)復(fù)選框選擇要?jiǎng)h除的記錄，然后單擊 cc 刪除， ，按鈕，這樣可以同時(shí)刪除多條記錄。通常刪除功能也可以通過(guò)超級(jí)超級(jí)鏈接來(lái)實(shí)現(xiàn)，就像本例中的‘‘修改’ ’超級(jí)鏈接。參數(shù) Oper 的值為 update，表示當(dāng)前操作為修改新聞?lì)悇e；參數(shù) cid 表示要修改的新聞?lì)悇e編號(hào)；參數(shù) name 表示要修改的新聞?lì)悇e名稱(chēng)。cid=%=rs(CateId)%amp。/font/td/tr/table Else 39。COLOR:Red39。讀取所有的新聞?lì)悇e數(shù)據(jù)到記錄集 rs 中 sql = SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。center39。圖 69 新聞?lì)悇e管理界面下面將介紹 中與界面顯示相關(guān)的部分代碼。只有 Admin 用戶(hù)才有權(quán)限進(jìn)入新聞?lì)悇e管理模塊，在 中，單擊“類(lèi)別管理”超級(jí)鏈接，可以打開(kāi)類(lèi)別管理頁(yè)面 。在調(diào)試程序時(shí)，可以使用下面的語(yǔ)句顯示 sELECT 語(yǔ)句的內(nèi)容。 i amp。 39。page= amp。 iflag amp。trtdb分頁(yè)： /b/td For i = 1 To tda href=39。顯示分頁(yè)頁(yè)碼 If 1 then table border=39。循環(huán)顯示當(dāng)前頁(yè)的記錄 For i = 1 to 39。處理不合法的頁(yè)碼 If Page 1 Then Page = 1 If Page Then Page = 39。設(shè)置分頁(yè)顯示，每頁(yè)顯示 20 條新聞?dòng)涗?= 2039。如果記錄集 rs 為空，則顯示“目錄還沒(méi)有記錄” If Then trtd colspan=4 align=center目前還沒(méi)有記錄。 sql_where amp。 iflag amp。 iflag amp。 sql_where amp。(4)分頁(yè)顯示新聞信息下面將根據(jù)指定的新聞?lì)悇e和頁(yè)碼顯示新聞標(biāo)題列表，代碼如下：% 39。Session(“UserName”)amp。變量 sql_where 用來(lái)記錄查詢(xún)條件。當(dāng) Session(”UserName”)=”Admin”時(shí)，才能顯示 “類(lèi)別管理”和“用戶(hù)管理”超級(jí)鏈接。 39。 amp。font color=red用戶(hù)管理/font/a sql_where = Else 39。font color=red類(lèi)別管理/font/a a href=39。如果為管理員則顯示類(lèi)別管理和用戶(hù)管理 If Session(UserName) = Admin Then a href=39。(3)顯示管理鏈接在 中，將根據(jù)用戶(hù)類(lèi)型顯示管理鏈接，包括“更改密碼” 、 “類(lèi)別管理” 、 “用戶(hù)管理”和“退出登錄” ，只有 Admin 用戶(hù)才能看到“類(lèi)別管理”和“用戶(hù)管理”鏈接。%=stitle%/font/a % Loop%在調(diào)用 時(shí)，參數(shù) flag 表示新聞?lì)悇e。TEXTDECORATION: none。?flag=%=cid%39。設(shè)置 SQL 語(yǔ)句，讀取所有的新聞?lì)悇e到 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。定義變量 Dim iflag,sql_where 39。!include file=!include file= (2)顯示新聞?lì)悇e鏈接 將新聞按照分類(lèi)顯示，每個(gè)新聞?lì)悇e只顯示最新的 20 條新聞。 下面介紹 的主要代碼。本節(jié)將介紹管理界面 的實(shí)現(xiàn)方法。本站中使用 進(jìn)行身份驗(yàn)證。請(qǐng)參照注釋理解。更多新聞.../a/p /td/tr/table/td/table loop % 因?yàn)樵诘?l 步中已經(jīng)將各新聞?lì)悇e的標(biāo)題讀取到記錄集 rsCate 中，所以只需要使用執(zhí)行 語(yǔ)句將指針復(fù)位就可以了。 href=39。生成“更多新聞”鏈接，查看指定類(lèi)別所有新聞的腳本為 a target=39。( + CStr(rs(Posttime)) + )/td/trEnd If Loop /table 39。顯示新聞提交的時(shí)間 td width=39。最新的新聞！39。pic/39。如果新聞中有圖片，則在標(biāo)題中顯示（附圖）If rs(Attpic) Then (附圖) End If /a 39。?id= + cstr(rs(id)) + 39。39。a onClick=39。顯示新聞標(biāo)題及鏈接，查看新聞的腳本文件為 trtd width=39。計(jì)數(shù) t = t + 1 39。 cid amp。 border=0 cellspacing=0 cellpadding=039。生成另一個(gè)表格，用于顯示新聞標(biāo)題table width=39。/a == 39。顯示新聞?lì)悇e，并設(shè)置書(shū)簽 td bgcolor=ceceffa name=aamp。100%39。變量 t 用來(lái)記錄 t = 0 39。將指針移至開(kāi)始位置，分別顯示每個(gè)分類(lèi)中的新聞 If = False Then End If 39。TEXTDECORATION: none39。39。color:black39。每個(gè)新聞?lì)悇e標(biāo)題被定義為一個(gè)書(shū)簽，名為 a 類(lèi)別編號(hào)% a href=a%=cid%font style=39。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。這部分代碼如下:% 39。新聞管理/font/a 3．顯示各新聞?lì)悇e中的最新新聞 的主要內(nèi)容是顯示新聞?lì)悇e中的最新 10 條新聞，并將 3 天內(nèi)的新聞使用new 圖片標(biāo)記。在本例中，因?yàn)闀?shū)簽位置是動(dòng)態(tài)變化的，所以需要使用代碼定義，方法如下：a name=書(shū)簽名 /a 2． “新聞管理”鏈接系統(tǒng)管理員 Admin 或其他用戶(hù)可以通過(guò) “新聞管理”鏈接進(jìn)入新聞管理頁(yè)面a href=font color=red style=39。書(shū)簽是網(wǎng)頁(yè)中被標(biāo)記的位置或被標(biāo)記的選中文本。color:black39。每個(gè)新聞?lì)悇e標(biāo)題被定義為一個(gè)書(shū)簽，名為 a 類(lèi)別編號(hào)% a href=a%=cid%font style=39。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。% 39。下面的代碼將在網(wǎng)頁(yè)中生成所有新聞?lì)悇e的鏈接，每個(gè)鏈接都指相應(yīng)新聞?lì)悇e的書(shū)簽。為了解決這個(gè)問(wèn)題，本實(shí)例使用書(shū)簽來(lái)定義新聞?lì)悇e的位置，書(shū)簽格式為a類(lèi)別編號(hào)。 1．顯示新聞?lì)悇e鏈接 將新聞按照分類(lèi)顯示，每個(gè)新聞?lì)悇e只顯示最新的 10 條新聞。錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 56 所示。/font在添加和修改新聞內(nèi)容的網(wǎng)頁(yè)中，必須將表單定義為 myform，輸入新聞內(nèi)容的滾動(dòng)文本框定義為 txtcontent，否則此功能將無(wú)法實(shí)現(xiàn)。39。font[space]face=39。也就是在它的兩側(cè)添加字體標(biāo)識(shí)font和/font。+().text+39。+c+39。 表示當(dāng)前選擇字符的內(nèi)容，如果它不為空，則將其替換為如下代碼：().text=39。當(dāng)下拉菜單的選擇發(fā)生變化時(shí)，將觸發(fā) onChange 事件，程序中直接定義了對(duì)應(yīng)的JavaScript 代碼。FONTSIZE: 9pt39。/font39。39。font[space]face=39。/font39。39。font[space]face=39。39。相關(guān)代碼如下：字體 SELECT onChange=var c=[].value。在顯示新聞內(nèi)容時(shí)，程序?qū)?huì)自動(dòng)將[space]轉(zhuǎn)換為空格。例如，選中正文 abc，然后選擇“楷體”、“1 號(hào)字”，將生成如下代碼：font[space]face=楷體_GB2312font[space]size=1abc/font/font [space]是自定義的符號(hào)，因?yàn)榭崭裨谵D(zhuǎn)換成 HTML 格式時(shí)，將被替換為 “amp。 的設(shè)計(jì)界面如圖 5 所示。在文件中引用此文件作為頭文件，代碼如下：!include File= 4．在添加和修改新聞內(nèi)容時(shí)，需要對(duì)字體、字號(hào)、顏色和排列位置等屬性進(jìn)行設(shè)置。在兩種情況下， 將阻止程序繼續(xù)執(zhí)行：(1)指定新聞不存在；(2)當(dāng)前用戶(hù)不是指定新聞的作者。 Trim(NewsId) set rsNews=(sql) Set Rs=(sql) If Then 指定新聞不存在 Else 39。 可以實(shí)現(xiàn)此功能，代碼如下：% If Session(UserName) Admin Then NewsId = Request(Id) 39。 的代碼如下：% If Session(UserName) Admin Then (不是 Admin 用戶(hù)，沒(méi)有此權(quán)限) End If%在文件中引用此文件作為頭文件，代碼如下:!include File=3．在修改和刪除新聞時(shí)，除了 Admin 用戶(hù)擁有所有權(quán)限外，其他用戶(hù)只能修改自己創(chuàng)建的新聞。Database=news ConnStr%在文件中引用此文件作為頭文件就可以訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)，代碼如下：!include File=2．因?yàn)楸緦?shí)例中有些功能只有 Admin 用戶(hù)才有權(quán)限使用，所以在進(jìn)入這些網(wǎng)頁(yè)之前，需要判斷用戶(hù)是否是 Admin。UID=sa。 的代碼如下：%dim Conndim ConnStrset Conn=()ConnStr=driver={SQL Server}。第二節(jié) 通用模塊本實(shí)例中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件