【正文】 PTION value 隸書 隸書 OPTION value Andale Mono Andale Mono OPTION value Arial Arial OPTION value Arial Black Arial Black OPTION value Book Antiqua Book Antiqua OPTION value Century Gothic Century Gothic OPTION value Comic Sans MS Comic Sans MS OPTION value Courier New Courier New OPTION value Geia Geia OPTION value Impact Impact OPTION value Tahoma Tahoma OPTION value Times New Roman Times New Roman OPTION value Trebuchet MS Trebuchet MS OPTION value Script MT Bold Script MT Bold OPTION value Stencil Stencil OPTION value Verdana Verdana OPTION value Lucida Console Lucida Console 在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。 font[space]face 39。 39。+c+39。 系統(tǒng)主界面與登錄程序設(shè)計(jì) 第一節(jié) 設(shè)計(jì)主界面 本主界面為 ，它的功能是顯示新聞?lì)悇e和每個(gè)類別中的 10 條新聞，并提供進(jìn)入管理界面 的鏈接。如果新聞?lì)悇e 較多，則網(wǎng)頁(yè)會(huì)被拉長(zhǎng)，給用戶閱讀帶來(lái)不便。這樣，用戶就可以通過(guò)單擊鏈接直達(dá)新聞?lì)悇e了。顯示所有新聞?lì)悇e鏈接 Do While Not stitle rsCate CateName cid rsCate CateId 39。 % stitle% | % Loop % 如果網(wǎng)頁(yè)中顯示的內(nèi)容較多，通常需要通過(guò)定義書簽的方法使用戶快速到達(dá)指定的位置。TEXTDECORATION: none39。 顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示 該類別的新聞 39。TEXTDECORATION: none。 font color red 新聞查詢 | a href font color red style 39。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle rsCate CateName cid rsCate CateId 39。 cellspacing 1 cellpadding 2 39。顯示新聞?lì)悇e標(biāo)題 stitle + 39。按提交時(shí)間的降序顯示新聞標(biāo)題 sql SELECT * FROM News WHERE CateId amp。只顯示 10 條新聞 If t 11 Then Dim ndate ndate DateAdd d,3,date 39。return newwin 。 + rs Title + 39。 ALT 39。20%39。_self39。使用 DO WHIIlE循環(huán)語(yǔ)句依次處理每個(gè)新聞?lì)悇e，讀取此類別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標(biāo)題。對(duì)于需要登陸才能察看的網(wǎng)頁(yè)可以在網(wǎng)頁(yè)的最前端加上如下代碼： !include file ”chkpwd. asp” 這樣為登陸的用戶將看到如下界面： 第三節(jié) 設(shè)計(jì)管理界面 管理界面的功能是對(duì)新聞?lì)悇e和新聞提供管理界面，只有有權(quán)限的用戶才能進(jìn)入管理界面。 1 包含文件 在 的開(kāi)始部分添加下面的代碼，這樣在打開(kāi)網(wǎng)頁(yè)時(shí)，程序會(huì)自動(dòng)連接到數(shù)據(jù)庫(kù)，并進(jìn)行身份驗(yàn)證。參數(shù) flag 表示指定的新聞?lì)悇e iflag flag 39。 font style 39。如果 flag 0，則顯示全部新聞，否則顯示指定類別的新聞。39。如果不是系統(tǒng)管理 員，則只能管理自己提交的新聞，所以在這里設(shè)置WHERE 子句的條件 sql_where Poster 39。 End If % Session ” UserName” 中保存著當(dāng)前登錄用戶的用戶名。如果當(dāng)前用戶是 Admin，則 sql_where “”，即顯示所有新聞；否則設(shè)置查詢條件為“ Poster “” amp。根據(jù)參數(shù) iflag 和 sql_where 變量設(shè)置 SQL 語(yǔ)句，讀取新聞數(shù)據(jù) If iflag Then If sql_where Then sql SELECT * FROM News ORDER BY Posttime DESC Else sql SELECT * FROM News WHERE amp。 ORDER BY Posttime DESC Else sql SELECT * FROM News WHERE CateId amp。 ORDER BY Posttime DESC End If End If sql,conn,1,1 39。讀取參數(shù) page，表示當(dāng)前的頁(yè)碼，使用 CLng 將其轉(zhuǎn)換為長(zhǎng)整型 Page CLng Request Page 39。如果到達(dá)記錄集結(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。?flag amp。 i amp。 ] Next End If End If % 這部分代碼的關(guān)鍵部分是根據(jù)新聞?lì)悇e和用戶類型生成 sELECT 語(yǔ)句，查詢指定的新聞?dòng)涗洝? 第一節(jié) 設(shè)計(jì)新聞?lì)悇e管理界面 打開(kāi)新聞?lì)悇e管理界面，如圖 69 所示。 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。 目前還沒(méi)有記錄。name % rs C ateName % 修 改 td align center input type checkbox name Cate id % rs CateId % % LOOP % 可以看到，修改新聞?lì)悇e的頁(yè)面也是 Cate_Admin． asp。但是一次只能刪除一條記錄。 3．顯示添加或修改新聞?lì)悇e的表單 在功能按鈕的下面，將顯示添加或修改新聞?lì)悇e的表單。當(dāng)參數(shù) 0per 等于 edit 時(shí)，程序?qū)⑻幚硇薷牡男侣勵(lì)悇e數(shù)據(jù)；當(dāng)參數(shù) Oper 等于 add 時(shí)，程序?qū)⑻幚硖砑拥男侣勵(lì)悇e 數(shù)據(jù)。 在執(zhí)行 時(shí)，可以在 url 中包含參數(shù)，程序?qū)⒏鶕?jù)參數(shù) Oper的值決定進(jìn)行的操作，與添加數(shù)據(jù)相關(guān)的代碼如下： % 39。 Set rs sql If Then sqldelt DELETE FROM Category WHERE CateId In amp。判斷是否已經(jīng)存在此類別名稱 sql SELECT * FROM Category WHERE CateName 39。 Set rs sql 39。 39。 CateName amp。如果原類別編號(hào)和新類別名稱不存在，則表示類別名稱發(fā)生變化 Set rs Nothing 39。 39。 CateName amp。這樣可以避免出現(xiàn)重復(fù)的新聞?lì)悇e。下面將介紹相關(guān)的代碼。 第四節(jié) 刪除新聞?lì)悇e 在刪除新聞?lì)悇e之前，需要選中相應(yīng)的復(fù)選框。j 。 2．全部清除選擇 在 中，定義“清空”按鈕的代碼如下： input type button value 清 空 onclick sltNull 當(dāng)單擊“清空”按鈕時(shí)，將執(zhí)行 sltNull 函數(shù)，代碼如下： function sltNull var nn .item Cate 。 3．生成并提交刪除編號(hào)列表 在 中，定義“刪除”按鈕的代碼如下： input type submit value 刪 除 name tijiao onclick SelectChk 當(dāng)單擊“刪除”按鈕時(shí)，將執(zhí)行 SelectChk 函數(shù)，代碼如下： function SelectChk var s false。 //返回復(fù)選框 Cate 的數(shù)量 for j 0。 Cateid .item Cate,j .id+。cid + strid。 。 在刪除新聞?lì)悇e之前，應(yīng)該判斷此新聞?lì)悇e中是否包含新聞，如果有新聞，則不能刪除，否則會(huì)產(chǎn)生沒(méi)有新聞?lì)悇e的垃圾新聞。 name add 當(dāng)單擊“添加新聞”按鈕時(shí)，將觸發(fā) onclick 事件，并調(diào) newwin 39。 圖 710 的運(yùn)行界面 將新聞?lì)悇e添加到下拉菜單中，代。 函數(shù)，即在彈出的新窗口中執(zhí)行 ． asp。 第一節(jié) 添加新聞 在 中，“添加新聞”按鈕的定義代碼如下： input type button value 添加新聞 onclick newwin 39。因?yàn)閺?fù)選框的 id 值與對(duì)應(yīng)的新聞?lì)悇e編號(hào)相同，所以最后 strid 中保存的是以逗號(hào)為 分隔符的待刪除的新聞?lì)悇e編號(hào)。 return false。 else strid strid + , + Cateid。 j++ if .item Cate,j .checked n n + 1。 var strid, strurl。j 。 self 對(duì)象指當(dāng)前頁(yè)面， .item Cate 返回當(dāng)前頁(yè)面中 Cate 復(fù)選框的數(shù)量。 1．選擇全部復(fù)選框 在 中，定義“全選”按鈕的代碼如下： input type button value 全 選 onclick sltAll 當(dāng)單擊“全選”按鈕時(shí)，將執(zhí)行 sltAll 函數(shù)，代碼如下： function sltAll var nn .item Cate 。 注意，在修改新聞?lì)悇e之前，應(yīng)該判斷新的新 聞?lì)悇e是否已經(jīng)存在。此時(shí)，頁(yè)面的下方將顯示修改數(shù)據(jù)的表單 Uform。 WHERE CateId amp。新類別不存在 UPDATE Category SET CateName 39。 amp。 And CateId amp。如果新類別名稱與舊名