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