【正文】 ，論壇收藏，論壇好友。聯(lián)系資料則是提供了電子信箱， O ICQ 號碼， ICQ 號碼， MSN帳戶，個人主頁等的聯(lián)系方式，如果 要修改 ，必須要先正確輸入密碼才可以，這樣避免了有些人惡意改動別人的聯(lián)系方式。 用戶注冊 用戶注冊，首先要檢查的就是用戶填寫的信息，其中包括： 1. 字段是否空白，若空白則不接受。 23 3. 兩次輸入的密碼是否一致。 5. 電 子郵件是否被使用?！?如果正確則輸 恭喜，您所填寫的用戶和 Email 通過檢測，可以正常注冊！ 請繼續(xù)將您的注冊信息填寫完整，謝謝。 圖 44 用戶 好友列表 頁面 可以將站內(nèi)的注冊用戶加為好友，方便查看好友的信息和聯(lián)系。 通過數(shù)據(jù)庫語句（ Select * From BBsAttach）從 BBsAttach 表中提取用戶數(shù)據(jù)， 發(fā)布到好友列表中。 標(biāo)記短消息是否已讀是對數(shù)據(jù)表 UserNote 中的 flag 字段操作。 帖子模塊 發(fā)布 /刪除 /修改帖子模塊 網(wǎng)絡(luò)技術(shù)的發(fā)展日新月異，現(xiàn)在用戶發(fā)言時使用的格式也是豐富多彩。下面是一個帖子的發(fā)布頁面 和修改頁面。 26 圖 47 帖子發(fā)布頁面 要實(shí)現(xiàn)帖子內(nèi)容多樣化可以使用 UBB 碼。為了避免用戶無意或者有意使用 HTML 代碼對論壇進(jìn)行攻擊。但是為了使得論壇更加“多姿多彩”，論壇也會相應(yīng)地開放一些自定義的 TAG 標(biāo)簽，類似于 HTML 中的TAG?？梢允褂妹赓M(fèi)的UBB 編輯器來自動生成 UBB 代碼。 帖子瀏覽模塊 圖 49 帖子分類頁面 28 用戶登陸后自動跳轉(zhuǎn)到論壇首頁 ，用戶可以找到感興趣的話題進(jìn)入，進(jìn)行帖子的瀏覽。 圖 411 帖子回復(fù)頁面 帖子瀏覽模塊部分最重要的是對數(shù)據(jù)庫的操作，如帖子的分頁列表，首先來看帖子的分頁是如何實(shí)現(xiàn)的，下面是幾個和分頁瀏覽有關(guān)的屬性： 29 AbsolutePage: 當(dāng) Recordset 對象有設(shè)置分頁時， AbsolutePage會返回目前的頁碼。 PageSize: 當(dāng) Recordset 對象有設(shè)置分頁時， PageSize 為每頁的記錄條數(shù)。具體的程序和版面瀏覽模塊相似，這里就不給出程序了。下面先來看下搜索條件。帖子搜索本質(zhì)上是有條件的對數(shù)據(jù)表查找，所以要滿足以上條件的搜索應(yīng)該使用下面的SQL 語句： 30 （ select * from bbstopic where amp。 like 39。keywordamp。 and boardid=39。boardidamp。 and DateAndTime 39。posttimeamp。 order by DateAndTime desc） 其它功能 1. 帖子評價 圖 413 帖子評價頁面 對于用戶如 果想要吸引他們來到論壇，就需要 管理員根據(jù)其內(nèi)容及回帖的信息對 每個 帖子做 一個評價。 2. 論壇收藏 圖 414 收藏頁面 隨著論壇的內(nèi)容逐漸豐富，用戶在論壇中查找信息就會變得越31 來越困難，特別是對于自己喜歡的內(nèi)容，每次都要去查找，對此我們提供一個收藏夾，用戶可以把自己喜歡的東西收藏起來，方便以后查閱。在用戶等級權(quán)限設(shè)置頁面中，管理員可以編輯用戶的權(quán)限。 1. 用戶的批量刪除 實(shí)現(xiàn)用戶的批量刪除，與以往的單個刪除不同，主要使用了數(shù)組循環(huán) 。 33 版面管理 圖 417 添加版面頁面 管理員在這個頁面里面可以增加新的版面，對版面進(jìn)行相關(guān)的解釋 ，增加新的版主。在這里面我把權(quán)限都設(shè)置成不注冊就可以瀏覽。 版面管 理包括版面的添加，刪除和修改。其 三者主 要不同之 處在于SQL 語句的不同，添加版面需要使用 insert,刪除版面需要使用 delete,修改版面需要使用 update。而版主對帖子的管理包括刪除單個帖子，移動單個帖子，置頂帖子，指定精華帖。而批量移動帖子不同之處使用下面的 SQL 語句： 35 （ update bbstopic set bbsboard=39。request(boardid)amp。 where TopicID=39。iamp。） 圖 420 批量刪除頁面 圖 421 批量移動頁面 刪除的帖子會被轉(zhuǎn)存到回收站之中，在這里管理員可以執(zhí)行徹底刪除操作。 帖 子 的 循 環(huán) 應(yīng) 用 了For..Next 來實(shí)現(xiàn)。 圖 423 數(shù)據(jù)備份 ahref=?Action=resumetarget=main通過上面的 語句來實(shí)現(xiàn)數(shù)據(jù)庫的恢復(fù)，管理員在這個頁面可以填寫數(shù)據(jù)庫備份的路徑和目標(biāo)數(shù)據(jù)庫路徑。該論壇 會根據(jù)用戶的要求和選擇而動態(tài)改變和響應(yīng)，將瀏覽器作為客戶端界面，這將是今后 WEB 發(fā)展的大 勢 所趨。 在前臺界面的設(shè)計時，遵從了傳統(tǒng)的網(wǎng)頁界面設(shè)計，并且添加了不同的背景風(fēng)格來適應(yīng)不同用戶的需求，爭取做到簡明明了，讓用戶一眼看上去就有比較清爽的感覺，讓其瀏覽網(wǎng)頁時心情舒暢。 雖然說論壇是做完了，但還有許多要改進(jìn)的地方，比如：增加各版塊的功能，是用戶用起來得心應(yīng)手，還有就是對后臺數(shù)據(jù)庫的維護(hù)，提高對用戶的私人信息的保護(hù)，防止他人密碼丟失及對數(shù)據(jù)處理的失誤率減到最小。比如：怎么樣使用戶進(jìn)行私聊，屏蔽一些不文明的用語等等。 39 致 謝 感謝 田淑梅老師的熱情關(guān)心和指導(dǎo)， 田淑梅老師 淵博的知識和嚴(yán)謹(jǐn)?shù)?治學(xué)作風(fēng)使我受益匪淺，對順利完成本課題起到了極大的作用。 王曉晨 . ASP 技術(shù)在用戶登錄中的應(yīng)用 [J],電腦知識與技術(shù) ， 2021. 12 羅淑嫻 . 基于 ASP 技術(shù)的信息發(fā)布系統(tǒng)的設(shè)計和實(shí)現(xiàn) [J],農(nóng)業(yè)圖書情報學(xué)刊 ， 2021. 13 向?qū)W哲 .ASP 程序設(shè)計教程 [M],人民郵電出版社， 2021 14 張建軍 . ASP 記錄集分頁瀏覽方法 [J]北京工業(yè)職業(yè)技術(shù)學(xué)院學(xué)報 , 2021. 41 15 Mani Management Principles and Practive. Higher Education Press,2021. 42 附錄 設(shè)計系統(tǒng)部分源代碼 連接數(shù)據(jù)庫源代碼 % =True Dim Conn,DataBase,Driver,SearchNum,StartTime SearchNum=0 39。運(yùn)行開始時間 Sub LinkDataBase() DataBase=(DataBase/Snow ) Driver=Provider = 。DataBase Set Conn=() Driver If Err then Set Conn=Nothing 數(shù)據(jù)庫連接出錯，請檢查連接字符串 End if End Sub Sub CloseConn() Set Conn=Nothing End Sub 39。是否開放友情連接 FriendLink() End if rite Replace((6),{$UserSkinPath},) () Function UserLoginDate() dim TempStr,StrImg if then TempStr=(1) StrImg=img src=39。Session(UserInFo)(14)amp。 Width=amp。 Height=amp。 border=39。 onload=39。=90}39。************************* 帶 綬 存 的 主 區(qū) 數(shù) 據(jù)****************************** =BoardList If () then Set Rs=(Select BoardID,ParentID,BoardName,Child,Depict,BoardImg,TopicTotal,ReplyTotal,ManageName,LastTopicName,LastTopic,LastTopicTime,BoardStatus,TodayTopic,BootID From [BBsBoard] order by BootID asc,ParentID asc,BoardID asc) SearchNum=SearchNum+1 if or then 45 :Set Rs=Nothing Exit Function Else BoardStr=(1) :Set Rs=Nothing =BoardStr End if End if CacheStr= 39。) For i=0 to Ubound(CacheStr,2) EndStr= if i0 then if CacheStr(1,i)=0 or i=Ubound(CacheStr,2) then EndStr=Trim(ArrStr(2)) End if End if if CacheStr(1,i)=0 then TempStr=EndStramp。Replace(Trim(ArrStr(0)),{$BoardName},CacheStr(2,i)) Else TempStr=Trim(ArrStr(1))amp。CacheStr(2,i)amp。) If IsNull(CacheStr(5,i)) or CacheStr(5,i)= then BIStr= Else BIStr=img src=39。CacheStr(5,i)amp。 46 TempStr=Replace(TempStr,{$BoardImg},BIStr) TempStr=Replace(TempStr,{$LastTopic},CacheStr(10,i)amp。) TempStr=Replace(TempStr,{$LastTopicTime},CacheStr(11,i)) TempStr=Replace(TempStr,{$ManageName},NotNull(CacheStr(8,i),暫無 )) TempStr=Replace(TempStr,{$TodayTopic},CacheStr(13,i)) TempStr=Replace(TempStr,{$TopicTotal},CacheStr(6,i)) TempStr=Replace(TempStr,{$ReplyTotal},CacheStr(7,i)) 39。 Case 1:BSPic=amp。 Case 3:BSPic=amp。TempStr Next BoardList=GetStr End Function Function UserOnline() dim TempStr TempStr=(4) TempStr=Replace(TempStr,{$OnlineUser},) TempStr=Replace(TempStr,{$OnlineMember},) TempStr=Replace(TempStr,{$OnlineGuest},) TempStr=Replace(TempStr,{$GreateBBsTime},) TempStr=Replace(TempStr,{$TopOnlineUser},) TempStr=Replace(TempStr,{$TopOnlineTime},) TempStr=Replace(TempStr,{$UserIP},) TempStr=Replace(TempStr,{$UserSystem},) TempStr=Replace(TempStr,{$UserIE},amp。a href=amp。 target=39。 title=39。ArrStr(3,i)amp。i mg src=amp。 width=88 height=31 Border=0/a A=A+1 End if if Clng(ArrStr(1,i))=1 and B=8 then CharFriend=CharFriendamp。ArrStr(5,i)amp。_blank39。 網(wǎng)站說明 : amp。39。ArrStr(2,i)amp