【正文】 boardidamp。 帖子瀏覽模塊 帖子瀏覽模塊部分最重要的是對數(shù)據(jù)庫的操作，如帖子的分頁列表，首先來看帖子的分頁是如何實(shí)現(xiàn)的，下面是幾個和分頁瀏覽有關(guān)的屬性： 1. AbsolutePage: 當(dāng) Recordset 對象有設(shè)置分頁時， AbsolutePage 會返回目前的頁碼。 \ amp。從當(dāng)前位置找 到兩個回車換行符，也就是文件內(nèi)容開頭的地方 12 dataStart=InstrB(intFlag,formdata,bncrlf amp。定位到最后 1 個字符 23 arrayTemp(4)=dataenddatastart+1 39。定位到第 1 個字符 9 dataend=InstrB(datastart,formdata,bncrlf)2 39。 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ā)言時使用的格式也是豐富多彩。userpwd 39。39。39。 圖 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。39。pwd=密碼 。 表 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)的。 表 4 擴(kuò)展功能表 序號 功能名稱 說明 1 用戶控制自己的信息 用戶不想讓其他用戶看到自己的信息，可以控制自己的信息是否公開 序號 功能名稱 說明 2 用戶登錄添加驗(yàn)證碼 防止暴力破解密碼，輸入用戶名或密碼錯誤會重新生成驗(yàn)證碼 3 站內(nèi)短信 方便用戶在站內(nèi)聯(lián)系 4 帖子評價 提高用戶參與論壇的積極性 5 帖子發(fā)布添加多媒體 吸引用戶，擴(kuò)展帖子發(fā)布功能 6 論壇收藏 保留用戶喜歡的內(nèi)容，方便用戶查看 7 帖子搜索 提供模糊搜索，方便用戶找到感興趣的主題 8 用戶等級 給用戶一個榮譽(yù)，提高用戶發(fā)帖的積極性 9 論壇情況顯示 把論壇的一些數(shù)據(jù)顯示給用戶，如發(fā)帖數(shù)，在線用戶人數(shù)等 10 數(shù)據(jù)備份 防止論壇出現(xiàn)故障，能夠正常運(yùn)行 11 非法言論過濾 對于一些非法言論可以在論壇中進(jìn)行默認(rèn)設(shè)置過濾 添加了這幾個擴(kuò)展功能后，論壇就顯得平易近人多了，也更具有使用性。 論壇的對象不是孤立的，它們是緊密聯(lián)系的，下面是論壇各個對象之間的關(guān)聯(lián)表，關(guān)聯(lián)是單向的，是指左側(cè)對象對上方對象的活動。 國內(nèi)外研究現(xiàn)狀 BBS 起源于 20 世紀(jì)初。本文描述了電子論壇系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)。我們盡管可以說哪一種技術(shù)是最流行的，但是很難說哪一種技術(shù)是最好的，每一種技術(shù)都在它最對口的應(yīng)用上。 圖 1 帖子對象的相關(guān) 關(guān)系 用戶有注冊、登錄 2個方法，管理用戶方法又分為刪除和設(shè)置權(quán)限 2個子方法，如圖。 表 8 帖子功能模塊表 模塊 模塊包含的功能 帖子模塊 瀏覽帖子 發(fā)布 /修改 /刪除帖子 對帖子的特殊操作 帖子評價 帖子發(fā)布添加多媒體 論壇收藏 帖子搜索 帖子管理模塊 刪除帖子 移動帖子 管理員： 管理 員是對其他對象進(jìn)行操作，如表 9。 1 % If Session(userid) = Then % 這里顯示的是游客的導(dǎo)航條 2 % Else % 這里顯示的注冊用戶的導(dǎo)航條 3 % End If % 程序說明：用戶登錄后將用戶名存入 session 對象來判斷用戶狀態(tài)。amp。url=39。兩個頁面都是更新用戶信息表 user_t 里的特定字段，這里就不再列出具體程序。abcamp。郵件的格式為 HTML 的 6 = 39。rs(areaid)amp。 FormName amp。 bncrlf)1 39。因?yàn)楹竺嬉玫轿募拿?，所以首先返回文件的名? 7 dataStart=intFlag+LenB(Divider amp。設(shè)置二進(jìn)制方式 28 39。 UBB 碼上 HTML 的一個變種，是Ultimate Bulletin Board 采用的一種特殊的 TAG。kindamp。同時，增加注冊用戶發(fā)帖的積極性，使他們獲得更多的積分和相應(yīng)的等級。 圖 11 帖子搜索頁面 從上圖可以看出帖子的搜索條件：首先要選擇版面，搜索方式分為標(biāo)題和作者，搜索時間是附加搜索條件。下面返回函數(shù)值， 1 表示正常 47 Else 48 SaveToFile=0 39。設(shè)置二進(jìn)制方式 23 對象 24 formdata 39。 bncrlf amp。記住當(dāng)前位置 16 datastart=temp+18 39。下面是 獲取 上傳 文件信息 的函數(shù)： 1 Function GetFileInfo(FormName) 2 Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag 3 strTemp=StringToBinary(ContentDisposition: formdata。 1 % set rs = () 2 select * from area_t order by areaid,conn 3 Do While Not ’ 創(chuàng)建一個對象實(shí)例，打開表 area_t 4 (rs(areaname))’ 顯示父版面名 5 set rj = () 6 select * from board_t where areaid=39。啟用使用日志 4 = GB2312 39。39。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。39。將導(dǎo)航條部分單獨(dú)寫入文件 作為公共程序，以后任何一個頁面需要就使用 ! inc