【正文】 3 5 if and then 6 useronly=false 7 else 8 useronly=true 9 end if 10 11 set rs=nothing 12 end function 它包括修改信息（ ）和修改密碼（ ）兩個頁面。 與其他用戶聯(lián)系 站內用戶通過短消息與其他用戶聯(lián)系，下面是用戶收 /發(fā)短消息的頁面： 圖 9 用戶收 /發(fā)短消息頁面 該功能包括了發(fā)短消息，發(fā)件箱和收件箱三部分，發(fā)短消息是向短消息表(message_t)添加記錄，發(fā)件箱和收件箱都是從 message_t 表讀取記錄。下面是標記短消息已讀的程序： 1 % 39。amp。39。 exec=update message_t set flag=39。 where mid=39。abcamp。 5 (exec) 6 7 set rsmessage=nothing 8 9 set conn=nothing 10 (?mid=amp。) % 下面是統(tǒng)計未讀消息數的程序： 1 % 39。039。amp。39。這就要用到用戶信息表 user_t里的 userquestion 和 useranswer 兩個字段。系統(tǒng)給出密碼問題和用戶給出密碼答案是對數據表 user_t 的讀 /寫操作，前面已經介紹過類似的程序，就不再討論，這里給出系統(tǒng)是如何將密碼發(fā)至用戶郵箱的程序： 1 % Set jmail = () 39。JMAIL 不會拋出例外錯誤，返回的值為 FALSE 跟 TRUE 3 = true 39。郵件文字的代碼為簡體中文 5 = text/html 39。發(fā)送郵件的服務器 7 username 39。郵件發(fā)送者的姓名 9 = 39。郵件的緊急程序， 1 為最快， 5 為最慢， 3 為默認值 11 = 找回你的密碼 39。userpwd 39。密件收件人的地址 14 admin39。執(zhí)行郵件發(fā)送 16 39。驗證碼的處理程序已經討論過，這里給出生成驗證碼的程序： 1 % Option Explicit 2 = True 3 = 1 4 Pragma,nocache 5 cachectrol,nocache 6 Dim RndNum,ImgFileContent 7 Randomize Timer 8 RndNum = Cint(7999*Rnd+1000) 9 Session() = Cstr(RndNum) 10 ImgFileContent=NumCode(RndNum) 11 = image/BMP 12 ImgFileContent 13 Function NumCode(NumS) 14 Dim NumI,NumJ 15 Dim AdoM,AdoN 16 Dim Arr_Img(4),NStr 17 NStr=Cstr(NumS) 18 For NumI=0 To 3 19 Arr_Img(NumI)=Cint(Mid(NStr,NumI+1,1)) 20 Next 21 Dim Position 22 Set AdoM=() 23 =3 24 =1 25 26 Set AdoN=() 27 =3 28 =1 29 30 (()) 31 (1280) 32 For NumI=0 To 3 33 =(9Arr_Img(NumI))*320 34 =NumI*320 35 (320) 36 Next 37 (()) 38 Position=Lenb(()) 39 =Position 40 For NumI=0 To 9 Step 1 41 For NumJ=0 To 3 42 =NumI*32+NumJ*320 43 =Position+30*NumJ+NumI*120 44 (30) 45 Next 46 Next 47 = 0 48 NumCode = () 49 :Set AdoM=Nothing 50 :Set AdoN=Nothing 51 End Function % 版面 /公共信息模塊 版面模塊 版面瀏覽指的是版面列表，下面是一個顯示版面的程序，用了一個循環(huán)的嵌套來顯示父版面和子版面，使用了表 area_t 和表 board_t。amp。39。 1 % 2 dim refreshtime,idletime,totalusers,onlineuser(),tmp(),num,i,id 3 refreshtime=30 4 idletime=refreshtime*3 5 () 6 if application(amp。 lastaccesstime) =timer 25 redim tmp(application(totalusers)) 26 num=0 27 for i=0 to application(totalusers)1 28 id=application(onlineuser)(i) 29 if (timerapplication(id 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ā)布 /刪除 /修改帖子模塊 網絡技術的發(fā)展日新月異，現(xiàn)在用戶發(fā)言時使用的格式也是豐富多彩。下面是一個帖子的發(fā)布頁面，如圖 10。并且將文件上傳到文件夾，將文件信息寫入文件信息數據表 file_t 中。同時表單提交的是二進制字符串，需要轉換為文本字符串才能在頁面上顯示。 name= amp。 。 bncrlf amp。 bncrlf amp。定位到第 1 個字符 9 dataend=InstrB(datastart,formdata,bncrlf)2 39。返回要取信息的長度 11 arrayTemp(0)=MidB(formdata,datastart,datalen) 39。轉換為文本字符串 13 arrayTemp(1)=Mid(arrayTemp(0),InstrRev(arrayTemp(0),\)+1) 39。下面獲取文件的 MIME 類型 15 temp=dataend 39。定位到第 1 個字符 17 dataend=InstrB(datastart,formdata,bncrlf amp。定位到最后 1 個字符 18 dataLen=dataenddatastart+1 39。返回 MIME 類型 20 arrayTemp(3)=BinaryToString(arrayTemp(3)) 39。下面獲取文件大小 22 datastart=dataend+5 39。定位到最后 1 個字符 23 arrayTemp(4)=dataenddatastart+1 39。下面返回函數值 29 GetFileInfo=arrayTemp 30 End Function 下面是將上傳文件保存到指定的文件夾中的函數： 1 Function SaveToFile(FormName,SaveFilePath,OverWriteFlag) 2 Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,filepath,filename 3 strTemp=StringToBinary(ContentDisposition: formdata。 FormName amp。 filename=) 4 intFlag=InstrB(formData,Divider amp。 strTemp) 5 Dim arrayTemp() 6 If intFlag0 Then 39。 bncrlf amp。定位到第 1 個字符 8 dataend=InstrB(datastart,formdata,bncrlf)2 39。返回要取信息的長度 10 filepath=BinaryToString(MidB(formdata,datastart,datalen)) 39。從當前位置找 到兩個回車換行符，也就是文件內容開頭的地方 12 dataStart=InstrB(intFlag,formdata,bncrlf amp。定位到文件內容所在第 1個字符 13 dataEnd=InstrB(datastart,formdata,divider)3 39。返回文件內容的長度 15 If dataLen=0 Then 16 SaveToFile=3 17 Exit Function 18 End If 19 39。 20 Dim objStream1 21 Set objStream1=() 22 = 1 39。寫出文件內容到對象中 25 Dim objStream2 26 Set objStream2=() 27 = 1 39。打開對象 29 =datastart1 定起始位置，這里索引從 0 開始，所以減 1 30 objStream2,dataLen 39。如果允許覆蓋，才覆蓋，否則給出提示信息，提示客戶更改名字 31 If OverWriteFlag=True Then 32 SaveFilePath amp。 filename,2 39。 \ amp。返回函數值， 2 表示已經存在同名文件 37 Exit Function 38 Else 39 SaveFilePath amp。 filename,1 39。關閉對象 42 43 Set objStream1=Nothing 44 45 Set objStream2=Nothing 46 SaveToFile=1 39。下面返回函數值， 0 表示找不到，發(fā)生錯誤 49 End If 50 End Function 2． 帖子內容實現(xiàn)部分 要實現(xiàn)帖子內容多樣化可以使用 UBB 碼。為了避免用戶無意或者有意使用 HTML 代碼對論壇進行攻擊。但是為了使得論壇更加“多姿多彩”，論壇也會相應地開放一些自定義的 TAG 標簽，類似于 HTML 中的 TAG?？梢允褂妹赓M的 UBB編輯器來自動生成 UBB 代碼。 帖子瀏覽模塊 帖子瀏覽模塊部分最重要的是對數據庫的操作，如帖子的分頁列表，首先來看帖子的分頁是如何實現(xiàn)的，下面是幾個和分頁瀏覽有關的屬性： 1. AbsolutePage: 當 Recordset 對象有設置分頁時， AbsolutePage 會返回目前的頁碼。 3. PageSize: 當 Recordset對象有設置分頁時， PageSize 為每頁的記錄條數。具體的程序和版面瀏覽模塊相似， 這里就不給出程序了。下面先來看下搜索條件。帖子搜索本質上是有條件的對數據表查找，所以要滿足以上條件的搜索應該使用下面的 SQL 語句： 1 select * from topic_t where amp。 like 39。keywordamp。 and boardid=39。boardidamp。 and DateAndTime 39。posttimeamp。 order by DateAndTime desc 其它功能 1. 帖子評價 對于未注冊的用戶如果想要吸引他們來到論壇，就需要給他們一個互動的權利，對于每個主題開啟一個評價好壞的功能，即使未注冊的用戶也可以使用。