freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

畢業(yè)設(shè)計(jì)-電子論壇系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—論文-資料下載頁(yè)

2024-12-01 17:54本頁(yè)面

【導(dǎo)讀】電子論壇即BBS已經(jīng)是互聯(lián)網(wǎng)上的一種極為常見的互動(dòng)交流服務(wù)。以為網(wǎng)友提供開放性的分類討論區(qū)專題服務(wù),網(wǎng)友們可以在此發(fā)表自己的觀感,交流某些技術(shù),經(jīng)驗(yàn)等。在此回答用戶提出的問(wèn)題或發(fā)布某些消息。統(tǒng)工作流程圖,設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫(kù),對(duì)數(shù)據(jù)庫(kù)結(jié)構(gòu)進(jìn)行了詳細(xì)分析。統(tǒng)功能模塊,最后詳細(xì)描述了各個(gè)功能模塊實(shí)現(xiàn)的方法,并給出相應(yīng)代碼。

  

【正文】 num)=id 15 num=num+1 16 end if 17 next 18 end if 19 tmp(num)= 20 application(totalusers)=num+1 21 redim preserve tmp(application(totalusers)) 22 application(onlineuser)=tmp 23 end if 24 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))idletime then 30 tmp(num)=id 31 num=num+1 32 else 33 application(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ā)布 /刪除 /修改帖子模塊 網(wǎng)絡(luò)技術(shù)的發(fā)展日新月異,現(xiàn)在用戶發(fā)言時(shí)使用的格式也是豐富多彩。例如:用戶可以上傳文件,可以粘貼多媒體等。下面是一個(gè)帖子的發(fā)布頁(yè)面,如圖 10。 圖 10 帖子發(fā)布頁(yè)面 1.文件長(zhǎng)傳部分 文件上傳可以分為組件上傳和無(wú)組件 上傳,本論壇使用的是無(wú)組件上傳,它的好處是不受系統(tǒng)環(huán)境的影響。并且將文件上傳到文件夾,將文件信息寫入文件信息數(shù)據(jù)表 file_t 中。首先分析上傳數(shù)據(jù)格式,在 from標(biāo)簽中增加enctype=multipart/fromdata屬性后,上傳的數(shù)據(jù)是一個(gè)長(zhǎng)長(zhǎng)的二進(jìn)制字符串,其中包含了文件瀏覽框的名字,文件的客戶端路徑,文件的 MIME 類型,文件內(nèi)容,文本框的名稱,文本框的值等信息。同時(shí)表單提交的是二進(jìn)制字符串,需要轉(zhuǎn)換為文本字符串才能在頁(yè)面上顯示。下面是 獲取 上傳 文件信息 的函數(shù): 1 Function GetFileInfo(FormName) 2 Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag 3 strTemp=StringToBinary(ContentDisposition: formdata。 name= amp。 FormName amp。 。 filename=) 4 intFlag=InstrB(formData,Divider amp。 bncrlf amp。 strTemp) 5 Dim arrayTemp() 6 If intFlag0 Then 7 Redim arrayTemp(4) 8 dataStart=intFlag+LenB(Divider amp。 bncrlf amp。 strTemp) 39。定位到第 1 個(gè)字符 9 dataend=InstrB(datastart,formdata,bncrlf)2 39。定位到最后 1 個(gè)字符 10 dataLen=dataenddatastart+1 39。返回要取信息的長(zhǎng)度 11 arrayTemp(0)=MidB(formdata,datastart,datalen) 39。返回文件路徑 12 arrayTemp(0)=BinaryToString(arrayTemp(0)) 39。轉(zhuǎn)換為文本字符串 13 arrayTemp(1)=Mid(arrayTemp(0),InstrRev(arrayTemp(0),\)+1) 39。返回文件的擴(kuò)展名,其實(shí)只要從文件名稱中分析出文件擴(kuò)展名即可 14 arrayTemp(2)=Mid(arrayTemp(1),InstrRev(arrayTemp(1),.)+1) 39。下面獲取文件的 MIME 類型 15 temp=dataend 39。記住當(dāng)前位置 16 datastart=temp+18 39。定位到第 1 個(gè)字符 17 dataend=InstrB(datastart,formdata,bncrlf amp。 bncrlf)1 39。定位到最后 1 個(gè)字符 18 dataLen=dataenddatastart+1 39。返回要取信息的長(zhǎng)度 19 arrayTemp(3)=MidB(formdata,datastart,datalen) 39。返回 MIME 類型 20 arrayTemp(3)=BinaryToString(arrayTemp(3)) 39。轉(zhuǎn)換為文本字符串 21 temp=dataend 39。下面獲取文件大小 22 datastart=dataend+5 39。定位到第 1 個(gè)字符 23 dataend=InstrB(datastart,formdata,divider)3 39。定位到最后 1 個(gè)字符 23 arrayTemp(4)=dataenddatastart+1 39。返回文件大小 25 Else 26 Redim arrayTemp(0) 27 arrayTemp(0)=0 28 End If 39。下面返回函數(shù)值 29 GetFileInfo=arrayTemp 30 End Function 下面是將上傳文件保存到指定的文件夾中的函數(shù): 1 Function SaveToFile(FormName,SaveFilePath,OverWriteFlag) 2 Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,filepath,filename 3 strTemp=StringToBinary(ContentDisposition: formdata。 name= amp。 FormName amp。 。 filename=) 4 intFlag=InstrB(formData,Divider amp。 bncrlf amp。 strTemp) 5 Dim arrayTemp() 6 If intFlag0 Then 39。因?yàn)楹竺嬉玫轿募拿郑允紫确祷匚募拿? 7 dataStart=intFlag+LenB(Divider amp。 bncrlf amp。 strTemp) 39。定位到第 1 個(gè)字符 8 dataend=InstrB(datastart,formdata,bncrlf)2 39。定位到最后 1 個(gè)字符 9 dataLen=dataenddatastart+1 39。返回要取信息的長(zhǎng)度 10 filepath=BinaryToString(MidB(formdata,datastart,datalen)) 39。返回文件路徑 11 filename=Mid(filepath,InstrRev(filepath,\)+1) 39。從當(dāng)前位置找 到兩個(gè)回車換行符,也就是文件內(nèi)容開頭的地方 12 dataStart=InstrB(intFlag,formdata,bncrlf amp。 bncrlf)+439。定位到文件內(nèi)容所在第 1個(gè)字符 13 dataEnd=InstrB(datastart,formdata,divider)3 39。定位到文件內(nèi)容的最后一個(gè)字符 14 dataLen=dataenddatastart+1 39。返回文件內(nèi)容的長(zhǎng)度 15 If dataLen=0 Then 16 SaveToFile=3 17 Exit Function 18 End If 19 39。objStream2 對(duì)象中,然后再利用 SaveToFile 方法保存到指定文件夾下。 20 Dim objStream1 21 Set objStream1=() 22 = 1 39。設(shè)置二進(jìn)制方式 23 對(duì)象 24 formdata 39。寫出文件內(nèi)容到對(duì)象中 25 Dim objStream2 26 Set objStream2=() 27 = 1 39。設(shè)置二進(jìn)制方式 28 39。打開對(duì)象 29 =datastart1 定起始位置,這里索引從 0 開始,所以減 1 30 objStream2,dataLen 39。寫出文件內(nèi)容到對(duì)象中 39。如果允許覆蓋,才覆蓋,否則給出提示信息,提示客戶更改名字 31 If OverWriteFlag=True Then 32 SaveFilePath amp。 \ amp。 filename,2 39。保存文件 ,2 表示可以覆蓋 33 Else 34 Set fso=() 35 IF (SaveFilePath amp。 \ amp。 filename)=True Then 36 SaveToFile=2 39。返回函數(shù)值, 2 表示已經(jīng)存在同名文件 37 Exit Function 38 Else 39 SaveFilePath amp。 \ amp。 filename,1 39。1 表示不可以覆蓋 40 End If 41 End IF 39。關(guān)閉對(duì)象 42 43 Set objStream1=Nothing 44 45 Set objStream2=Nothing 46 SaveToFile=1 39。下面返回函數(shù)值, 1 表示正常 47 Else 48 SaveToFile=0 39。下面返回函數(shù)值, 0 表示找不到,發(fā)生錯(cuò)誤 49 End If 50 End Function 2. 帖子內(nèi)容實(shí)現(xiàn)部分 要實(shí)現(xiàn)帖子內(nèi)容多樣化可以使用 UBB 碼。 UBB 碼上 HTML 的一個(gè)變種,是Ultimate Bulletin Board 采用的一種特殊的 TAG。為了避免用戶無(wú)意或者有意使用 HTML 代碼對(duì)論壇進(jìn)行攻擊。各種論壇基本上都屏蔽了 HTML 代碼。但是為了使得論壇更加“多姿多彩”,論壇也會(huì)相應(yīng)地開放一些自定義的 TAG 標(biāo)簽,類似于 HTML 中的 TAG。這種自定義的 TAG 就是俗稱的 UBB 代碼。可以使用免費(fèi)的 UBB編輯器來(lái)自動(dòng)生成 UBB 代碼。 修改和發(fā)布帖子差不多,而刪除相對(duì)簡(jiǎn)單,這里就不在討論了。 帖子瀏覽模塊 帖子瀏覽模塊部分最重要的是對(duì)數(shù)據(jù)庫(kù)的操作,如帖子的分頁(yè)列表,首先來(lái)看帖子的分頁(yè)是如何實(shí)現(xiàn)的,下面是幾個(gè)和分頁(yè)瀏覽有關(guān)的屬性: 1. AbsolutePage: 當(dāng) Recordset 對(duì)象有設(shè)置分頁(yè)時(shí), AbsolutePage 會(huì)返回目前的頁(yè)碼。 2. PageCount: 返回 Recordset 對(duì)象的分頁(yè)總數(shù)。 3. PageSize: 當(dāng) Recordset對(duì)象有設(shè)置分頁(yè)時(shí), PageSize 為每頁(yè)的記錄條數(shù)。 有了這幾個(gè)屬性,在使用 for…… next 循環(huán)就可以以分頁(yè)的方式顯示帖子了。具體的程序和版面瀏覽模塊相似, 這里就不給出程序了。 帖子搜索模塊 該部分的帖子顯示和瀏覽模塊的帖子顯示基本一致,這里重點(diǎn)討論 ASP 如何操作 SQL 語(yǔ)句,以及 SQL 語(yǔ)句是如何工作的。下面先來(lái)看下搜索條件。 圖 11 帖子搜索頁(yè)面 從上圖可以看出帖子的搜索條件:首先要選擇版面,搜索方式分為標(biāo)題和作者,搜索時(shí)間是附加搜索條件。帖子搜索本質(zhì)上是有條件的對(duì)數(shù)據(jù)表查找,所以要滿足以上條件的搜索應(yīng)該使用下面的 SQL 語(yǔ)句: 1 select * from topic_t where amp。kindamp。 like 39。%amp。keywordamp。%39。 and boardid=39。amp。boardidamp。39。 and DateAndTime 39。amp。posttimeamp。39。 order by DateAndTime desc 其它功能 1. 帖子評(píng)價(jià) 對(duì)于未注冊(cè)的用戶如果想要吸引他們來(lái)到論壇,就需要給他們一個(gè)互動(dòng)的權(quán)利,對(duì)于每個(gè)主題開啟一個(gè)評(píng)價(jià)好壞的功能,即使未注冊(cè)的用戶也可以使用。同時(shí),增加注冊(cè)用戶發(fā)帖的積極性,使他們獲得更多的積分和相應(yīng)的等級(jí)。
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1