【文章內容簡介】 論題添加 論壇修改 論點刪除 留言瀏覽 留言刪除 用戶資料管理 管理員的添加 推薦管理員 用戶登錄管理 用戶登錄包括登錄驗證和用戶注冊 ,下面分 別畫流程圖進行說明 : NO NO YES 圖 32 用戶登錄流程圖 NO NO 開始 輸入用戶名及密碼 連接數(shù)據(jù)庫 根據(jù)用戶名查找是否有用 戶 進入系統(tǒng) 終止 注冊用戶 輸入有關用戶信息 驗證填寫信息的正確性 輸出提示信息 開始 YES 圖 33 用戶注冊信息流程圖 以上流程是用戶在登錄和注冊時的全部過程，關于用戶的管理流程圖將在管理流程圖中見到。 （ 2）發(fā)布新聞 在新聞發(fā)布中我們要實現(xiàn)的功能有用戶的瀏覽和后臺管理員對新聞信息的管理，具體流程圖如下： NO YES NO YES 連接數(shù)據(jù)庫 存入數(shù)據(jù)庫并保存 終止 開始 判斷是否是管理員登錄 輸入管理員名及密碼 判斷管理員名是否正確 對新聞系統(tǒng)的管理 普通用戶瀏覽 圖 34 新聞系統(tǒng)流程圖 (3)BBS 論壇 BBS 這個模塊比較復雜 ,我們分幾部分來對其分析 .首先 ,用戶的登錄當用戶在主頁或者其他頁上登錄后就可以直接進入該模塊．我們在這里描述的是用戶從沒 有登錄以前到所有功能都實現(xiàn)的過程．下面我們以一個全面的的ＢＢＳ論壇模塊流程圖來了解以下整個系統(tǒng)的大致流程．另外還有管理員的維護和修改等．也將在這給出介紹． 具體流程圖如下： （１） 用戶的登錄在這里就不在詳說同上面的一樣． （２） 用戶發(fā)表帖子 開始 添加信息 輸入框是否有空 打開數(shù)據(jù)庫．ＭＤＢ 刷新數(shù)據(jù)庫．ＭＤＢ 結束 保存修改 終止 圖 35BBS 添加流程圖 （ 3）修改信息 是 否 是 否 圖 36BS 修改流程圖 (4)刪除記錄 帖子信息 修改信息 輸入框是否為空空 輸入信息是否合法 修改成功 存入數(shù)據(jù)庫 刷新記錄集 結束 開始 開始 是 圖 37BBS 刪除記錄 主要窗體功能及實現(xiàn)方法 （ 1）系統(tǒng)首頁 它的功能主要是用戶登錄和鏈接各個子功能模塊，各類用戶通過身份驗證可以進入不同的界面，用戶可以在主頁 登陸，管理員登錄可進入 GL—。主界面也包含一些重要新聞瀏覽等功能，如：熱點新聞的、熱點論壇情況查詢、網站大體信息的瀏覽等，這些信息是面向所有用戶的；另外還可以讓用戶查看當天日期以及星期幾的有關情況，同時也起到了美化界 面的作用。主界面如圖 38 所示： 輸入關鍵字 連接數(shù)據(jù)庫 檢查是否有此關鍵字 選中次對象 刪除對象 刷新數(shù)據(jù)庫 結束 圖 3— 8 主頁界面 主頁中的查詢和登錄都要用到數(shù)據(jù)庫里的信息，必須和數(shù)據(jù)庫進行連接，所以這里首先介紹連接數(shù)據(jù)庫的方法，本系統(tǒng)中和數(shù)據(jù)庫的連接使用代碼實現(xiàn)都是通 過調用文件： 來實現(xiàn)的該文件的代碼如下： % Dim db,connstr connstr=Dbq=amp。()amp。Driver={Microsoft Access Driver (*.mdb)} Set db=() connstr % 該代碼是使用 ADO 技術來存取符合 ODBC 標準數(shù)據(jù)庫的內容，在這里有好多種連接數(shù)據(jù)庫的方法在這里我們運用的是不用數(shù)據(jù)源的連接方法，另外，我們采用了 SERVER 對象的 MAPPATH 方法，它的作用是通過 MAPPATH 方法可以將虛擬路徑轉化為上面的物理路徑。增強整個文件的可移植性。用到的頁面只需用!include file=把這個文件包含進來就可以了。 (2)新聞頁的實現(xiàn) 新聞頁面包括：熱點新聞的推薦、不同話題的劃分、新聞提交的時間、同時通過新聞可以鏈接到新聞的具體文章里，在具體內容里可以知道該新聞的點擊次數(shù)。新聞界面如圖 39 新聞界面 圖 39 新聞界面 具體實現(xiàn)是： 首先與數(shù)據(jù)庫建立連接： % option explicit% !Include file= 第一行是強制型變量申明 第二行則是把連接數(shù)據(jù)庫的文件包含進來 下面是通過建立記錄集來查詢數(shù)據(jù)庫： % Dim sql,rs sql=Select * From xw where zd=1 Order By xw_date desc Set rs=() sql,db % % Dim strql,sr strql=select * from xw where zd=2 order by xw_date desc Set sr=() strql,db,1 % 下面再通過對記錄集的輸出來得到該頁，具體就不在敘述。 （ 3） BBS 論壇頁 首先要申明的是進入論壇前要進行用戶身份的驗證所以只有該網站注冊過的用戶才能登錄，論壇也主要包括：論壇標題的瀏覽、論題的電擊次數(shù)、論題的回復個數(shù)、論題的發(fā)布時間、以及通過論題可以連接到論題的具體內容，另外，還能夠在論壇詳情頁對論壇的回復。論壇界面如圖： 310 圖 310 論壇界面 具體設計如下： %@LANGUAGE=VBSCRIPT CODEPAGE=936% % option explicit% !Include file= !Include file= 在著里同上面的設計一樣也是把連接數(shù)據(jù)庫的文件包含近來，不同的是為了使用戶能夠更方便的查看，我們增加了分頁顯示方，在分頁顯示的代碼里要調用一段子程序用同樣的方法把它保存在文件 中。具體代碼如下： % private sub select_page(page_no,total_page) 請選擇頁碼 : Dim I for I=1 to total_page If I=page_no Then I amp。 amp。nbsp Else a href=39。?page_no= amp。 I amp。 39。 amp。 I amp。 /aamp。nbsp End If next End sub % 該文件的主要作用是通過論壇主頁來調用上面的子程序把當前是第幾頁和總頁數(shù)以參數(shù)的形式調用 到這里。再通過該程序依次寫出各頁頁碼，并將非當前頁設置超級鏈接，當前頁則不設置。 在論壇頁里我們需要強調的是有關分頁顯示的有關內容，具體如下： % Dim sql,rs sql=Select * From bbs Where layer=1 Order By date desc Set rs=() sql,db,1 If Not And Not Then Dim page_size Dim page_no Dim page_total page_size=10 If Request(page_no)= Then page_no=1 Else page_no=cint(Request(page_no)) End If Session(page_no)=page_no =page_size page_total= =page_no Dim I,J I=0 J=page_size Do While Not And J0 I=I+1 J=J1 % 該段代碼的主要作用是實現(xiàn)分頁顯示的主要部分，在這里因為要分頁顯示查詢結果，所以用上面方法創(chuàng)建一個 recordset 對象。需要注意的是因為要用到recordset 對象的很多屬性所以我們要用 OPEN 方法打開數(shù)據(jù)庫的時候要將recordset 對象的 OPEN 方法的參數(shù)設置為： sql,db,1。下面是各種變量的申明分別有：每頁多少條記錄 (page_size)、當前頁有多少條記錄 (page_no)、總頁數(shù)的記錄 (page_total)。 page_size=10 即是將每頁的顯示設為 10條， If Request(page_no)= Then page_no=1 Else page_no=cint(Request(page_no)) End If 該循環(huán)程序就是 如果第一次打開，則 page_no=1，否則，由傳回的參數(shù)決定。 Session(page_no)=page_no =page_size page_total= =page_no 上面第一行是將 page_no 即當前是第幾頁存入 SESSION 中，后面的子程序要用到。第二行開始則是對每頁顯示記錄的條數(shù)的設置，第三行是將通過recordset 對象的 PageCount 屬性返回總頁數(shù)，最后一行是將當前顯示的頁數(shù)設置為 page_no。 Dim I,J I=0 J=page_size Do While Not And J0 I=I+1 J=J1 % 最后這段循環(huán)代碼是輸出序號、循環(huán)執(zhí)行語句直到當前頁結束或文件結尾 在 的最后還有一段代碼是： % Call select_page(page_no,page_total) % 是調用 中的程序，寫出有關各頁的鏈接信息。 （３） 網站留言 網站留言界面如圖：