【文章內(nèi)容簡介】 將新聞按照分類顯示，每個新聞類別只顯示最新的 10 條新聞。如果新聞類別較多，則網(wǎng)頁會被拉長，給用戶閱讀帶來不便。為了解決這個問題，本實例使用書簽來定義新聞類別的位置，書簽格式為 a類別編號 。例如，類別編號為 1 的新聞 類別的書簽名稱為 al。下面的代碼將在網(wǎng)頁中生成所有新聞類別的鏈接，每個鏈接都指相應新聞類別的書簽。這樣，用戶就可以通過單擊鏈接東華理工大學 數(shù)據(jù)庫結構與設計 17 直達新聞類別了。 % 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．顯示各新聞類別中的最新新聞 的主要內(nèi)容是顯示新聞類別中的最新 10 條新聞，并將 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 類別編號 % 東華理工大學 數(shù)據(jù)庫結構與設計 18 a href=a%=cid%font style=39。TEXTDECORATION: none。color:black39。%=stitle%/font/a | % Loop % a href=39。39。font color=red新聞查詢 /font/a | a href=font color=red style=39。TEXTDECORATION: none39。新聞管理 /font/a /div table align=center width=100% cellspacing=0 cellpadding=0 border=0 tr 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。/a == 39。顯示新聞類別標題 stitle + ==/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。如果新聞中有圖片，則在標題中顯示（附圖） 東華理工大學 數(shù)據(jù)庫結構與設計 19 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。設置返回頂部鏈接，跳轉(zhuǎn)到書簽 top p align=righta href=top返回頂部 /a 39。生成“更多新聞”鏈接，查看指定類別所有新聞的腳本為 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 中，并在表格中顯示新聞標題。請參照注釋理解。 登錄程序設計 在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。本站中使用 進行身份驗證。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶將看到如下界面： 東華理工大學 數(shù)據(jù)庫結構與設計 20 設計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權限的用戶才能進入管理界面。本節(jié)將介紹管理界面 的實現(xiàn)方法。 錄入新聞類別和新聞內(nèi)容后， 的界面如圖 57 所示。 東華理工大學 數(shù)據(jù)庫結構與設計 21 六：新聞發(fā)布管理模塊設計 此部分由潘小林設計與實現(xiàn) 添加新聞 在 中，“添加新聞”按鈕的定義代碼如下： input type=button value=添加新聞 onclick=newwin(39。39。) name=add 當單擊“添加新聞”按鈕時，將觸發(fā) onclick 事件，并調(diào) newwin(39。39。)函數(shù)，即在彈出的新窗口中執(zhí)行 ． asp。 的運行界面如圖710 所示。 東華理工大學 數(shù)據(jù)庫結構與設計 22 圖 710 的運行界面 將新聞類別添加到下拉菜單中，代碼如下： % Set rs = () 39。將新聞類別裝入下拉菜單中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) % option value=%=cid%%=stitle%/option % LOOP % 下拉菜單名為 Cate，值為新聞類別編號，顯示的內(nèi)容是新聞類別名稱。編輯東華理工大學 數(shù)據(jù)庫結構與設計 23 新聞內(nèi)容表單的定義代碼如下： form action= method=POST name=myform align=center onsubmit=return ValidationPassed 可以看到，表單名為 myfom，表單提交后，將由 處理表單數(shù)據(jù)。在提交表單數(shù)據(jù)之前，程序?qū)?ValidationPassed 變量進行判斷，只有當ValidationPassed=True 時，才 執(zhí)行提交操作。變量 ValidationPassed 的值將在對數(shù)據(jù)有效性進行驗證時被賦值。在． 中，定義“確定”按鈕的代碼如下： input type=submit value= 確 定 name=B1 onclick=return form_onsubmit() 在單擊“確定”按鈕時，將執(zhí)行 form_onsubmit()，進行數(shù)據(jù)有效性驗證，代碼如下 : function form_onsubmit(obj) { ValidationPassed = true。 if( 0) { alert(請選擇新聞類別 ) ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請?zhí)顚懶侣剺祟} )。 ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請?zhí)顚懶侣剝?nèi)容！ )。 ValidationPassed = false。 return ValidationPassed。 } } 這是一段 JavaScript 代碼，參數(shù) obj 接受 ，表示表單 myfom。程序?qū)⒎謩e對新聞類別、新聞標題和新聞內(nèi)容進行判斷，這些信息是必須填寫的。如果沒有填寫前面提到的信息，將彈出相關的對話框， ValidationPassed=false，這樣 表單數(shù)據(jù)將無法提交。 在 頁面的相關位置使用 include 命令包括 ，將可以顯示控制模板。 修改新聞 在 中，每條新聞記錄的后面都有一個修改超級鏈接。單擊此鏈接，東華理工大學 數(shù)據(jù)庫結構與設計 24 將打開 ，對指定新聞進行編輯。參數(shù) id 表示新聞編號。 本節(jié)將介紹如何使用 修改新聞內(nèi)容。在 的開始部分，將使用下面的代碼包含相關文件，從而連接到數(shù)據(jù)庫，并判斷用戶的編輯權限。 !include file= !include file=