【正文】 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)實現(xiàn) 首頁 當(dāng)用戶打開論壇時，首先看到的是論壇首頁，用戶從首頁可以看到和論壇相關(guān)的并且能激起用戶興趣的東西。下面是 的程序。 至此，首頁的主要程序已經(jīng)介紹了，以后章節(jié)是各個模塊的主要程序。pwd=密碼 。驗證碼處理 2 If trim((validatecode))=empty or Trim(Session())Trim((validatecode)) Then 3 (請注意正確輸入驗證碼 ) 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。 and userpassword=39。 13 sql,conn,3,3 14 if and then 39。39。39。2。 2. 輸入的 Email 是否正確，若 Email 中沒有 ， 符號位于 Email 的第 一個字符或者 位于 Email 的最后一個字符都算錯誤。 圖 8用戶注冊各個頁面與數(shù)據(jù)庫的關(guā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 驗證通過后將用戶信息寫入用戶信息表 user_t 19 end if % 程序說明：第 1～ 2行是取出密碼中“ *”和“ ”在字符串中的位置；第 11行調(diào)用了 isvalidmail 函數(shù)，該函數(shù)是驗證電子郵件地址正確性；第 15 行調(diào)用了 useronly 函數(shù)，該函數(shù)是驗證用戶名和電子郵件唯一性；下面給出驗證電子郵件正確性的程序： 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 下面是驗證用戶和電子郵件唯一性的程序： 1 function useronly(user,) 2 set rs = () 3 sql=select * from user_t where username=39。 or user=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 它包括修改信息（ ）和修改密碼（ ）兩個頁面。下面是標(biāo)記短消息已讀的程序： 1 % 39。39。 where mid=39。 5 (exec) 6 7 set rsmessage=nothing 8 9 set conn=nothing 10 (?mid=amp。039。39。系統(tǒng)給出密碼問題和用戶給出密碼答案是對數(shù)據(jù)表 user_t 的讀 /寫操作，前面已經(jīng)介紹過類似的程序，就不再討論，這里給出系統(tǒng)是如何將密碼發(fā)至用戶郵箱的程序： 1 % Set jmail = () 39。郵件文字的代碼為簡體中文 5 = text/html 39。郵件發(fā)送者的姓名 9 = 39。userpwd 39。執(zhí)行郵件發(fā)送 16 39。amp。 1 % 2 dim refreshtime,idletime,totalusers,onlineuser(),tmp(),num,i,id 3 refreshtime=30 4 idletime=refreshtime*3 5 () 6 if application(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ù)據(jù)表 file_t 中。 name= amp。 bncrlf amp。定位到第 1 個字符 9 dataend=InstrB(datastart,formdata,bncrlf)2 39。轉(zhuǎn)換為文本字符串 13 arrayTemp(1)=Mid(arrayTemp(0),InstrRev(arrayTemp(0),\)+1) 39。定位到第 1 個字符 17 dataend=InstrB(datastart,formdata,bncrlf amp。返回 MIME 類型 20 arrayTemp(3)=BinaryToString(arrayTemp(3)) 39。定位到最后 1 個字符 23 arrayTemp(4)=dataenddatastart+1 39。 FormName amp。 strTemp) 5 Dim arrayTemp() 6 If intFlag0 Then 39。定位到第 1 個字符 8 dataend=InstrB(datastart,formdata,bncrlf)2 39。從當(dāng)前位置找 到兩個回車換行符，也就是文件內(nèi)容開頭的地方 12 dataStart=InstrB(intFlag,formdata,bncrlf amp。返回文件內(nèi)容的長度 15 If dataLen=0 Then 16 SaveToFile=3 17 Exit Function 18 End If 19 39。寫出文件內(nèi)容到對象中 25 Dim objStream2 26 Set objStream2=() 27 = 1 39。如果允許覆蓋，才覆蓋，否則給出提示信息，提示客戶更改名字 31 If OverWriteFlag=True Then 32 SaveFilePath amp。 \ amp。 filename,1 39。下面返回函數(shù)值， 0 表示找不到，發(fā)生錯誤 49 End If 50 End Function 2． 帖子內(nèi)容實現(xiàn)部分 要實現(xiàn)帖子內(nèi)容多樣化可以使用 UBB 碼。但是為了使得論壇更加“多姿多彩”，論壇也會相應(yīng)地開放一些自定義的 TAG 標(biāo)簽，類似于 HTML 中的 TAG。 帖子瀏覽模塊 帖子瀏覽模塊部分最重要的是對數(shù)據(jù)庫的操作，如帖子的分頁列表，首先來看帖子的分頁是如何實現(xiàn)的，下面是幾個和分頁瀏覽有關(guān)的屬性： 1. AbsolutePage: 當(dāng) Recordset 對象有設(shè)置分頁時， AbsolutePage 會返回目前的頁碼。具體的程序和版面瀏覽模塊相似， 這里就不給出程序了。帖子搜索本質(zhì)上是有條件的對數(shù)據(jù)表查找，所以要滿足以上條件的搜索應(yīng)該使用下面的 SQL 語句： 1 select * from topic_t where amp。keywordamp。boardidamp。posttimeamp。