【正文】 ，建立這個(gè)表的原因是用戶在瀏覽論壇中的帖子時(shí)先應(yīng)看到的是主題列表，如果主題能夠吸引用戶，用戶才會去看其中的內(nèi)容，否則用戶一進(jìn)來就看到帖子內(nèi)容，會使用戶感覺非常的雜亂。 表 8 帖子功能模塊表 模塊 模塊包含的功能 帖子模塊 瀏覽帖子 發(fā)布 /修改 /刪除帖子 對帖子的特殊操作 帖子評價(jià) 帖子發(fā)布添加多媒體 論壇收藏 帖子搜索 帖子管理模塊 刪除帖子 移動帖子 管理員： 管理 員是對其他對象進(jìn)行操作，如表 9。 3 系 統(tǒng)設(shè)計(jì) 功能模塊 根據(jù)上一節(jié)給出論壇所必須的功能，劃分模塊。 圖 1 帖子對象的相關(guān) 關(guān)系 用戶有注冊、登錄 2個(gè)方法，管理用戶方法又分為刪除和設(shè)置權(quán)限 2個(gè)子方法，如圖。無關(guān)聯(lián)的用表示，如果兩者只要單向關(guān)聯(lián)，那么在另一個(gè)對象關(guān)聯(lián)時(shí)用√表示。我們盡管可以說哪一種技術(shù)是最流行的，但是很難說哪一種技術(shù)是最好的，每一種技術(shù)都在它最對口的應(yīng)用上。最初，論壇只是用于發(fā)布公共信息和討論問題的在線交流平臺；后來，隨著網(wǎng)絡(luò)的普及，論壇的功能也越來越豐富，不僅僅可以發(fā)表文字，更是可以使用多媒體，受到了廣大網(wǎng)民的歡迎。本文描述了電子論壇系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)。 本系統(tǒng)使用 ASP 進(jìn)行開發(fā)，數(shù)據(jù)庫采用 Microsoft SQL Server 2021。 國內(nèi)外研究現(xiàn)狀 BBS 起源于 20 世紀(jì)初。到了 21 世紀(jì)， Web 的開發(fā)者們迎來了幸福的生活， Microsoft， Sun 等公司相繼推出了強(qiáng)大，快捷的 ASP， PHP， JSP和 等開發(fā)技術(shù)，我們可以使用多種編程語言來進(jìn)行開發(fā)，大大提升了網(wǎng)站開發(fā)的效率，質(zhì)量。 論壇的對象不是孤立的，它們是緊密聯(lián)系的，下面是論壇各個(gè)對象之間的關(guān)聯(lián)表，關(guān)聯(lián)是單向的，是指左側(cè)對象對上方對象的活動。 帖子有瀏覽，發(fā)帖，回帖，搜索和管理 5個(gè)方法，瀏覽方法又分為列表和查看兩個(gè)子方法，管理方法分為編輯，刪除，置頂，移動，指定精華 5 個(gè)子方法，如圖。 表 4 擴(kuò)展功能表 序號 功能名稱 說明 1 用戶控制自己的信息 用戶不想讓其他用戶看到自己的信息，可以控制自己的信息是否公開 序號 功能名稱 說明 2 用戶登錄添加驗(yàn)證碼 防止暴力破解密碼，輸入用戶名或密碼錯誤會重新生成驗(yàn)證碼 3 站內(nèi)短信 方便用戶在站內(nèi)聯(lián)系 4 帖子評價(jià) 提高用戶參與論壇的積極性 5 帖子發(fā)布添加多媒體 吸引用戶，擴(kuò)展帖子發(fā)布功能 6 論壇收藏 保留用戶喜歡的內(nèi)容，方便用戶查看 7 帖子搜索 提供模糊搜索，方便用戶找到感興趣的主題 8 用戶等級 給用戶一個(gè)榮譽(yù)，提高用戶發(fā)帖的積極性 9 論壇情況顯示 把論壇的一些數(shù)據(jù)顯示給用戶，如發(fā)帖數(shù)，在線用戶人數(shù)等 10 數(shù)據(jù)備份 防止論壇出現(xiàn)故障，能夠正常運(yùn)行 11 非法言論過濾 對于一些非法言論可以在論壇中進(jìn)行默認(rèn)設(shè)置過濾 添加了這幾個(gè)擴(kuò)展功能后，論壇就顯得平易近人多了，也更具有使用性。 表 6 版面功能模塊表 模塊 模塊包含的功能 版面瀏覽模塊 瀏覽版面 版面管理模塊 版面管理 公共信息： 用戶瀏覽公共信息的功能劃分一個(gè)模塊，管理員對公共信息的操作劃分為一個(gè)模塊，其功能模塊列表如表 7 表 7 公共信息功能模塊表 模塊 模塊包含的功能 公共信息顯示模塊 瀏覽發(fā)布的公共信息 公共信息管理模塊 公共信息管理 帖子： 帖子包括用戶對帖子的操作和管理員對帖子的操作，相應(yīng)地分為帖子模 塊和帖子管理模塊，如表 8。 表 12 父版面信息表 (area_t) 序號 字段名 字段類型 說明 備注 1 areaid Int 父版面編號 主鍵 2 areaname Varchar(255) 父版面名 Not null 3 setuptime datetime 建立時(shí)間 Not null 表 13 子版面信息表 (board_t) 序號 字段名 字段類型 說明 備注 1 boardid Int 子版面編號 主鍵 2 boardname Varchar(50) 子版面名 Not null 3 areaid Int 父版面編號 Not null 序號 字段名 字段類型 說明 備注 4 readme Varchar(255) 版面說明 Not null 5 setuptime Datetime 建立日期 Not null 6 boardmaster Varchar(50) 版主 7 topiumber Int 主題數(shù)量 Not null 8 indexIMG Varchar(255) 版面圖片 Not null 表 12 和 13 是版面信息表，這里使用兩個(gè)表是為了編程方便 ,父版面和子版面是通過 areaid 字段關(guān)聯(lián)的。下面是 的程序。pwd=密碼 。 and userpassword=39。39。2。 圖 8用戶注冊各個(gè)頁面與數(shù)據(jù)庫的關(guān)系 下面是驗(yàn)證用戶注冊信息的程序： 1 % a=instr(request(userpassword),*) 2 b=instr(request(userpassword), ) 3 if username=or user=or userquestion=or useranswer=or user_t 新用戶注冊 修改信息 修改密碼 忘記密碼 寫入 寫入 讀取 寫入 讀取 讀取 userpassword=or userpassword1=then 4 (必填信息不能為空，請?zhí)钔辏?) 5 elseif userpassworduserpassword1 then 6 (兩次輸入密碼不一致，請重新輸入！ ) 7 elseif len(username)10 then 8 (你輸入的用戶名太長，請重新輸入 !) 9 elseif len(userpassword)6 or len(userpassword)18 then 10 (密碼不符合要求，請重新輸入 !) 11 elseif not isvalid(user) then 12 (電子郵件地址錯誤，請重新輸入 ) 13 elseif a0 or b0 then 14 (請不要將‘ *’和‘ ’等符號作為密碼！ ) 15 elseif useronly(username,user) then 16 (用戶名被占用！ ) 17 else 18 驗(yàn)證通過后將用戶信息寫入用戶信息表 user_t 19 end if % 程序說明：第 1～ 2行是取出密碼中“ *”和“ ”在字符串中的位置；第 11行調(diào)用了 isvalidmail 函數(shù)，該函數(shù)是驗(yàn)證電子郵件地址正確性；第 15 行調(diào)用了 useronly 函數(shù)，該函數(shù)是驗(yàn)證用戶名和電子郵件唯一性；下面給出驗(yàn)證電子郵件正確性的程序： 1 function isvalid() 2 dim names,named,I,c 3 isvalid=true 4 names=split(,””) 5 if ubound(names)1 then 6 isvalid=false 7 exit function 8 end if 9 for each named in names 10 if len(named)=0 then 11 isvalid=false 12 exit function 13 end if 14 for i=1 to len(named) 15 c=lcase(mid(named,I,1)) 16 if instr(“abcdefghijklmnopqrstuvwxyz_.”,c)=0 and not isnumericI then 17 isvalid=false 18 exit function 19 end if 20 next 21 if left(named,1)=”.” Or right(named,1)=”.” Then 22 isvalid=false 23 exit function 24 end if 25 next 26 if instr(names(1),”.”)=0 then 27 isvalid=false 28 exit function 29 end if 30 i=len(names(1))instrrev(names(1),”.”) 31 if i2 and i3 then 32 isvalid=false 33 exit function 34 end if 35 if instr(,”..”)0 then 36 isvalid=false 37 end if 38 end function 下面是驗(yàn)證用戶和電子郵件唯一性的程序： 1 function useronly(user,) 2 set rs = () 3 sql=select * from user_t where username=39。 4 sql,conn,3,3 5 if and then 6 useronly=false 7 else 8 useronly=true 9 end if 10 11 set rs=nothing 12 end function 它包括修改信息（ ）和修改密碼（ ）兩個(gè)頁面。39。 5 (exec) 6 7 set rsmessage=nothing 8 9 set conn=nothing 10 (?mid=amp。39。郵件文字的代碼為簡體中文 5 = text/html 39。userpwd 39。amp。 lastaccesstime) =empty 34 end if 35 next 36 if numapplication(totalusers) then 37 redim preserve tmp(num) 38 application(onlineuser) =tmp 39 application(totalusers)=num 40 end if 41 % 帖子模塊 發(fā)布 /刪除 /修改帖子模塊 網(wǎng)絡(luò)技術(shù)的發(fā)展日新月異，現(xiàn)在用戶發(fā)言時(shí)使用的格式也是豐富多彩。 name= amp。定位到第 1 個(gè)字符 9 dataend=InstrB(datastart,formdata,bncrlf)2 39。定位到第 1 個(gè)字符 17 dataend=InstrB(datastart,formdata,bncrlf amp。定位到最后 1 個(gè)字符 23 arrayTemp(4)=dataenddatastart+1 39。 strTemp) 5 Dim arrayTemp() 6 If intFlag0 Then 39。從當(dāng)前位置找 到兩個(gè)回車換行符，也就是文件內(nèi)容開頭的地方 12 dataStart=InstrB(intFlag,formdata,bncrlf amp。寫出文件內(nèi)容到對象中 25 Dim objStream2 26 Set objStream2=() 27 = 1 39。 \ amp。下面返回函數(shù)值， 0 表示找不到，發(fā)生錯誤 49 End If 50 End Function 2． 帖子內(nèi)容實(shí)現(xiàn)部分 要實(shí)現(xiàn)帖子內(nèi)容多樣化可以使用 UBB 碼。 帖子瀏覽模塊 帖子瀏覽模塊部分最重要的是對數(shù)據(jù)庫的操作，如帖子的分頁列表，首先來看帖子的分頁是如何實(shí)現(xiàn)的，下面是幾個(gè)和分頁瀏覽有關(guān)的屬性： 1. AbsolutePage: 當(dāng) Recordset 對象有設(shè)置分頁時(shí)， AbsolutePage 會返回目前的頁碼。帖子搜索本質(zhì)上是有條件的對數(shù)據(jù)表查找，所以要滿足以上條件的搜索應(yīng)該使用下面的 SQL 語句： 1 select * from topic_t where amp。boardidamp。