電子社區(qū)論壇系統(tǒng)設(shè)計(jì)說明書-在線瀏覽
2025-08-10 22:56本頁面
【正文】 允許為空replycountint4用戶回帖數(shù)允許為空logovarchar50用戶個(gè)人頭像不允許為空版塊信息表boardInfo該信息表用于存儲(chǔ)版塊的基本信息，包括版塊編號（boardid）、版塊名稱（boardname）、版塊描述（boarddescription）。字段名數(shù)據(jù)類型長度說明備注boardidint4版塊編號設(shè)為主鍵且自動(dòng)編號boardnamevarchar50版塊名稱不允許為空boarddescriptionvarchar200版塊描述不允許為空帖子信息表postInfo該信息表用于存儲(chǔ)發(fā)帖的基本信息，包括帖子編號（postid）、帖子所屬版塊編號（boarded）、帖子標(biāo)題（posttitle）、帖子內(nèi)容（postcontent）、帖子圖片相對應(yīng)路徑（postimages）、發(fā)帖時(shí)間（posttime）、發(fā)帖者（postname）、點(diǎn)擊率（postclick）、回帖數(shù)（replycount）、最后一次回帖時(shí)間（replytime）、最后一次回帖者（replyname），在已創(chuàng)建的SQL Server數(shù)據(jù)庫bbs中，創(chuàng)建一個(gè)表，名為postdInfo。在已創(chuàng)建的SQL Server數(shù)據(jù)庫bbs中，創(chuàng)建一個(gè)表，名為replyInfoInfo。該系統(tǒng)的公用模塊包含以下頁面。 。數(shù)據(jù)庫連接dim conn,connstr 39。連接數(shù)據(jù)庫bbs，設(shè)置用戶名為sa，密碼為1234567，服務(wù)器為MYSERVERconnstr=Driver={sql server}。pwd=1234567。SERVER=MYSERVERset conn=() 39。打開數(shù)據(jù)庫%在文件中引用文件時(shí)把該文件作為頭文件直接調(diào)用即可，代碼如下所示。 為了使BBS論壇系統(tǒng)的界面美觀、風(fēng)格統(tǒng)一、修改方便，所以創(chuàng)建一個(gè)層疊樣式文件，對留言板系統(tǒng)所在頁面文件中所標(biāo)記的屬性實(shí)行統(tǒng)一控制。style type=text/css! 注釋：a:link:設(shè)置超級鏈接的正常狀態(tài)；a:visited:設(shè)置訪問過的超級鏈接狀態(tài)； a:active:設(shè)置選中超級鏈接狀態(tài)；a:hover: 設(shè)置光標(biāo)移至超級鏈接上的狀態(tài)；! A:link {textdecoration: none。 color:0060FF } A:active {textdecoration: none。 color: ff0000} body{ fontsize=9pt。 } TH{FONTSIZE: 9pt} TD{ FONTSIZE: 9pt} /styleLink href=”” rel=stylesheet編寫頁面代碼時(shí)，在每個(gè)頁面的HEAD和/HEAD標(biāo)記之間包含該樣式文件，就可以起到統(tǒng)一頁面風(fēng)格的作用，具體代碼如下所示。 。 這個(gè)文件保存在C:\Program Files\Common Files\SYSTEM\ADO下，在使用的時(shí)候把它復(fù)制到本系統(tǒng)相對應(yīng)的目錄下即可。，否則程序?qū)o法獲悉這些coust參數(shù)的值是多少。，代碼如下所示。 在此文件用于數(shù)據(jù)轉(zhuǎn)換和上傳圖片，該系統(tǒng)中需要一些轉(zhuǎn)換函數(shù)進(jìn)行數(shù)據(jù)轉(zhuǎn)換，以及獲取服務(wù)器端相對圖片路徑，上傳圖片等。 。 year(now)amp。day(now)amp。minute(now)amp。Right(imagespath,4) Else ‘如果圖片為空，則取得服務(wù)端圖片相對路徑為空 GetFileName = End If ‘返回值：圖片路徑 End Function ‘功能：用stream組件上傳圖片 ‘定義一個(gè)upImages函數(shù)，該函數(shù)的作用是上傳客戶端圖片 ‘設(shè)置一個(gè)參數(shù)imagespath，該參數(shù)指定客戶端圖片路徑Function upImages(imagespath) Set objStream = () ‘創(chuàng)建上傳組件對象 = 1 ‘指定或返回的數(shù)據(jù)類型 ‘打開上傳組件對象 imagespath’把客戶端的圖片路徑裝入上傳組件對象中 ‘將客戶端圖片路徑寫到服務(wù)的端文件中 (GetFileName(imagespath)),adSaveCreateOverWrite If 0 Then upImages = 0 ‘如果上傳失敗返回0 Else upImages = 1 ‘如果上傳成功返回1 End If End Function ‘定義一個(gè)unHtml，該函數(shù)的作用是將字符串的一些換行符、回車符等轉(zhuǎn)換成HTML‘格式，使其在現(xiàn)實(shí)的時(shí)候能夠按正常格式顯示 Function unHtml(content) ‘設(shè)置一個(gè)參數(shù)content，該參數(shù)指信息內(nèi)容 unHtml=content ‘給函數(shù)unHtml賦值為信息內(nèi)容content ‘如果信息內(nèi)容不為空，則把信息內(nèi)容中的一些字符轉(zhuǎn)換成HTML格式 If content Then unHtml=replace(unHtml,amp。amp?！鞭D(zhuǎn)換成HTML格式 unHtml=replace(unHtml,amp。) ‘‘把信息內(nèi)容中的””轉(zhuǎn)換成HTML格式 unHtml=replace(unHtml,amp。) ‘‘把信息內(nèi)容中的””轉(zhuǎn)換成HTML格式 unHtml=replace(unHtml,chr(34),amp。) ‘‘把信息內(nèi)容中的引號轉(zhuǎn)換成HTML格式 unHtml=replace(unHtml,chr(13),br) ‘‘把信息內(nèi)容中的換行符轉(zhuǎn)換成HTML格式 unHtml=replace(unHtml,chr(32),amp。) ‘‘把信息內(nèi)容中的空格轉(zhuǎn)換成HTML格式 End If ‘返回值：字符串中的空格與回車符等被轉(zhuǎn)換成HTML語法格式 End Function%
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號-1