【正文】 模塊 模塊包含的功能 管理員管理模塊 用戶管理 版面管理 帖子管理 數(shù)據(jù)備份 另外，對于用戶使用的模塊稱為前臺模塊，管理員使用的模塊稱為后臺模塊。 論 壇 系 統(tǒng)用戶模塊公共信息模塊版面瀏覽模塊帖子模塊用戶管理模塊版面管理模塊公共信息管理模塊帖子管理模塊管理員管理模塊前 臺 模 塊 后 臺 模 塊 圖 4 系統(tǒng)總體功能 劃分 數(shù)據(jù)庫設(shè)計 本論壇使用 Microsoft SQL Server 2021 數(shù)據(jù)庫，下面列出是數(shù)據(jù)庫設(shè)計的詳細(xì)。 表 10 論壇數(shù)據(jù)表 序號 表名 說明 1 user_t 用戶信息表 2 topic_t 主題信息表 3 superAdmin_t 論壇管理員表 4 post_t 帖子信息表 5 message_t 短消息信息表 6 grade_t 用 戶積分等級表 7 friend_t 用戶好友表 8 file_t 文件上傳表 9 board_t 子版面信息表 10 area_t 父版面信息表 11 admin_t 版主信息表 下面是數(shù)據(jù)表之間的關(guān)系圖，如圖 5。 表 12 父版面信息表 (area_t) 序號 字段名 字段類型 說明 備注 1 areaid Int 父版面編號 主鍵 2 areaname Varchar(255) 父版面名 Not null 3 setuptime datetime 建立時間 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 是版面信息表，這里使用兩個表是為了編程方便 ,父版面和子版面是通過 areaid 字段關(guān)聯(lián)的。這兩個表是通過 topicid 字段聯(lián)系起來的 ,parentid 字段是用來針對特定的帖子回復(fù)。 表 16 短消息信息表 (message_t) 序號 字段名 字段類型 說明 備注 1 mid Int 短消息編號 主鍵 2 sender Varchar(50) 發(fā)送者 Not null 3 incept Varchar(50) 接受者 Not null 4 title Varchar(255) 主題 Not null 5 content Varchar(255) 內(nèi)容 Not null 6 sendtime Datetime 發(fā)消息時間 Not null 7 flag bit 是否已讀 Not null 表 17 用戶等級信息表 (grade_t) 序號 字段名 字段類型 說明 備注 1 gradeid Int 自動編號 主鍵 2 userid Int 用戶編號 Not null 3 postid Int 帖子編號 Not null 4 grade Varchar(255) 等級 Not null 5 point Int 積分 Not null 6 ip Varchar(40) IP Not null 表 18 文件上傳信息表 (file_t) 序號 字段名 字段類型 說明 備注 1 fileid Int 文件編號 主鍵 2 fname Varchar(100) 文件名 Not null 3 userid Int 用戶編號 Not null 4 ename Varchar(50) 文件擴(kuò)展名 Not null 5 ftype Varchar(255) 文件類型 Not null 6 fsize Varchar(255) 文件大小 Not null 表 19 好友信息表 (friend_t) 序號 字段名 字段類型 說明 備注 1 Fid Int 自動編號 主鍵 2 Userid Int 用戶編號 Not null 3 username Varchar(50) 用戶名 Not null 4 friendid Int 好友編號 Not null 5 frinedname Varchar(50) 好友名 Not null 6 addtime datetime 添加時間 Not null 表 20 管理員信息表 (admin_t) 序號 字段名 字段類型 說明 備注 1 masterid Int 自動編號 主鍵 2 userid Int 用戶編號 Not null 3 username Varchar(50) 用戶名 Not null 4 boardid Int 版 面編號 Not null 5 flag bit 權(quán)限標(biāo)識 Not null 4 系統(tǒng)實(shí)現(xiàn) 首頁 當(dāng)用戶打開論壇時，首先看到的是論壇首頁，用戶從首頁可以看到和論壇相關(guān)的并且能激起用戶興趣的東西。 圖 6論壇首頁 首頁分為 3個部分，最上面的導(dǎo)航條為一部分，中間的公共信息為一部分，下面的版面為一部分。下面是 的程序。 公共信息部分是顯示了論壇和當(dāng)前用戶的狀態(tài)，該部分的詳細(xì)內(nèi)容將在后面的公共信息部分討論。 至此，首頁的主要程序已經(jīng)介紹了，以后章節(jié)是各個模塊的主要程序。server=(服務(wù)器地址 )。pwd=密碼 。 % 4 % ’ 關(guān)閉數(shù)據(jù)庫連接 5 Set conn=nothing % 用戶模塊 用戶登錄 下面是一個用戶登錄的界面，如圖 7。驗(yàn)證碼處理 2 If trim((validatecode))=empty or Trim(Session())Trim((validatecode)) Then 3 (請注意正確輸入驗(yàn)證碼 ) 4 5 end if 6 session(user)=(username) 7 user=(username) 8 session(pwd)=(userpwd) 9 pwd=(userpwd) 10 ishidden=(hidden) 11 set rs = () 12 sql=select * from user_t where username=39。session(user)amp。 and userpassword=39。session(pwd)amp。 13 sql,conn,3,3 14 if and then 39。amp。39。amp。39。用戶是否隱身 19 (sql1) 20 select case request(usercookie)39。2。) 36 (session(name)) 37 (！歡迎你回來！ ) 38 (兩秒鐘后自動轉(zhuǎn)入首頁 ) 39 end if 40 41 set rs=nothing % 程序說明：第 1～ 5 行是對驗(yàn)證碼的處理；第 6～ 10 行是將從表單獲取的數(shù)據(jù)存入變量；第 11～ 14 行是依據(jù)輸入的用戶名和密碼為條件對用戶信息表user_t 進(jìn)行查找，如果沒有查找到記錄說明該用戶輸入的用戶名或密碼錯誤；第 15 行轉(zhuǎn)到錯誤處理頁面；第 18～ 19 行是將用戶是否隱身登錄標(biāo)記，即是對用戶信息表中的 userhidden 字段標(biāo)記；第 20～ 33行是將用戶信息寫入 Cookie。 2. 輸入的 Email 是否正確，若 Email 中沒有 ， 符號位于 Email 的第 一個字符或者 位于 Email 的最后一個字符都算錯誤。 4. 用戶名是否被使用。 圖 8用戶注冊各個頁面與數(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。useramp。 or user=39。amp。 4 sql,conn,3,