【文章內(nèi)容簡介】 alue=隸書隸書/OPTIONOPTION value=Andale MonoAndale Mono/OPTIONOPTION value=ArialArial/OPTIONOPTION value=Arial BlackArial Black/OPTIONOPTION value=Book AntiquaBook Antiqua/OPTIONOPTION value=Century GothicCentury Gothic/OPTIONOPTION value=Comic Sans MSComic Sans MS/OPTIONOPTION value=Courier NewCourier New/OPTIONOPTION value=GeorgiaGeorgia/OPTIONOPTION value=ImpactImpact/OPTIONOPTION value=TahomaTahoma/OPTIONOPTION value=Times New RomanTimes New Roman/OPTIONOPTION value=Trebuchet MSTrebuchet MS/OPTIONOPTION value=Script MT BoldScript MT Bold/OPTIONOPTION value=StencilStencil/OPTIONOPTION value=VerdanaVerdana/OPTIONOPTION value=Lucida ConsoleLucida Console/OPTION/SELECT在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。當下拉菜單的選擇發(fā)生變化時，將觸發(fā)onChange事件，程序中直接定義了對應的JavaScript代碼。This表示字體下拉菜單，this．selectedlndex表示當前選擇的菜單項目索引，[].value則表示選擇下拉菜單的值，程序?qū)⑵浔４孀兞緾中。，如果它不為空，則將其替換為如下代碼：().text=39。font[space]face=39。+c+39。39。+().text+39。/font39。也就是在它的兩側添加字體標識font和/font。如果沒有選擇字符，則在輸入新聞內(nèi)容的文本域中直接加入字體標識，用戶可以在font和／font之問添加相應的文字，代碼如下：=39。font[space]face=39。+c+39。39。++39。/font在添加和修改新聞內(nèi)容的網(wǎng)頁中，必須將表單定義為myform，輸入新聞內(nèi)容的滾動文本框定義為txtcontent，否則此功能將無法實現(xiàn)。第五章 系統(tǒng)主界面與登錄程序設計第一節(jié) 設計主界面，它的功能是顯示新聞類別和每個類別中的10條新聞，并提供進入管理界面()的鏈接。錄入新聞類別和新聞內(nèi)容后。圖56 。 1．顯示新聞類別鏈接 ，每個新聞類別只顯示最新的10條新聞。如果新聞類別較多，則網(wǎng)頁會被拉長，給用戶閱讀帶來不便。為了解決這個問題，本實例使用書簽來定義新聞類別的位置，書簽格式為a類別編號。例如，類別編號為1的新聞類別的書簽名稱為al。下面的代碼將在網(wǎng)頁中生成所有新聞類別的鏈接，每個鏈接都指相應新聞類別的書簽。這樣，用戶就可以通過單擊鏈接直達新聞類別了。% 39。=====顯示所有新聞類別供點擊，點擊不同類別顯示該類別的新聞===== 39。按順序讀取所有新聞類別，保存在記錄集rsCate中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。每個新聞類別標題被定義為一個書簽，名為 a類別編號% a href=a%=cid%font style=39。TEXTDECORATION: none。color:black39。%=stitle%/font/a | % Loop% 如果網(wǎng)頁中顯示的內(nèi)容較多，通常需要通過定義書簽的方法使用戶快速到達指定的位置。書簽是網(wǎng)頁中被標記的位置或被標記的選中文本。在FrontPage中選擇“插入”/“書簽”菜單項，可以在指定位置插入書簽。在本例中，因為書簽位置是動態(tài)變化的，所以需要使用代碼定義，方法如下：a name=書簽名/a 2．“新聞管理”鏈接系統(tǒng)管理員Admin或其他用戶可以通過“新聞管理”a href=font color=red style=39。TEXTDECORATION: none39。新聞管理/font/a 3．顯示各新聞類別中的最新新聞 ，并將3天內(nèi)的新聞使用new圖片標記。當然，如果新聞的內(nèi)容經(jīng)常更新，則可以將3天改為1天。這部分代碼如下:% 39。=====顯示所有新聞類別供點擊，點擊不同類別顯示該類別的新聞===== 39。按順序讀取所有新聞類別，保存在記錄集rsCate中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。顯示所有新聞類別鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。每個新聞類別標題被定義為一個書簽，名為 a類別編號% a href=a%=cid%font style=39。TEXTDECORATION: none。color:black39。%=stitle%/font/a | % Loop%a href=39。39。font color=red新聞查詢/font/a |amp。nbsp。a href=font color=red style=39。TEXTDECORATION: none39。新聞管理/font/a /divtable align=center width=100% cellspacing=0 cellpadding=0 border=0tr td width=* valign=TOP% 39。將指針移至開始位置，分別顯示每個分類中的新聞 If = False Then End If 39。依次顯示每個新聞類別中最新的10條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。變量t用來記錄 t = 0 39。生成表格 table width=39。100%39。 cellspacing=1 cellpadding=2tr 39。顯示新聞類別，并設置書簽 td bgcolor=ceceffa name=aamp。cidamp。/aamp。nbsp。==amp。nbsp。 39。顯示新聞類別標題 stitle + amp。nbsp。==/td/tr 39。生成另一個表格，用于顯示新聞標題 table width=39。100%39。 border=0 cellspacing=0 cellpadding=0 39。按提交時間的降序顯示新聞標題 sql = SELECT * FROM News WHERE CateId= amp。 cid amp。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。計數(shù) t = t + 1 39。只顯示10條新聞 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。顯示新聞標題及鏈接， trtd width=39。50%39。a onClick=39。return newwin()。39。 href=39。?id= + cstr(rs(id)) + 39。 + rs(Title) + 39。如果新聞中有圖片，則在標題中顯示（附圖） If rs(Attpic) Then (附圖) End If /a 39。3天內(nèi)新聞標記new圖片 If datediff(d, rs(Posttime), ndate+time()) = 0 Then img SRC=39。pic/39。 ALT=39。最新的新聞！39。 border=0/td End If 39。顯示新聞提交的時間 td width=39。20%39。( + CStr(rs(Posttime)) + )/td/tr End If Loop /table 39。設置返回頂部鏈接，跳轉到書簽top p align=righta href=top返回頂部/aamp。nbsp。amp。nbsp。amp。nbsp。 39。生成“更多新聞”鏈接， a target=39。_self39。 href=39。?flag= + CStr(cid) + 39。更多新聞.../a/p /td/tr/table/td/table loop % 因為在第l步中已經(jīng)將各新聞類別的標題讀取到記錄集rsCate中。使用DO WHIIlE循環(huán)語句依次處理每個新聞類別，讀取此類別中的所有新聞信息到記錄集rs中，并在表格中顯示新聞標題。請參照注釋理解。第二節(jié) 登錄程序設計在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼：!include file=””這樣為登陸的用戶將看到如下界面：第三節(jié) 設計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權限的用戶才能進入管理界面。錄入新聞類別和新聞內(nèi)容后。 。(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%，參數(shù)flag表示新聞類別。如果flag=0，則顯示全部新聞，否則顯示指定類別的新聞。(3)顯示管理鏈接，將根據(jù)用戶類型顯示管理鏈接，包括“更改密碼”、“類別管理”、“用戶管理”和“退出登錄”，只有Admin用戶才能看到“類別管理”和“用戶管理”鏈接。顯示管理鏈接的代碼如下：% 39。如果為管理員則顯示類別管理和用戶管理 If Session(UserName) = Admin Then amp。nbsp。amp。nbsp。a href=39。39。font color=red類別管理/font/a amp。nbsp。amp。nbsp。amp。nbsp。a href=39。39。font color=red用戶管理/font/a sql_where = Else 39。如果不是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設置WHERE子句的條件 sql_where = Poster=39。 amp。 Session(UserName)