【文章內(nèi)容簡(jiǎn)介】 將新聞按照分類(lèi)顯示，每個(gè)新聞?lì)悇e只顯示最新的 10 條新聞。如果新聞?lì)悇e較多，則網(wǎng)頁(yè)會(huì)被拉長(zhǎng)，給用戶(hù)閱讀帶來(lái)不便。為了解決這個(gè)問(wèn)題，本實(shí)例使用書(shū)簽來(lái)定義新聞?lì)悇e的位置，書(shū)簽格式為 a類(lèi)別編號(hào) 。例如，類(lèi)別編號(hào)為 1 的新聞 類(lèi)別的書(shū)簽名稱(chēng)為 al。下面的代碼將在網(wǎng)頁(yè)中生成所有新聞?lì)悇e的鏈接，每個(gè)鏈接都指相應(yīng)新聞?lì)悇e的書(shū)簽。這樣，用戶(hù)就可以通過(guò)單擊鏈接?xùn)|華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 17 直達(dá)新聞?lì)悇e了。 % 39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類(lèi)別顯示該類(lèi)別的新聞 ===== 39。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。每個(gè)新聞?lì)悇e標(biāo)題被定義為一個(gè)書(shū)簽，名為 a 類(lèi)別編號(hào) % a href=a%=cid%font style=39。TEXTDECORATION: none。color:black39。%=stitle%/font/a | % Loop % 如果網(wǎng)頁(yè)中顯示的內(nèi)容較多 ，通常需要通過(guò)定義書(shū)簽的方法使用戶(hù)快速到達(dá)指定的位置。書(shū)簽是網(wǎng)頁(yè)中被標(biāo)記的位置或被標(biāo)記的選中文本。在 FrontPage中選擇“插入” /“書(shū)簽”菜單項(xiàng)，可以在指定位置插入書(shū)簽。在本例中，因?yàn)闀?shū)簽位置是動(dòng)態(tài)變化的，所以需要使用代碼定義，方法如下： a name=書(shū)簽名 /a 2．“新聞管理”鏈接 系統(tǒng)管理員 Admin 或其他用戶(hù)可以通過(guò)“新聞管理”鏈接進(jìn)入新聞管理頁(yè)面 a href=font color=red style=39。TEXTDECORATION: none39。新聞管理 /font/a 3．顯示各新聞?lì)悇e中的最新新聞 的主要內(nèi)容是顯示新聞?lì)悇e中的最新 10 條新聞，并將 3 天內(nèi)的新聞使用 new 圖片標(biāo)記。當(dāng)然，如果新聞的內(nèi)容經(jīng)常更新，則可以將 3 天改為 1 天。 這部分代碼如下 : % 39。=====顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類(lèi)別顯示該類(lèi)別的新聞 ===== 39。按順序讀取所有新聞?lì)悇e，保存在記錄集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。顯示所有新聞?lì)悇e鏈接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。每個(gè)新聞?lì)悇e標(biāo)題被定義為一個(gè)書(shū)簽，名為 a 類(lèi)別編號(hào) % 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(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新聞查詢(xún) /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。將指針移至開(kāi)始位置，分別顯示每個(gè)分類(lèi)中的新聞 If = False Then End If 39。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。變量 t 用來(lái)記錄 t = 0 39。生成表格 table width=39。100%39。 cellspacing=1 cellpadding=2tr 39。顯示新聞?lì)悇e，并設(shè)置書(shū)簽 td bgcolor=ceceffa name=aamp。cidamp。/a == 39。顯示新聞?lì)悇e標(biāo)題 stitle + ==/td/tr 39。生成另一個(gè)表格，用于顯示新聞標(biāo)題 table width=39。100%39。 border=0 cellspacing=0 cellpadding=0 39。按提交時(shí)間的降序顯示新聞標(biāo)題 sql = SELECT * FROM News WHERE CateId= amp。 cid amp。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。計(jì)數(shù) t = t + 1 39。只顯示 10 條新聞 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。顯示新聞標(biāo)題及鏈接，查看新聞的腳本文件為 trtd width=39。50%39。a onClick=39。return newwin()。39。 href=39。?id= + cstr(rs(id)) + 39。 + rs(Title) + 39。如果新聞中有圖片，則在標(biāo)題中顯示（附圖） 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 19 If rs(Attpic) Then (附圖 ) End If /a 39。3 天內(nèi)新聞標(biāo)記 new 圖片 If datediff(d, rs(Posttime), ndate+time()) = 0 Then img SRC=39。pic/39。 ALT=39。最新的新聞！ 39。 border=0/td End If 39。顯示新聞提交的時(shí)間 td width=39。20%39。( + CStr(rs(Posttime)) + )/td/tr End If Loop /table 39。設(shè)置返回頂部鏈接，跳轉(zhuǎn)到書(shū)簽 top p align=righta href=top返回頂部 /a 39。生成“更多新聞”鏈接，查看指定類(lèi)別所有新聞的腳本為 a target=39。_self39。 href=39。?flag= + CStr(cid) + 39。更多新聞 .../a/p /td/tr/table/td/table loop % 因?yàn)樵诘?l 步中已經(jīng)將各新聞?lì)悇e的標(biāo)題讀取到記錄集 rsCate 中，所以只需要使用執(zhí)行 語(yǔ)句將指針復(fù)位就可以了。使用 DO WHIIlE 循環(huán)語(yǔ)句依次處理每個(gè)新聞?lì)悇e，讀取此類(lèi)別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標(biāo)題。請(qǐng)參照注釋理解。 登錄程序設(shè)計(jì) 在對(duì)系統(tǒng)進(jìn)行管理之前，需要通過(guò)系統(tǒng)的身份認(rèn)證。本站中使用 進(jìn)行身份驗(yàn)證。對(duì)于需要登陸才能察看的網(wǎng)頁(yè)可以在網(wǎng)頁(yè)的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶(hù)將看到如下界面： 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 20 設(shè)計(jì)管理界面 管理界面的功能是對(duì)新聞?lì)悇e和新聞提供管理界面，只有有權(quán)限的用戶(hù)才能進(jìn)入管理界面。本節(jié)將介紹管理界面 的實(shí)現(xiàn)方法。 錄入新聞?lì)悇e和新聞內(nèi)容后， 的界面如圖 57 所示。 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 21 六：新聞發(fā)布管理模塊設(shè)計(jì) 此部分由潘小林設(shè)計(jì)與實(shí)現(xiàn) 添加新聞 在 中，“添加新聞”按鈕的定義代碼如下： input type=button value=添加新聞 onclick=newwin(39。39。) name=add 當(dāng)單擊“添加新聞”按鈕時(shí)，將觸發(fā) onclick 事件，并調(diào) newwin(39。39。)函數(shù)，即在彈出的新窗口中執(zhí)行 ． asp。 的運(yùn)行界面如圖710 所示。 東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 22 圖 710 的運(yùn)行界面 將新聞?lì)悇e添加到下拉菜單中，代碼如下： % Set rs = () 39。將新聞?lì)悇e裝入下拉菜單中 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，值為新聞?lì)悇e編號(hào)，顯示的內(nèi)容是新聞?lì)悇e名稱(chēng)。編輯東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 23 新聞內(nèi)容表單的定義代碼如下： form action= method=POST name=myform align=center onsubmit=return ValidationPassed 可以看到，表單名為 myfom，表單提交后，將由 處理表單數(shù)據(jù)。在提交表單數(shù)據(jù)之前，程序?qū)?duì) ValidationPassed 變量進(jìn)行判斷，只有當(dāng)ValidationPassed=True 時(shí)，才 執(zhí)行提交操作。變量 ValidationPassed 的值將在對(duì)數(shù)據(jù)有效性進(jìn)行驗(yàn)證時(shí)被賦值。在． 中，定義“確定”按鈕的代碼如下： input type=submit value= 確 定 name=B1 onclick=return form_onsubmit() 在單擊“確定”按鈕時(shí)，將執(zhí)行 form_onsubmit()，進(jìn)行數(shù)據(jù)有效性驗(yàn)證，代碼如下 : function form_onsubmit(obj) { ValidationPassed = true。 if( 0) { alert(請(qǐng)選擇新聞?lì)悇e ) ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請(qǐng)?zhí)顚?xiě)新聞標(biāo)題 )。 ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請(qǐng)?zhí)顚?xiě)新聞內(nèi)容！ )。 ValidationPassed = false。 return ValidationPassed。 } } 這是一段 JavaScript 代碼，參數(shù) obj 接受 ，表示表單 myfom。程序?qū)⒎謩e對(duì)新聞?lì)悇e、新聞標(biāo)題和新聞內(nèi)容進(jìn)行判斷，這些信息是必須填寫(xiě)的。如果沒(méi)有填寫(xiě)前面提到的信息，將彈出相關(guān)的對(duì)話(huà)框， ValidationPassed=false，這樣 表單數(shù)據(jù)將無(wú)法提交。 在 頁(yè)面的相關(guān)位置使用 include 命令包括 ，將可以顯示控制模板。 修改新聞 在 中，每條新聞?dòng)涗浀暮竺娑加幸粋€(gè)修改超級(jí)鏈接。單擊此鏈接，東華理工大學(xué) 數(shù)據(jù)庫(kù)結(jié)構(gòu)與設(shè)計(jì) 24 將打開(kāi) ，對(duì)指定新聞進(jìn)行編輯。參數(shù) id 表示新聞編號(hào)。 本節(jié)將介紹如何使用 修改新聞內(nèi)容。在 的開(kāi)始部分，將使用下面的代碼包含相關(guān)文件，從而連接到數(shù)據(jù)庫(kù)，并判斷用戶(hù)的編輯權(quán)限。 !include file= !include file=