【文章內(nèi)容簡(jiǎn)介】 ptime datetime 建立時(shí)間 Not null 表 13 子版面信息表 (board_t) 序號(hào) 字段名 字段類型 說明 備注 1 boardid Int 子版面編號(hào) 主鍵 2 boardname Varchar(50) 子版面名 Not null 3 areaid Int 父版面編號(hào) Not null 序號(hào) 字段名 字段類型 說明 備注 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)的。 表 14 主題信息表 (topic_t) 序號(hào) 字段名 字段類型 說明 備注 1 topicid Int 主題編號(hào) 主鍵 2 title Varchar(255) 主題 Not null 3 bordid Int 版面編號(hào) Not null 4 reply Int 主題回復(fù)數(shù) Not null 5 userid Int 用戶編號(hào) Not null 6 username Varchar(50) 用戶名 Not null 7 DateAndTime Datetime 發(fā)表日期 Not null 8 hits Int 點(diǎn)擊數(shù) Not null 9 istop Bit 是否置頂 Not null 10 isbest Bit 是否精華 Not null 11 fileid int 上傳文件編號(hào) Not null 表 15 帖子信息表 (post_t) 序號(hào) 字段名 字段類型 說明 備注 1 postid Int 帖子編號(hào) 主鍵 2 parentid Int 回復(fù)帖子編號(hào) Not null 3 boardid Int 版面編號(hào) Not null 4 username Varchar(50) 用戶名 Not null 5 userid Int 用戶編號(hào) Not null 6 topicid Int 主題編號(hào) Not null 7 title Varchar(255) 主題 Not null 8 DateAndTime Datetime 發(fā)表日期 Not null 9 body Text 帖子內(nèi)容 Not null 10 ip Varchar(40) 用戶 IP Not null 以上兩張表是緊密關(guān)聯(lián)的，論壇主題信息表記載了論壇中主題帖的信息，建立這個(gè)表的原因是用戶在瀏覽論壇中的帖子時(shí)先應(yīng)看到的是主題列表，如果主題能夠吸引用戶，用戶才會(huì)去看其中的內(nèi)容，否則用戶一進(jìn)來就看到帖子內(nèi)容，會(huì)使用戶感覺非常的雜亂。這兩個(gè)表是通過 topicid 字段聯(lián)系起來的 ,parentid 字段是用來針對(duì)特定的帖子回復(fù)。 接下來幾張表是論壇的其它功能需要的數(shù)據(jù)表。 表 16 短消息信息表 (message_t) 序號(hào) 字段名 字段類型 說明 備注 1 mid Int 短消息編號(hào) 主鍵 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ā)消息時(shí)間 Not null 7 flag bit 是否已讀 Not null 表 17 用戶等級(jí)信息表 (grade_t) 序號(hào) 字段名 字段類型 說明 備注 1 gradeid Int 自動(dòng)編號(hào) 主鍵 2 userid Int 用戶編號(hào) Not null 3 postid Int 帖子編號(hào) Not null 4 grade Varchar(255) 等級(jí) Not null 5 point Int 積分 Not null 6 ip Varchar(40) IP Not null 表 18 文件上傳信息表 (file_t) 序號(hào) 字段名 字段類型 說明 備注 1 fileid Int 文件編號(hào) 主鍵 2 fname Varchar(100) 文件名 Not null 3 userid Int 用戶編號(hào) Not null 4 ename Varchar(50) 文件擴(kuò)展名 Not null 5 ftype Varchar(255) 文件類型 Not null 6 fsize Varchar(255) 文件大小 Not null 表 19 好友信息表 (friend_t) 序號(hào) 字段名 字段類型 說明 備注 1 Fid Int 自動(dòng)編號(hào) 主鍵 2 Userid Int 用戶編號(hào) Not null 3 username Varchar(50) 用戶名 Not null 4 friendid Int 好友編號(hào) Not null 5 frinedname Varchar(50) 好友名 Not null 6 addtime datetime 添加時(shí)間 Not null 表 20 管理員信息表 (admin_t) 序號(hào) 字段名 字段類型 說明 備注 1 masterid Int 自動(dòng)編號(hào) 主鍵 2 userid Int 用戶編號(hào) Not null 3 username Varchar(50) 用戶名 Not null 4 boardid Int 版 面編號(hào) Not null 5 flag bit 權(quán)限標(biāo)識(shí) Not null 4 系統(tǒng)實(shí)現(xiàn) 首頁 當(dāng)用戶打開論壇時(shí)，首先看到的是論壇首頁，用戶從首頁可以看到和論壇相關(guān)的并且能激起用戶興趣的東西。比如發(fā)帖數(shù)，在線用戶數(shù)以及論壇板塊的情況，如圖 6所示。 圖 6論壇首頁 首頁分為 3個(gè)部分，最上面的導(dǎo)航條為一部分，中間的公共信息為一部分，下面的版面為一部分。將導(dǎo)航條部分單獨(dú)寫入文件 作為公共程序，以后任何一個(gè)頁面需要就使用 ! include file= 來調(diào)用。下面是 的程序。 1 % If Session(userid) = Then % 這里顯示的是游客的導(dǎo)航條 2 % Else % 這里顯示的注冊(cè)用戶的導(dǎo)航條 3 % End If % 程序說明：用戶登錄后將用戶名存入 session 對(duì)象來判斷用戶狀態(tài)。 公共信息部分是顯示了論壇和當(dāng)前用戶的狀態(tài)，該部分的詳細(xì)內(nèi)容將在后面的公共信息部分討論。 版面部分顯示了版面的列表，該部分的詳細(xì)內(nèi)容將在后面的版面部分討論。 至此，首頁的主要程序已經(jīng)介紹了，以后章節(jié)是各個(gè)模塊的主要程序。 數(shù)據(jù)庫連接函數(shù) SQL Server 數(shù)據(jù)連接要求提供用戶名，密碼，數(shù)據(jù)庫名及數(shù)據(jù)庫服務(wù)器地址，下面是使用 ADO 連接數(shù)據(jù)庫的代碼： 1 % dim conn’ 打開數(shù)據(jù)庫連接 2 set conn = () 3 = dirver ={sql server}。server=(服務(wù)器地址 )。uid=用戶名 。pwd=密碼 。database=數(shù)據(jù)庫名 。 % 4 % ’ 關(guān)閉數(shù)據(jù)庫連接 5 Set conn=nothing % 用戶模塊 用戶登錄 下面是一個(gè)用戶登錄的界面，如圖 7。 圖 7 用戶登錄界面 下面是對(duì)用戶登錄頁面的表單處理程序 1 % 39。驗(yàn)證碼處理 2 If trim((validatecode))=empty or Trim(Session())Trim((validatecode)) Then 3 (請(qǐng)注意正確輸入驗(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。amp。session(user)amp。39。 and userpassword=39。amp。session(pwd)amp。39。 13 sql,conn,3,3 14 if and then 39。判斷用戶是否存在 15 () 16 else 17 session(userid)=rs(userid) 18 sql1=update user_t set userhidden=39。amp。ishiddenamp。39。 where userid=39。amp。session(userid)amp。39。39。用戶是否隱身 19 (sql1) 20 select case request(usercookie)39。把用戶信息寫入 Cookie 21 case 1 22 (user)(username)=user 23 (user)(userpassword)=pwd 24 (user).expires=date()+1 25 case 2 26 (user)(username)=user 27 (user)(userpassword)=pwd 28 (user).expires=date()+7 29 case 3 30 (user)(username)=user 31 (user)(userpassword)=pwd 32 (user).expires=date()+365 33 end select 34 session(name)=(username) 35 (meta equiv=refresh content=39。2。url=39。) 36 (session(name)) 37 (！歡迎你回來！ ) 38 (兩秒鐘后自動(dòng)轉(zhuǎn)入首頁 ) 39 end if 40 41 set rs=nothing % 程序說明：第 1～ 5 行是對(duì)驗(yàn)證碼的處理；第 6～ 10 行是將從表單獲取的數(shù)據(jù)存入變量；第 11～ 14 行是依據(jù)輸入的用戶名和密碼為條件對(duì)用戶信息表user_t 進(jìn)行查找，如果沒有查找到記錄說明該用戶輸入的用戶名或密碼錯(cuò)誤；第 15 行轉(zhuǎn)到錯(cuò)誤處理頁面；第 18～ 19 行是將用戶是否隱身登錄標(biāo)記，即是對(duì)用戶信息表中的 userhidden 字段標(biāo)記；第 20～ 33行是將用戶信息寫入 Cookie。 用戶注冊(cè) 用戶注冊(cè)，首先要檢查的就是用戶填寫的信息，其中包括： 1. 字段是否空白，若空白則不接受。 2. 輸入的 Email 是否正確，若 Email 中沒有 @， @符號(hào)位于 Email 的第 一個(gè)字符或者 @位于 Email 的最后一個(gè)字符都算錯(cuò)誤。 3. 兩次輸入的密碼是否一致。 4. 用戶名是否被使用。 5. 電子郵件是否被使用。 圖 8用戶注冊(cè)各個(gè)頁面與數(shù)據(jù)庫的關(guān)系 下面是驗(yàn)證用戶注冊(cè)信息的程序： 1 % a=instr(request(userpassword),*) 2 b=instr(request(userpassword), ) 3 if username=or user=or userquestion=or useranswer=or user_t 新用戶注冊(cè) 修改信息 修改密碼 忘記密碼 寫入 寫入 讀取 寫入 讀取 讀取 userpassword=or userpassword1=then 4 (必填信息不能為空，請(qǐng)?zhí)钔辏?) 5 elseif userpassworduserpassword1 then 6 (兩次輸入密碼不一致，請(qǐng)重新輸入！ ) 7 elseif len(username)10 then 8 (你輸入的用戶名太長(zhǎng)，請(qǐng)重新輸入 !) 9 elseif len(userpassword)6 or len(userpassword)18 then 10 (密碼不符合要求，請(qǐng)重新輸入 !) 11 elseif not isvalid(user) then 12 (電子郵件地址錯(cuò)誤，請(qǐng)重新輸入 ) 13 elseif a0 or b0 then 14 (請(qǐng)不要將‘ *’和‘ ’等符號(hào)作為密碼！ ) 15 elseif useronly(username,user) then 16 (用戶名被占用！ ) 17 else 18 驗(yàn)證通過后將用戶信息寫入用戶信息表 user_t 19 end if % 程序說明：第 1～ 2行是取出密碼中“ *”和“ ”在字符串中的位置；第 11