【正文】 網(wǎng)站的網(wǎng)頁(yè)內(nèi)容“固定不變”，當(dāng)用戶(hù)瀏覽器通過(guò)互聯(lián)網(wǎng)的 HTTP（ Hypertext Transport Protocol）協(xié)議向 WEB 服務(wù)器請(qǐng)求提供網(wǎng)頁(yè)內(nèi)容時(shí)，服2 務(wù)器僅僅是將原已設(shè)計(jì)好的靜態(tài) HTML 文檔傳送給用戶(hù)瀏覽器。 所謂“動(dòng)態(tài)”就是指具有以下幾個(gè)特點(diǎn)的網(wǎng)站 : 1． “交互性”即網(wǎng)頁(yè)會(huì)根據(jù)用戶(hù)的要求和選擇而動(dòng)態(tài)改變和響應(yīng)，將瀏覽器作為客戶(hù)端界面，這將是今后 WEB 發(fā)展的大勢(shì)所趨。使用 HTML 語(yǔ)言可以賦予網(wǎng)絡(luò)設(shè)計(jì)者許多強(qiáng)有力的工具，比如： 1． 使用各種基礎(chǔ)的印刷元素例如標(biāo)題、文字、表格、列表、照片、插圖等 來(lái)發(fā)布在線(xiàn)的文檔。 以上的這些功能是一般的文檔不能完全做到的。一個(gè) ASP 程序通常包括 HTML 標(biāo)簽語(yǔ)句、文本和腳本程序等。 ACCESS 數(shù)據(jù)庫(kù) Access 是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，其主要特點(diǎn)如下： （ 1）存儲(chǔ)方式單一 （ 2） 面向?qū)ο? （ 3）界面友好、易操作 （ 4）集成環(huán)境、處理多種數(shù)據(jù)信息 （ 5） Access 支持 ODBC（開(kāi)發(fā)數(shù)據(jù)庫(kù) 互連， Open Data Base Connectivity），利用 Access 強(qiáng)大的 DDE（動(dòng)態(tài)數(shù)據(jù)交換）和 OLE（對(duì)象的聯(lián)接和嵌入）特性，可以在一個(gè)數(shù)據(jù)表中嵌入位圖、聲音、 Excel表格、 Word 文檔，還可以建立動(dòng)態(tài)的數(shù)據(jù)庫(kù)報(bào)表和窗體等。它不僅包含了網(wǎng)站原有的特點(diǎn)，還可以讓人們?cè)跒g覽網(wǎng)頁(yè)的情況下還可以發(fā)表自己的觀點(diǎn)，其實(shí)這只是最基本的，它還有許多優(yōu)點(diǎn)，下面就讓我們簡(jiǎn)潔的陳述一下： 用戶(hù)功能 （ 1）發(fā)帖時(shí)自動(dòng)記錄用戶(hù)名， Email，網(wǎng)友無(wú)需每次都輸入。 （ 5）實(shí)現(xiàn)游客瀏覽功能，你即使不進(jìn)行注冊(cè)，同樣可以瀏覽帖子內(nèi)容，但要發(fā)言必須注冊(cè)。 查詢(xún)功能：我們的論壇系統(tǒng)具有超強(qiáng)帖子查詢(xún)功能，可以根據(jù)您感興趣的內(nèi)容快速獲得 信息。 （ 3）用戶(hù)表現(xiàn)積分排行，調(diào)動(dòng)用戶(hù)積極性。 6 （ 2）設(shè)定帖子內(nèi)容最大允許的字節(jié)數(shù)。 版面功能 （ 1）具有強(qiáng)大的分頁(yè)查看工具條，帖子列表支持分頁(yè)顯示，輕松查看所有帖子。此功能代碼部分參考了 UBB代碼。 7 表 21 各對(duì)象之間的關(guān)系表 用戶(hù) 版面 公共信息 帖子 管理員 用戶(hù) 注冊(cè) 修改 瀏覽 聯(lián)系 瀏覽 瀏覽 發(fā)布 瀏覽 發(fā)布 修改 刪除 √ 版面 √ √ 公共信息 √ √ 帖子 √ √ 管理員 刪除 授權(quán) 添加 刪除 修改 添加 刪除 修改 添加 刪除 修改 至此，論壇的需要分析完成，接下來(lái)是論壇的功能設(shè)計(jì)。 管理員是論壇的一個(gè)特殊群體，它們的主要工作是保證論壇的正常運(yùn)行，他們可以和論壇的所有對(duì)象產(chǎn)生聯(lián)系，因此他們的功能也很豐富 。 圖 24 用戶(hù) 帖子管理的 實(shí)體屬性圖 圖 25 管理員 管理帖子的 實(shí)體屬性圖 用戶(hù)有注冊(cè)、登錄 2 個(gè)方法，管理用戶(hù)方法又分為 管理用戶(hù) 和設(shè)置權(quán)限 2 個(gè)子方法。 論壇的 3 大基本功能的相互關(guān)系如下圖所示。 12 第 3 章 系統(tǒng)設(shè)計(jì) 功能模塊 模塊的劃分主要是按照每一個(gè)對(duì)象的操作來(lái)歸類(lèi)。 表 31 用戶(hù)功能模塊表 模塊 模塊功能 用戶(hù)模塊 用戶(hù)注冊(cè) 用戶(hù)登錄 瀏覽其它用戶(hù)信息 與其它用戶(hù)聯(lián)系 用戶(hù)控制自己的信息 用戶(hù)登錄添 加驗(yàn)證碼 管理員模塊 用戶(hù)刪除 用戶(hù)授權(quán) 版面：也有兩個(gè)模塊，一個(gè)是瀏覽模塊，一個(gè)是管理模塊。 表 34 帖子功能模塊表 模塊 模塊功能 帖子模塊 瀏覽帖子 發(fā)布 /修改 /刪除帖子 對(duì)帖子的特殊操作 帖子評(píng)價(jià) 帖子發(fā)布添加多媒體 論壇收藏 帖子搜索 14 （續(xù)表 34） 模塊 模塊功能 帖子管理模塊 刪除帖子 移動(dòng)帖子 管理員：管理員是對(duì)其他對(duì)象進(jìn)行操作，如表 35。 建立數(shù)據(jù)表間的關(guān)系 論壇數(shù)據(jù)庫(kù)主要有以下幾個(gè)表。 接下來(lái)幾張表是論壇的其它功能需要的數(shù)據(jù)表。 當(dāng)成為用戶(hù)進(jìn)入論壇時(shí)，會(huì)顯示用戶(hù)的個(gè)人資料及功能：修改資料，發(fā)起主題，參與主題，上傳頭像，上傳文件，發(fā)送論壇短信，論壇權(quán)限，論壇收藏，論壇好友。 用戶(hù)注冊(cè) 用戶(hù)注冊(cè)，首先要檢查的就是用戶(hù)填寫(xiě)的信息，其中包括： 1. 字段是否空白，若空白則不接受。 5. 電 子郵件是否被使用。 圖 44 用戶(hù) 好友列表 頁(yè)面 可以將站內(nèi)的注冊(cè)用戶(hù)加為好友，方便查看好友的信息和聯(lián)系。 標(biāo)記短消息是否已讀是對(duì)數(shù)據(jù)表 UserNote 中的 flag 字段操作。下面是一個(gè)帖子的發(fā)布頁(yè)面 和修改頁(yè)面。為了避免用戶(hù)無(wú)意或者有意使用 HTML 代碼對(duì)論壇進(jìn)行攻擊。可以使用免費(fèi)的UBB 編輯器來(lái)自動(dòng)生成 UBB 代碼。 圖 411 帖子回復(fù)頁(yè)面 帖子瀏覽模塊部分最重要的是對(duì)數(shù)據(jù)庫(kù)的操作，如帖子的分頁(yè)列表，首先來(lái)看帖子的分頁(yè)是如何實(shí)現(xiàn)的，下面是幾個(gè)和分頁(yè)瀏覽有關(guān)的屬性： 29 AbsolutePage: 當(dāng) Recordset 對(duì)象有設(shè)置分頁(yè)時(shí)， AbsolutePage會(huì)返回目前的頁(yè)碼。具體的程序和版面瀏覽模塊相似，這里就不給出程序了。帖子搜索本質(zhì)上是有條件的對(duì)數(shù)據(jù)表查找，所以要滿(mǎn)足以上條件的搜索應(yīng)該使用下面的SQL 語(yǔ)句： 30 （ select * from bbstopic where amp。keywordamp。boardidamp。posttimeamp。 2. 論壇收藏 圖 414 收藏頁(yè)面 隨著論壇的內(nèi)容逐漸豐富，用戶(hù)在論壇中查找信息就會(huì)變得越31 來(lái)越困難，特別是對(duì)于自己喜歡的內(nèi)容，每次都要去查找，對(duì)此我們提供一個(gè)收藏夾，用戶(hù)可以把自己喜歡的東西收藏起來(lái)，方便以后查閱。 1. 用戶(hù)的批量刪除 實(shí)現(xiàn)用戶(hù)的批量刪除，與以往的單個(gè)刪除不同，主要使用了數(shù)組循環(huán) 。在這里面我把權(quán)限都設(shè)置成不注冊(cè)就可以瀏覽。其 三者主 要不同之 處在于SQL 語(yǔ)句的不同，添加版面需要使用 insert,刪除版面需要使用 delete,修改版面需要使用 update。而批量移動(dòng)帖子不同之處使用下面的 SQL 語(yǔ)句： 35 （ update bbstopic set bbsboard=39。 where TopicID=39。） 圖 420 批量刪除頁(yè)面 圖 421 批量移動(dòng)頁(yè)面 刪除的帖子會(huì)被轉(zhuǎn)存到回收站之中，在這里管理員可以執(zhí)行徹底刪除操作。 圖 423 數(shù)據(jù)備份 ahref=?Action=resumetarget=main通過(guò)上面的 語(yǔ)句來(lái)實(shí)現(xiàn)數(shù)據(jù)庫(kù)的恢復(fù)，管理員在這個(gè)頁(yè)面可以填寫(xiě)數(shù)據(jù)庫(kù)備份的路徑和目標(biāo)數(shù)據(jù)庫(kù)路徑。 在前臺(tái)界面的設(shè)計(jì)時(shí)，遵從了傳統(tǒng)的網(wǎng)頁(yè)界面設(shè)計(jì)，并且添加了不同的背景風(fēng)格來(lái)適應(yīng)不同用戶(hù)的需求，爭(zhēng)取做到簡(jiǎn)明明了，讓用戶(hù)一眼看上去就有比較清爽的感覺(jué)，讓其瀏覽網(wǎng)頁(yè)時(shí)心情舒暢。比如：怎么樣使用戶(hù)進(jìn)行私聊，屏蔽一些不文明的用語(yǔ)等等。 王曉晨 . ASP 技術(shù)在用戶(hù)登錄中的應(yīng)用 [J],電腦知識(shí)與技術(shù) ， 2021. 12 羅淑嫻 . 基于 ASP 技術(shù)的信息發(fā)布系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn) [J],農(nóng)業(yè)圖書(shū)情報(bào)學(xué)刊 ， 2021. 13 向?qū)W哲 .ASP 程序設(shè)計(jì)教程 [M],人民郵電出版社， 2021 14 張建軍 . ASP 記錄集分頁(yè)瀏覽方法 [J]北京工業(yè)職業(yè)技術(shù)學(xué)院學(xué)報(bào) , 2021. 41 15 Mani Management Principles and Practive. Higher Education Press,2021. 42 附錄 設(shè)計(jì)系統(tǒng)部分源代碼 連接數(shù)據(jù)庫(kù)源代碼 % =True Dim Conn,DataBase,Driver,SearchNum,StartTime SearchNum=0 39。DataBase Set Conn=() Driver If Err then Set Conn=Nothing 數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查連接字符串 End if End Sub Sub CloseConn() Set Conn=Nothing End Sub 39。Session(UserInFo)(14)amp。 Height=amp。 onload=39。************************* 帶 綬 存 的 主 區(qū) 數(shù) 據(jù)****************************** =BoardList If () then Set Rs=(Select BoardID,ParentID,BoardName,Child,Depict,BoardImg,TopicTotal,ReplyTotal,ManageName,LastTopicName,LastTopic,LastTopicTime,BoardStatus,TodayTopic,BootID From [BBsBoard] order by BootID asc,ParentID asc,BoardID asc) SearchNum=SearchNum+1 if or then 45 :Set Rs=Nothing Exit Function Else BoardStr=(1) :Set Rs=Nothing =BoardStr End if End if CacheStr= 39。Replace(Trim(ArrStr(0)),{$BoardName},CacheStr(2,i)) Else TempStr=Trim(ArrStr(1))amp。) If IsNull(CacheStr(5,i)) or CacheStr(5,i)= then BIStr= Else BIStr=img src=39。 46 TempStr=Replace(TempStr,{$BoardImg},BIStr) TempStr=Replace(TempStr,{$LastTopic},CacheStr(10,i)amp。 Case 1:BSPic=amp。TempStr Next BoardList=GetStr End Function Function UserOnline() dim TempStr TempStr=(4) TempStr=Replace(TempStr,{$OnlineUser},) TempStr=Replace(TempStr,{$OnlineMember},) TempStr=Replace(TempStr,{$OnlineGuest},) TempStr=Replace(TempStr,{$GreateBBsTime},) TempStr=Replace(TempStr,{$TopOnlineUser},) TempStr=Replace(TempStr,{$TopOnlineTime},) TempStr=Replace(TempStr,{$UserIP},) TempStr=Replace(TempStr,{$UserSystem},) TempStr=Replace(TempStr,{$UserIE},amp。 target=39。ArrStr(3,i)amp。 width=88 height=31 Border=0/a A=A+1 End if if Clng(ArrStr(1,i))=1 and B=8 then CharFriend=CharFriendamp。_blank39。39