【文章內容簡介】 tr 4 系統的完整設計與開發(fā) 論壇基本配置 系統運行時，有些數據庫里的數據是會被頻繁調用的，為了便于書寫代碼和程序的嚴謹，可以將這些數據首先賦給一些變量， 在后面的程序運行中直接調用變量，不用頻繁的訪問數據庫。一些保存論壇基本信息的數據就屬于這類。所以在運行時 首先將論壇一些基本參數在數據庫連接后即從數據庫中調出 ，以上內容在 文件里連接數據庫后執(zhí)行，其中使用 connection 對象的 execute方法對存放基本配置信息的表進行 SQL 查詢，還使用了 Recordset 對象的 BOF和 EOF 屬性，其中 BOF屬性表示查詢數據庫的指針位于第一條記錄之前，則為真 ：EOF 屬性表示查詢數據庫的指針位于最后一條記錄之后，則為真。如果兩者都為真，說明數據庫里并沒有對應的 數據，然后可關閉剛才創(chuàng)建的 對象實例 ，并將其清空， 釋放 系統資源；如果找到需要的記錄，則將其數據讀出到創(chuàng)建的變量里以便使用： 39。=========讀取論壇基本設置 ======== Set rsConfig = (Select * from Config)39。創(chuàng)建一個查詢數據庫的對象實例 If And Then39。查詢?yōu)榭斩业阶詈? 39。關閉變量 Set rsConfig = Nothing39。釋放對象實例 網站配置數據丟失！系統無法正常運行！ Else Site_Name = rsConfig(Site_Name) Site_PostNum= rsConfig(Site_PostNum) ?????????’ 省去部分代碼 End If 進入系統時由于 有些功能只針對注冊會員和管理員開放的，并不是進入論壇的人都能使用 ，這里就涉及到一個用戶身份判斷的問題。本設計包含了一個用戶驗證功能函數的 文件，在其他程序執(zhí)行前都會先執(zhí)行該文件里的函數，在需要驗證時不必重復書寫代碼， 只需在需要身份驗證的程序之前調用該具有驗證功能的函數就行。 其中的 CheckUsers（） 函數驗證會員，CheckUnAdmin（） 函數驗證管理員或版主。本設計一大特點是使用了 Cookies來暫存會員信息， 主要是會員姓名、密碼這兩項， 這一功能的實現 對程序的運行是十分方便的， 如上面提到的 CheckUsers（） 函數 的功能 就是根據 Cookies 里的會員密碼來驗證會員是否登陸； 因為一旦會員登陸后登陸處理程序會將該會員的密碼暫存到 Cookies 中，所以只需驗證當前 Cookies 里的會員密碼 是否為空就可以判斷目前的用戶是否登陸論壇。 CheckUnAdmin（） 函數則是創(chuàng)建一個 ADO對象模塊的 兩個 Recordset 對象實例來訪問數據庫中存放管理員身份信息和版主身份信息的 表，讀取有關管理員或版主身份的字段進行比較判斷。 Sub CheckUnAdmin（） Set wd=() SQL=Select BorderUserName from BBSForumID SQL,Conn,1,1 If wd(BorderUserName) (BBS)(UserName) Then ???’ 省去部分代碼 系統 主要功能分析 用戶注冊 在論壇主頁的工具欄里是會員享有的一般操作選項，該工具欄由在 文件 里定義的 MyBBSTop（）函數實現，同樣只需在以后的頁面調用該函數實現 工具欄的顯示。該函數一開始會先在 Cookies 里 去查找會員姓名，如果發(fā)現會員姓名為空，則說明當前瀏覽論壇的用戶未登陸，則工具欄中會顯示未登陸的提示信息，以及顯示未注冊用戶注冊的信息。若是未注冊會員，則可點擊“注冊”鏈接到注冊頁面，如下圖： 圖 41 會員注冊頁面 用戶進入該頁面根據要求填寫上述必要的信息后，會通過表單傳遞的“ POST”方法將輸入的內容傳遞給后臺處理頁面的 Reg（）函數對信息進行處理，其中在傳遞“用戶名”、“密碼”及“密碼問題”等信息時又調用了 MayHTMLEncode和 ReplaceBadChar 函數。其中 MayHTMLEncode 函數的功能是 將一些特殊符號替換成瀏覽器識別的符號 ，而 ReplaceBadChar 函數的功能是 過濾非法的 SQL 字符 。從而保證了用戶名等信息符合網頁設計的要求。當以上所有的數據都審核通過后， Reg 函數便將 返回的內容傳遞給自定義變量，然后 創(chuàng)建一個 ADO對象模塊的Recordset 對象實例來訪問數據庫的用戶信息表，同樣 使用了 Recordset 對象的BOF 和 EOF 屬性來查看此用戶名是否已被注冊，使用一條 If? else 條件語句將條件定為 Not ( And )，若為真，即數據不為空，說明用戶名已被注冊，則以 Response 對象的 Redirect 方法提示用戶重新注冊，保證了會員名的唯一性，方便論壇的管理。若條件為假，則執(zhí)行 else 以后的操作，即創(chuàng)建Recordset 對象實例來將當前新的用戶信息添加到數據庫的用戶信息表里，并將新會員數加 1 更新，完成注冊功能，同時將 所有 注冊后的會員信息寫入 Cookies中。頁面提示用戶注冊成功，以 Response 對象的 Redirect 方法跳轉回論壇主頁面，此時會員就可以享用所有會員權限，盡情游覽論壇。 Response 對象的 Redirect 方法是實現頁面的跳轉，使當前頁面跳轉到指定的頁面。本設計中都是以 文件中的函數來提示操作完成的信息或錯誤信息。當操作成功時，則調用 文件中的“ Yes”函數，該函數即是顯示成功操作的信息，并將頁面跳轉鏈接重新定義回主頁面；如果發(fā)生錯誤，則調用 文件中的“ OtherErr”函數，該函數即是顯示錯誤信息，然后同樣將頁面跳轉鏈接重新定義回主頁面，使用戶可以重新操作。 論壇 顯示 下圖是論壇主頁面，里面的分割區(qū)域將論壇五個話題 不同的版塊分別顯示： 圖 42 論壇主 頁面 考慮到用戶訪問及發(fā)帖的需要，在每個版塊中以“ ForumId”為不同的值表示不同的版塊。版塊結構中分別創(chuàng)建了 2 個 Recordset 對象實例來訪問數據庫 ，一個對象 實例以代表版塊號的 “ ForumId”的值為查詢條件查詢存放版塊信息的表，將數據庫里存放的版塊內容和版主名字讀出，并將內容以 Response 對象的Write 方法顯示到頁面上；另一個 對象 實例以代表版塊號的 “ ForumId”的值為查詢條件查詢存放在該版塊所發(fā)表的文章的表，為保證所查詢的結果為最近的一條信息，在 查詢語句中“ Top 1”和“ order by datetime”兩個查詢條件將時間最近的第一條信息以 Response 對象的 Write 方法將顯示到頁面上 ，查詢語句的核心代碼如下： sql=Select Top 1 * From BBS Where ForumId=？ order by datetime 用戶任意點擊一個版塊名稱即鏈接到相應版塊： 圖 43 論壇“校園新聞”版塊 頁面 該頁面關鍵技術是調用的 Session 對象。除了 在很多地方創(chuàng)建 Recordset對象實例來訪問數據庫的表外 ，有時還必須根據需要 對當前版塊號“ ForumId”進行保 存 ，目的是在任意版塊發(fā)帖的時候，能夠將該帖子所要顯示的版塊號一起寫入數據庫，保證在哪個版塊里發(fā)表的帖子能在哪個版塊里顯示，從而避免在不同版塊發(fā)表文章卻因為版塊切換而造成的版塊 ID號與所要求的 ID 號不一致，不能正常顯示的問題。利用 Session 對象的特點就可以解決這個問題。所以每個版塊頁面一開始都會先將版塊號用 Session 對象保存。然后在其他地方則都是 創(chuàng)建Recordset 對象實例來訪問數據庫的表，然后根據表中字段情況做不同的處理。每個版塊都分為兩部分，一個部分是顯示論壇 公告等一系列重要主題的區(qū)域，另一部分則是顯示普通文章的區(qū)域。所以在重要主題區(qū)域都會創(chuàng)建一個 Recordset對象實例來訪問數據庫，但是都以“ IsNews”為 1 查詢條件，并用一個 While條件語句來處理，若該字段為 1，則版塊有公告帖，就將公告顯示；若沒有公告等重要主題， While 條件為假，則顯示為空。至于在普通主題區(qū)域里則以表示公告的“ IsNews”和表示固頂的“ IsTop”字段為 0 為查詢條件查詢數據庫，然后將符合條件的文章主題等內容讀出并在頁面顯示。這里用了一條 Do While 循環(huán)語句，只要讀取帖子信息的 指針沒到最后，則重復執(zhí)行顯示信息的操作，使所有帖子都依次顯示。在讀取文章之前都會做關于是否為“精華”、“鎖定”的判斷，即多使用一條 If? else 條件語句，查詢帖子年息中代表“精華”和“鎖定”的“ IsBest”，“ IsLocked”語句，為真則顯示提示，否則就不顯示。以上所述的關鍵代碼如下： session(ForumID)=1 SQL=Select * from BBS Where IsNews=1 And RID=0 And ForumID=1 Order By ID Desc While Not ?????????’ 省去部分代碼 SQL=Select * From BBS Where IsTop=0 And IsNews=0 And RID=0 And ForumID = 1 Order by LastDateTime Desc Do While Not If wc(IsBest) = the_True Then ?????????’ 省去部分代碼 然后會員可隨意點擊閱讀感興趣的帖子： 圖 44 閱讀帖子 頁面 此時 調用 文件實現 內容顯示 ， 這里也用到了 Session 對象 來保存當前文章所在版塊的 ID 號，并根據 Session 對象 所暫存的 ID 號來進行 If? else條件選擇，然后在標題的“游覽”處添加相應的版塊鏈接，這樣在用戶點擊“游覽”時可根據剛才保存的 ID 號返回剛才的版塊頁面，使返回的版塊根據保存值動態(tài)更新，實現退回版塊主頁的功能。要實現顯示文章信息的功能首先最關鍵的是要得到所瀏覽文章的 ID號，這個在文章主題的鏈接到 文件 時會將當前文章的 ID號一同傳遞給 中的處理程序。所以 中執(zhí)行程序一開始就會先將從 Request 對象傳遞來的主題 ID號保存到變量 ID 中，然后就能以該變量為查詢條件創(chuàng)建 Recordset 對象實例來訪問數據庫的表， 并將 作者信息、帖子內容等數據 內容以 Response 對象的 Write 方法顯示到頁面上；顯示文章內容是調用自定義函數 ShowContent（）實現的，因為該帖子除了主題帖外，可能還會有一些跟帖的回復內容，都需要顯示，所以 ShowContent（）函數使用了 Do While? Loop 循環(huán)，這種循環(huán)在執(zhí)行 Do While 時，會查詢“條件”的返回值，若返回值 為真則執(zhí)行程序代碼，這里是查看搜索數據庫的指針是否沒到最后，若成立，說明還有信息，則用同樣的 Response 對象的 Write 方法顯示，然后碰到 Loop 又回到 Do While 再次檢查，這樣就保證了文章所有內容都顯示出來。以上提到的核心代碼如下： 首先利用得到的帖子的 ID號做為查詢條件得到帖子作者， ID = Request(TopicID) Set rs=() SQL=Select * From BBS Where ID=amp。IDamp。 Or RID=amp。IDamp。 Order by ID Asc ?????????’ 省去部分代碼 Session 對象 所暫存的 ID號： ForumID2 = session(ForumID) If ForumID2 = 1 then (a href=39。39。游覽 /a) If ForumID2 = 2 then (a href=39。39。游覽 /a) ?????????’ 省去部分代碼 ShowContent（）函數： Do While Not ?????????’ 省去顯示文章內容的代碼 Loop 發(fā)帖與回復 圖 45 寫新帖子 頁面 該頁面實現較簡單，屬于一個靜態(tài)表單傳遞頁面，只用于會員填寫帖子內容，關鍵部分是在提交后的后臺處理。這里表單傳遞數據方法用的是“ POST”，表單處理程序由標準輸入取得數據。將以上內容寫好后點擊“提交”按鈕，將由后臺 代碼處理并寫入數據庫。后臺以 Request 對象接受表單傳遞來的數據，然后將這些數據賦 給自定義的變量，接著創(chuàng)建 Recordset 對象實例來訪問數據庫的多個表，用 語句在數據庫中添加新的文章信息。這里要特別提出的是新帖子的 ID 號在數據庫中是以自動編號的形式自動生成的，從而保證了每個帖子都有一個唯一的 ID號。完成后則以 Response 對象的 Redirect 方法提示操作成功并跳轉，而這里正是以剛才新生成的帖子的主題 ID 號來做為跳轉的條件，這樣就可以直接返回新帖子頁面。以上核心代碼如下： formaction=?Action=NewTopicmethod=postname=NewTopicid=NewTopiconKey