【導讀】專業(yè)：計算機科學與技術(shù)

　　

【正文】 多新聞”鏈接，查看指定類別所有新聞的腳本為 a target=39。_self39。 href=39。?flag= + CStr(cid) + 39。更多新聞 .../a/p /td/tr/table/td/table loop % 因為在第 l 步中已經(jīng)將各新聞類別的標題讀取到記錄集 rsCate 中，所以只需要使用執(zhí)行 語句將指針復位就可以了。使用 DO WHIIlE 循環(huán)語句依次處理每個新聞類別，讀取此類別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標題。請參照注釋理解。 第二節(jié) 登錄程序設計 在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身 份認證。本站中使用 進行身份驗證。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶將看到如下界面： 第三節(jié) 設計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權(quán)限的用戶才能進入管理界面。本節(jié)將介紹管理界面 的實現(xiàn)方法。 錄入新聞類別和新聞內(nèi)容后， 的界面如圖 57 所示。 下面介紹 的主要代碼。 (1)包含文件 在 的開始部分添加下面的代碼，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。 !include file= !include file= (2)顯示新聞類別鏈接 將新聞按照分類顯示，每個新聞類別只顯示最新的 20 條新聞。顯示新聞類別的代碼如下： % Dim rs,rsCate Set rs = () set rsCate = () 39。定義變量 Dim iflag,sql_where 39。參數(shù) flag 表示指定的新聞類別 iflag = (flag) 39。設置 SQL 語句，讀取所有的新聞類別到 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。顯示新聞類別鏈接，注意根據(jù)類別編號設置參數(shù) flag DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) %| a href=39。?flag=%=cid%39。font style=39。TEXTDECORATION: none。color:black39。%=stitle%/font/a % Loop % 在調(diào)用 時，參數(shù) flag 表示新聞類別。如果 flag=0，則顯示全部新聞，否則顯示指定類別的新聞。 (3)顯示管理鏈接 在 中，將根據(jù)用戶類型顯示管理鏈接，包括“更改密碼”、“類別管理”、“用戶管理”和“退出登錄”，只有 Admin 用戶才能看到“類別管理”和“用戶管理”鏈接。顯示管理鏈接的代碼如下： % 39。如果為管理員則顯示類別管理和用戶管理 If Session(UserName) = Admin Then a href=39。39。font color=red類別管理/font/a a href=39。39。font color=red用戶管理 /font/a sql_where = Else 39。如果不是系統(tǒng)管理 員，則只能管理自己提交的新聞，所以在這里設置 WHERE 子句的條件 sql_where = Poster=39。 amp。 Session(UserName) amp。 39。 End If % Session(” UserName” )中保存著當前登錄用戶的用戶名。當 Session(” UserName” )=”Admin”時，才能顯示“類別管理”和“用戶管理”超級鏈接。 從程序中可以看到，各項管理功能對應的頁面如下： (1)更改密碼 ； (2)類別管理 Cate— ； (3)用戶管理 ； (4)退出登錄 。 變量 sql_where 用來記錄查詢條件。如果當前用戶是 Admin，則 sql_where=“”，即顯示所有新聞；否則設置查詢條件為“ Poster=“” amp。Session(“ UserName” )amp?！啊薄?，即只能管理自己創(chuàng)建的新聞。 (4)分頁顯示新聞信息 下面將根據(jù)指定的新聞類別和頁碼顯示新聞標題列表，代碼如下： % 39。根據(jù)參數(shù) iflag 和 sql_where 變量設置 SQL 語句，讀取新聞數(shù)據(jù) If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE amp。 sql_where amp。 ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= amp。 iflag amp。 ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= amp。 iflag amp。 And amp。 sql_where amp。 ORDER BY Posttime DESC End If End If sql,conn,1,1 39。如果記錄集 rs 為空，則顯示“目錄還沒有記錄” If Then trtd colspan=4 align=center目前還沒有記錄。/td/tr/table Else 39。設置分頁顯示，每頁顯示 20 條新聞記錄 = 20 39。讀取參數(shù) page，表示當前的頁碼，使用 CLng 將其轉(zhuǎn)換為長整型 Page = CLng(Request(Page)) 39。處理不合法的頁碼 If Page 1 Then Page = 1 If Page Then Page = 39。設置當前頁碼為 Page = Page 39。循環(huán)顯示當前頁的記錄 For i = 1 to 39。如果到達記錄集結(jié)尾，則跳出循環(huán) if then Exit For % trtda href=?id=%=rs(id)% onClick=return newwin()%=rs(title)%/a %If rs(attpic)=true then (附圖 ) End If%/td td align=center%=rs(posttime)%/td td align=centera href=?id=%=rs(id)% onClick=return newwin()修 改 /a/td td align=centerinput type=checkbox name=News id=%=rs(id)% style=fontsize: 9pt value=ON/td /tr % () Next % /table % 39。顯示分頁頁碼 If 1 then table border=39。039。trtdb分頁： /b/td For i = 1 To tda href=39。?flag= amp。 iflag amp。 amp。page= amp。 i amp。 39。 [b amp。 i amp。 /b]/a/td Next /tr/table End If End If % 這部分代碼的關(guān)鍵部分是根據(jù)新聞類別和用戶類型生成 sELECT 語句，查詢指定的新聞記錄。在調(diào)試程序時，可以使用下面的語句顯示 sELECT 語句的內(nèi)容。 sql 第六章 新聞類別管理模塊設計 新聞類別管理模塊可以實現(xiàn)以下功能： (1)添加新的新聞類別記錄； (2)修改新聞類別記錄； (3)刪除新聞類別記錄。 只有 Admin 用戶才有權(quán)限進入新聞類別管理模塊，在 中，單擊“類別管理 ”超級鏈接， 可以打開類別管理頁面 。 第一節(jié) 設計新聞類別管理界面 打開新聞類別管理界面，如圖 69 所示。 圖 69 新聞類別管理界面 下面將介紹 中與界面顯示相關(guān)的部分代碼。 1．顯示新聞類別信息 為了便于用戶管理新聞類別， 以表格的形式顯示新聞類別名稱，并在后面 顯示修改鏈接和刪除復選框，代碼如下： p align=39。center39。font style=FONTSIZE: 12ptb新 聞 類 別 管 理 /b/font/p center table border=0 cellspacing=0 width=90% tr td align=right a href=font color=red新聞管理 /font/a a href=font color=red用戶管理 /font/a /td /tr /table table border=1 cellspacing=0 width=90% bgcolor=F0F8FF bordercolorlight=4DA6FF bordercolordark=ECF5FF tr td width=60% align=center bgcolor=FEEC85strong類 別 /strong/td td width=20% align=center bgcolor=FEEC85strong修 改 /strong/td td width=20% align=center bgcolor=FEEC85strong選 擇 /strong/td /tr % Set rs = () 39。讀取所有的新聞類別數(shù)據(jù)到記錄集 rs 中 sql = SELECT * FROM Category ORDER BY CateId sql, conn, 1, 1 If Then 39。如果記錄集為空，則顯示“目前還沒有記錄” trtd colspan=3 align=centerfont style=39。COLOR:Red39。目前還沒有記錄。 /font/td/tr/table Else 39。在表格中顯示新聞類別名稱 DO WHILE Not % tr td%=rs(CateName)%/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 表示要修改的新聞類別名稱。新聞類別后面的復選框名為 Cate，它的 id 值與對應新聞類別的編號相同。 通常刪除功能也可以通過超級超級鏈接來實現(xiàn)，就像本例中的‘‘修改’’ 超級鏈接。但是一次只能刪除一條記錄。本實例介紹一種更方便的方法，即通