【文章內(nèi)容簡介】 域中直接加入字體標識，用戶可以在 font和 ／ font之問添加相應的文字， 代碼如下： =39。font[space]face=39。+c+39。39。++39。/font 在添加和修改新聞內(nèi)容的網(wǎng)頁中，必須將表單定義為 myform，輸入新聞內(nèi)容的滾動文本框定義為 txtcontent，否則此功能將無法實現(xiàn)。 10 登錄程序設計 在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。本站中使用 進行身份驗證。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶將看到如下界面： 11 設計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權限的用戶才能進入管理界面。本節(jié)將介紹管理界面 的實現(xiàn)方法。 錄入新聞類別和新聞內(nèi)容后， 的界面如圖 57 所示。 下面介紹 的主要代碼。 (1)包含文件 在 的開始部分添加下面的代碼，這樣在打開網(wǎng)頁時，程序會自動連接到數(shù)據(jù)庫，并進行身份驗證。 !include file= !include file= (2)顯示新聞類別鏈接 將新聞按照分類顯示，每個新聞類別只顯示最新的 20 條新聞。顯示新聞類別的代碼如下： % Dim rs,rsCate Set rs = () set rsCate = () 12 Dim iflag,sql_where iflag = (flag) sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 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 用戶才能看到“類別管理”和“用戶管理”鏈接。顯示管理鏈接的代碼如下： % 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 sql_where = Poster=39。 amp。 Session(UserName) amp。 39。 End If % Session(” UserName” )中保存著當前登錄用戶的用戶名。當 Session(” 13 UserName” )=” Admin”時，才能顯示“類別管理”和“用戶管理”超級鏈接。 從程序中可以看到，各項管理功能對應的頁面如下： (1)更改密碼 ； (2)類別管理 Cate— ； (3)用戶管理 ； (4)退出登錄 。 變量 sql_where 用來記錄查詢條件。如果當前用戶是 Admin，則 sql_where=“”，即顯示所有新聞；否則設置查詢條件為“ Poster=“” amp。Session(“ UserName” )amp?！啊薄?，即只能管理自己創(chuàng)建的新聞。 (4)分頁顯示新聞信息 下面將根據(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 If Then trtd colspan=4 align=center目前還沒有記錄。 14 /td/tr/table Else = 20 Page = CLng(Request(Page)) If Page 1 Then Page = 1 If Page Then Page = = Page For i = 1 to 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 % 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 15 Next /tr/table End If End If % 這部分代碼的關鍵部分是根據(jù)新聞類別和用戶類型生成 SELECT 語句，查詢指定的新聞記錄。在調(diào)試程序時，可以使用下面的語句顯示 SELECT 語句的內(nèi)容。 sql 16 第四章 新聞查詢管理 新聞查詢管理 如果系統(tǒng)中新聞數(shù)量比較多，那么只按照分類察看新聞顯然是不夠的。為了方便網(wǎng)友使用，本站中設計了新聞管理功能。 新聞查詢管理頁面的腳本是 ，運行