【正文】 MT BoldScript MT Bold/OPTION OPTION value=StencilStencil/OPTION OPTION value=VerdanaVerdana/OPTION OPTION value=Lucida ConsoleLucida Console/OPTION/SELECT 在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。 This 表示字體下拉菜單， this． selectedlndex 表示當(dāng)前選擇的菜單項(xiàng)目索引，[].value 則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞?C 中。font[space]face=39。39。/font39。 如果沒有選擇字符，則在輸入新聞內(nèi)容的文本域中直接加入字體標(biāo)識(shí)，用戶可以在font和 ／ font之問添加相應(yīng)的文字，代碼如下： =39。+c+39。++39。 24 第五章 系統(tǒng)主界面與登錄程序設(shè)計(jì) 第一節(jié) 設(shè)計(jì)主界面 本主界面為 ，它的功能是顯示新聞?lì)悇e和每個(gè)類別中的 10 條新聞，并提供進(jìn)入管理界面 ()的鏈接。 25 圖 56 的界面 下面介紹 的主要代碼。如果新聞?lì)悇e 較多，則網(wǎng)頁會(huì)被拉長(zhǎng)，給用戶閱讀帶來 不便。例如，類別編號(hào)為 1 的新聞?lì)悇e的書簽名稱為al。這樣，用戶就可以通過單擊鏈接直達(dá)新聞?lì)悇e了。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞 ===== 39。顯示所有新聞?lì)悇e鏈接 Do While Not 26 stitle = rsCate(CateName) cid = rsCate(CateId) 39。TEXTDECORATION: none。%=stitle%/font/a | % Loop % 如果網(wǎng)頁中顯示的內(nèi)容較多，通常需要通過定義書簽的方法使用戶快速到達(dá)指定的位置。在 FrontPage 中選擇“插入” /“書簽”菜單項(xiàng)，可以在指定位置插入書簽。TEXTDECORATION: none39。當(dāng)然，如果新聞的內(nèi)容經(jīng)常更新，則可以將 3 天改為 1 天。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞 ===== 39。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) 27 cid = rsCate(CateId) 39。TEXTDECORATION: none。%=stitle%/font/a | % Loop % a href=39。font color=red新聞查詢 /font/a | a href=font color=red style=39。新聞管理/font/a /div table align=center width=100% cellspacing=0 cellpadding=0 border=0 tr td width=* valign=TOP % 39。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。生成表格 table width=39。 cellspacing=1 cellpadding=2tr 39。cidamp。顯示新聞?lì)悇e標(biāo)題 stitle + ==/td/tr 39。100%39。按提交時(shí)間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。只顯示 10 條新聞 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。50%39。return newwin()。 href=39。 + rs(Title) + 39。3 天內(nèi)新聞標(biāo)記 new 圖片 If datediff(d, rs(Posttime), ndate+time()) = 0 Then img SRC=39。 ALT=39。 border=0/td End If 39。20%39。設(shè)置返回頂部鏈接，跳轉(zhuǎn)到書簽 top p align=righta href=top返回頂部 /a 39。_self39。?flag= + CStr(cid) + 39。使用 DO WHIIlE 循環(huán)語句依次處理每個(gè)新聞?lì)悇e，讀取此類別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標(biāo)題。 第二節(jié) 登錄程序設(shè)計(jì) 在對(duì)系統(tǒng)進(jìn)行管理之前，需要通過系統(tǒng)的身份認(rèn) 證。對(duì)于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶將看到如下界面： 30 第三節(jié) 設(shè)計(jì)管理界面 管理界面的功能是對(duì)新聞?lì)悇e和新聞提供管理界面，只有有權(quán)限的用戶才能進(jìn)入管理界面。 錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 57 所示。 (1)包含文件 在 的開始部分添加下面的代碼，這樣在打開網(wǎng)頁時(shí)，程序會(huì)自動(dòng)連接到數(shù)據(jù)庫，并進(jìn)行身份驗(yàn)證。顯示新聞?lì)悇e的代碼如下： % Dim rs,rsCate Set rs = () set rsCate = () 39。參數(shù) flag 表示指定的新聞?lì)悇e iflag = (flag) 39。顯示新聞?lì)悇e鏈接，注意根據(jù)類別編號(hào)設(shè)置參數(shù) flag DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) %| a href=39。font style=39。color:black39。如果 flag=0，則顯示全部新聞，否則顯示指定類別的新聞。顯示管理鏈接的代碼如下： % 39。39。39。如果不是系統(tǒng)管理員， 則只能管理自己提交的新聞，所以在這里設(shè)置 WHERE 子句的條件 sql_where = Poster=39。 Session(UserName) amp。 33 End If % Session(” UserName” )中保存著當(dāng)前登錄用戶的用戶名。 從程序中可以看到，各項(xiàng)管理功能對(duì)應(yīng)的頁面如下： (1)更改密碼 ； (2)類別管理 Cate— ； (3)用戶管理 ； (4)退出登錄 。如果當(dāng)前用戶是 Admin，則 sql_where=“”，即顯示所有新聞；否則設(shè)置查詢條件為“ Poster=“” amp?！啊薄保粗荒芄芾碜约簞?chuàng)建的新聞。根據(jù)參數(shù) iflag 和 sql_where 變量設(shè)置 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。 ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= amp。 ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= amp。 And amp。 ORDER BY Posttime DESC 34 End If End If sql,conn,1,1 39。/td/tr/table Else 39。讀取參數(shù) page，表示當(dāng)前的頁碼，使用 CLng 將其轉(zhuǎn)換為長(zhǎng)整型 Page = CLng(Request(Page)) 39。設(shè)置當(dāng)前頁碼為 Page = Page 39。如果到達(dá)記錄集結(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 35 /tr % () Next % /table % 39。039。?flag= amp。 amp。 i amp。 [b amp。 /b]/a/td Next /tr/table End If End If % 這部分代碼的關(guān)鍵部分是根據(jù)新聞?lì)悇e和用戶類型生成 sELECT 語句，查詢指定的新聞?dòng)涗洝? sql 第六章 新聞?lì)悇e管理模塊設(shè)計(jì) 新聞?lì)悇e管理模塊可以實(shí)現(xiàn)以下功能： (1)添加新的新聞?lì)悇e記錄； (2)修改新聞?lì)悇e記錄； (3)刪除新聞?lì)悇e記錄。 第一節(jié) 設(shè)計(jì)新聞?lì)悇e管理界面 打開新聞?lì)悇e管理界面，如圖 69 所示。 1．顯示新聞?lì)悇e信息 為了便于用戶管理新聞?lì)悇e， 以表格的形式顯示新聞?lì)悇e名稱，并在后面顯示修改鏈接和刪除復(fù)選框，代碼如下： p align=39。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 37 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。如果記錄集為空，則顯示“目前還沒有記錄” trtd colspan=3 align=centerfont style=39。目前還沒有記錄。在表格中顯示新聞?lì)悇e名稱 DO WHILE Not % tr td%=rs(CateName)%/td td align=centera href=?Oper=updateamp。name=%=rs(C ateName)%修 改 /a/td td align=centerinput type=checkbox name=Cate 38 id=%=rs(CateId)%/td /tr % () LOOP % /table 可以看到，修