【正文】 ...............................................37 結束語 ....................................................................................................................................39 致謝 .......................................................................................................................................40 參考文獻 ................................................................................................................................41 16 第一章 系統需求分析 開發(fā)背景 進入 21 世紀以后，知識經濟的飛速發(fā)展對我們的社會產生了巨大的影響。 目前呈幾何增長的互聯網網站中，有相當一部分仍固守“靜態(tài)”，無形中已大大落后于時代的步伐。 “靜態(tài)”網站的致命弱點就是不易維護，為了不斷更新網頁內容，你必須不斷 地重復制作HTML 文檔，隨著網站內容和信息量的日益擴增，你就會感到工作量大得出乎想象。 這種具有動態(tài)特性的網站的典型代表就是 論壇 . 系統實用功能分析 隨著時 代的進步，人們對網絡的要求也越來越高，論壇就是在這種背景下誕生的。 （ 4）查詢與更改密碼、個人信息，及他人信息。 （ 2）版主登錄之后可以進入版主管理菜單，可以管理論壇版面，管理精華區(qū)域，版主帖子查詢，編輯版面說明等功能。 （ 2）論壇排行榜，對各個版面的點擊數、文章數進行排序。 帖子功能： （ 1）顯示帖子發(fā)表日期，點擊數，字節(jié)數，回復帖子數，新帖圖形提示， 24 小時內新帖一目了然。多版面設置，每個版面可以有自己的版主、主頁連接，可以獨立顯示單一版面。 （ 2）類似于 FrontPage、 Dreamweaver 論壇內容編輯器，以方便網友使用 HTML 格式顯示帖子內容。自從上一個世紀 90 年代 Web 網絡的迅速發(fā)展，這種語言空前繁榮。在1998 年 4 月 24 日，這一愿望終于實現了， W3C 標準化組織發(fā)布了 ，將原先的 HTML擴展到一些全新的領域，例如樣式表單， Script 語言，內嵌對象，框架結構甚至賦予殘疾人使用網絡能力等新的功能。 設計一種表單控件控制網絡上的各種傳輸、遠程服務等功能，就像查詢信息、訂購貨物等。 ASP 語言 : 在網絡程序設計中， ASP（ Active Server Pages）是服務器端的一種未經編譯的開放式程序，程序設計者可按 ASP 的要求來編寫功能強大的網絡應用程序，并實現服務器端的數據處理及數據上傳與下載。 ASP 程序是運行于網絡服務器端的一種應用程序。它的數據傳送和數據處理功能要通過具體的程序設計語言來實現。 ACCESS 數據庫 : 數據庫的管理系統就是從圖書館的管理方法改進而來的。在 Visual Basic 環(huán)境下 ,利用事件驅動的編程機制、新穎易用的可視化設計工具 ,使用 Windows 內部的應用程序接口 (API)函數 ,以及動態(tài)鏈接庫 (DLL),動態(tài)數據交換 (DDE),對象的鏈接與嵌入 (OLE),開放式數據訪問 (ODBC)等技術 ,可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強 大 ,圖形界面豐富的應用軟件系統。 論壇的個人信息如 圖所示： 在基本資料里面你可以看到你的個人資料并且可以修改，這樣可以使用戶對自己的資料隨時隨地的修改，避免了寫完后不能修改的遺憾。但是普通用戶也有自己的權限，那樣就可 以區(qū)分版主和普通用戶。具體操作如圖所示： 16 在論壇狀態(tài)里通過今天在線圖例，主題數圖例，整帖數圖例，當前在線圖例，當前在線情況，用戶在線圖例，你可以清楚的了解到論壇當前的情況。 用戶在線圖例：顯示了當前不同等級的用戶的數量。 16 第三章 系統后臺數據庫設計 后臺數據庫構架 前面已經把數據庫對大家做了一個簡單的介紹，相信大家對數據庫有了一個新的認識。 它的作用是用來記錄和核對用戶的個人資料。 流程圖如下： 它的作用是用來提示新注冊的用戶已經注冊成功并且成功登陸。 16 用戶的網絡個人信息（ Sysonline）是說明了用戶的操作系統， IP 地址，瀏覽器，訪問該論壇的時間。 后臺數據庫名稱 作用 用戶個人資料 記錄和核對用戶的個人資料 系統提示 提示新注冊用戶已注冊成功且成功登陸 魔法表情 為不同用戶提供了適合自己的魔法表情 論壇風格 適合不同 用戶所喜歡的網站背景而設置 帖子信息 方便管理員的定期查閱與管理 用戶網絡信息 方便管理員的定期查閱與管理 16 第四章 關鍵代碼描述 在這里把一些關鍵的代碼列下： 連接數據庫源代碼 % =True Dim Conn,DataBase,Driver,SearchNum,StartTime SearchNum=0 39。DataBase Set Conn=() Driver If Err then Set Conn=Nothing 數據庫連接出錯，請檢查連接字符串 End if End Sub Sub CloseConn() Set Conn=Nothing End Sub 39。Session(UserInFo)(14)amp。 Height=amp。 onload=39。************************* 帶 綬 存 的 主 區(qū) 數 據****************************** =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 :Set Rs=Nothing Exit Function Else BoardStr=(1) :Set Rs=Nothing =BoardStr 16 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。 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},) 16 TempStr=Replace(TempStr,{$UserIE},amp。 target=39。ArrStr(3,i)amp。 width=88 height=31 Border=0/a A=A+1 16 End if if Clng(ArrStr(1,i))=1 and B=8 then CharFriend=CharFriendamp。_blank39。39。 charset=gb2312 title畢業(yè)設計論壇 /title link href=Images/ rel=stylesheet type=text/css /head body table width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr tdimg src=Images/ width=158 height=38/td 16 /tr /table table width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr td height=25 background=Images/SPAN stronga href=../ target=_blank論壇首頁 /a/strong strong|/strong stronga href= target=_parent 退出/a/strong/SPAN/td /tr /table table width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr td height=25 background=Images/ onClick=showsubmenu(1) onMouseOver==39。 class=Menu_Titlespan常 規(guī)管理 /span/td /tr tr td id=submenu1div class=Tableborder3 style=width:158px TABLE width=150 align=center cellPAdding=0 cellSpacing=0 TBODY TR TD height=5/TD /TR TR TD height=20img src=Images/ width=6 height=6A href= target=main 基本設置 /A | A href= 16 target=main綬存管理 /A/TD /TR TR TD height=23img src=Images/ width=6 height=6A href=?Action=Manage