【導讀】如需要源代碼請聯(lián)系qq676570785. 畢業(yè)設計（論文）任務書。二.設計（論文）要求：

　　

【正文】 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()) 新聞發(fā)布系統(tǒng) 32 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 天內新聞標記 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返回頂部/a 39。生成“更多新聞”鏈接，查看指定類別所有新聞的腳本為 a target=39。_self39。 href=39。?flag= + CStr(cid) + 39。更多新聞 .../a/p /td/tr/table/td/table loop % 因為在第 l 步中已經(jīng)將各新聞類別的標題讀取到記錄集 rsCate 中，所以只新聞發(fā)布系統(tǒng) 33 需要使用執(zhí)行 語句將指針復位就 可以了。使用 DO WHIIlE 循環(huán)語句依次處理每個新聞類別，讀取此類別中的所有新聞信息到記錄集 rs 中，并在表格中顯示新聞標題。請參照注釋理解。 第二節(jié) 登錄程序設計 在對系統(tǒng)進行管理之前，需要通過系統(tǒng)的身份認證。本站中使用 進行身份驗證。對于需要登陸才能察看的網(wǎng)頁可以在網(wǎng)頁的最前端加上如下代碼： !include file=”” 這樣為登陸的用戶將看到如下界面： 第三節(jié) 設計管理界面 管理界面的功能是對新聞類別和新聞提供管理界面，只有有權限 的用戶才能進入管理界面。本節(jié)將介紹管理界面 的實現(xiàn)方法。 錄入新聞類別和新聞內容后， 的界面如圖 57 所示。 新聞發(fā)布系統(tǒng) 34 下面介紹 的主要代碼。 (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) 新聞發(fā)布系統(tǒng) 35 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 a href=39。39。font color=red類別管理 /font/a a href=39。39。font color=red用戶管理 /font/a sql_where = Else 39。如果不是系統(tǒng)管理員，則只能管理自己提交的新聞，所以在這里設置新聞發(fā)布系統(tǒng) 36 WHERE 子句的條件 sql_where = Poster=39。 amp。 Session(UserName) amp。 39。 End If % Session(” UserName” )中保存著當前登錄用戶的用戶名。當 Session(”UserName” )=” Admin”時，才能顯示“類別管理”和“用戶管理”超級鏈接。 從程序中可以看到，各項管理功能對應的頁面如下： (1)更改密碼 ； (2)類 別管理 Cate— ； (3)用戶管理 ； (4)退出登錄 。 變量 sql_where 用來記錄查詢條件。如果當前用戶是 Admin，則 sql_where=“”，即顯示所有新聞；否則設置查詢條件為“ Poster=“” amp。Session(“ UserName” )amp。“””，即只能管理自己創(chuàng)建的新聞。 (4)分頁顯示新聞信息 下面將根據(jù)指定的新聞類別和頁碼顯示新聞標題列表，代碼如下： % 39。根據(jù)參數(shù) iflag 和 sql_where 變量設置 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。 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 新聞發(fā)布系統(tǒng) 37 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 39。如果記錄集 rs 為空，則顯示“目錄還沒有記錄” If Then trtd colspan=4 align=center目前還沒有記錄。/td/tr/table Else 39。設置分頁顯示，每頁顯示 20 條新聞記錄 = 20 39。讀取參數(shù) page，表示當前的頁碼，使用 CLng 將其轉換為長整型 Page = CLng(Request(Page)) 39。處理不合法的頁碼 If Page 1 Then Page = 1 If Page Then Page = 39。設置當前頁碼為 Page = Page 39。循環(huán)顯示當前頁的記錄 For i = 1 to 39。如果到達記錄集結尾，則跳出循環(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)% 新聞發(fā)布系統(tǒng) 38 onClick=return newwin()修 改 /a/td td align=centerinput type=checkbox name=News id=%=rs(id)% style=fontsize: 9pt value=ON/td /tr % () Next % /table % 39。顯示分頁頁碼 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 Next /tr/table End If End If % 這部分代碼的關鍵部分是根據(jù)新聞類別和用戶類型生成 sELECT 語句，查詢指定的新聞記錄。在調試程序時，可以使用下面的語句顯示 sELECT 語句的內容。 sql 新聞發(fā)布系統(tǒng) 39 第六章 新聞類別管理模塊設計 新聞類別管理模塊可以實現(xiàn)以下功能： (1)添加新的新聞類別記錄； (2)修改新聞類別記錄； (3)刪除新聞類別記錄。 只有 Admin 用戶才有權限進入新聞類別管理模塊，在 中，單擊“類別管理 ” 超級鏈接， 可以打開類別管理頁面 。 第一節(jié) 設計新聞類別管理界面 打開新聞類別管理界面，如圖 69 所示。 圖 69 新聞類別管理界面 下面將介紹 中與界面顯示相關的部分代碼。 1．顯示新聞類別信息 為了便于用戶管理新聞類別， 以表格的形式顯示新聞類別名稱，并在后面 顯示修改鏈接和刪除復選框，代碼如下： 新聞發(fā)布系統(tǒng) 40 p align=39。center39。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 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%