【導(dǎo)讀】研究工作所取得的成果，成果不存在知識(shí)產(chǎn)權(quán)爭(zhēng)議，除文中已經(jīng)注明引用的內(nèi)容外，本設(shè)計(jì)不含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫過(guò)的作品成果。對(duì)本文的研究做出重。要貢獻(xiàn)的個(gè)人和集體均已在文中以明確方式標(biāo)明。本人完全意識(shí)到本聲明的法律結(jié)果

　　

【正文】 能流程圖 個(gè)人 信息 論壇 聯(lián)盟 帖子 幫助 風(fēng)格 菜單 登陸 (注冊(cè) ) 退出 湖南人文科技學(xué)院畢業(yè)論文（設(shè)計(jì)） 25 系統(tǒng) 前臺(tái)各功能模塊的詳細(xì)設(shè)計(jì)及實(shí)現(xiàn) 注冊(cè)與登陸模塊 用戶在進(jìn)入網(wǎng)站后，要想享受論壇的基本功能，必須進(jìn)行注冊(cè)登陸，否則只能查看最基本的帖子。 用戶在登錄時(shí)，會(huì)自動(dòng)連接數(shù)據(jù)庫(kù)進(jìn)行賬號(hào)驗(yàn)證，若賬號(hào)密碼不對(duì)，則會(huì)自動(dòng)提示，若驗(yàn)證成功，則登陸論壇。登陸論壇后后，系統(tǒng)會(huì)進(jìn)行權(quán)限的判斷，可以是管理員、版主、貴賓，也可以是普通用戶，不同的用戶具有不同的權(quán)限，具有不同的功能。注冊(cè)與登陸部分代碼如下： Sub CheckLogin() Dim Temp,TemUrl,Rs,UserName,Password,IsHidden,CookiesDate If (Session(amp。lgtime)+(29)/1440)now() then ( 本 站為 了防 止惡意 嘗試 機(jī)器 登陸 ，兩 次登 陸間 隔被設(shè) 為 Font color=redamp。(29)amp。/Font分鐘 ) TemUrl=Replace((url),39。,39。39。) if TemUrl= then TemUrl=(HTTP_REFERER) UserName=Lcase((name)) Password=(password) IsHidden=(hidden) CookiesDate=((cookies)) If UserName= or Password= Then (用戶名或密碼不得為空！ ) if Not (UserName) then (此用戶還沒(méi)有注冊(cè)！ ) IF Session(CheckCode)(CheckCode) And Cint((6))=0 then (驗(yàn)證碼錯(cuò)誤！ ) If Cint((6))=1 then Session(CheckCode)= Password=md5(Password) Set Rs = (select top 1 Id,Name,EssayNum,ClassID From [YX_User] where Lcase(name)=39。amp。UserNameamp。39。 and password=39。amp。Passwordamp。39。 and Isdel=true) If then (您的用戶名密碼錯(cuò)誤！ brbrli或暫未通過(guò)用戶審核！ ) Else Dim UG:UserName=Rs(1) Set UG = (Select Top 1 GradeNum,UserMinPostNum from YX_UserGrade Where ClassID=amp。Rs(3)amp。 And UserMinPostNum=amp。Rs(2)amp。 Order By UserMinPostNum Desc) If Not Then (Update [YX_User] Set GradeNum=amp。UG(0)amp。 Where 湖南人文科技學(xué)院畢業(yè)論文（設(shè)計(jì)） 26 ID=amp。Rs(0)) End If Set UG=nothing ()(MyID)=Rs(0) ()(MyName)=UserName ()(MyPwd)=Password ()(MyHidden)=IsHidden ()(CookiesDate)=CookiesDate If CookiesDate=1 then ().Expires=date+1 Elseif CookiesDate=30 then ().Expires=date+30 Elseif CookiesDate=365 then ().Expires=date+365 End if (update [YX_user] set loginnum=loginnum+1,LastTime=39。amp。amp。39。,LastIp=39。amp。amp。39。 where name=39。amp。UserNameamp。39。) Dim MyID If instr(LCase(TemUrl),)0 or instr(LCase(TemUrl),)0 or instr(LCase (TemUrl),)0 or TemUrl= then TemUrl= Else TemUrl=lia href=amp。TemUrlamp。amp。(TemUrl)amp。/abr End if Session(amp。lgtime)=Now() =UserOnline () Caption=登陸成功 Content=metaequiv=refresh content=2。url=div style=39。margin: 15。lineheight: 150%39。lib3/b 秒鐘后將自動(dòng)返回首頁(yè) lia href=39。39。立即進(jìn)入 論壇首頁(yè)/aamp。TemUrlamp。/p End If Call (Caption,Content) End Sub 湖南人文科技學(xué)院畢業(yè)論文（設(shè)計(jì)） 27 個(gè)人信息模塊 個(gè)人信息模塊包括：個(gè)人信箱、個(gè)人主題、個(gè)人回復(fù)與精華以及資料與密碼修改，當(dāng)進(jìn)入論壇后 ,可以查看和修改個(gè)人信息 ,包括查看個(gè)人郵箱里的留言 ,查看個(gè)人發(fā)帖的情況 ,個(gè)人回復(fù)的情況等，還可以對(duì)個(gè)人的資料進(jìn)行修改，如果感到自己的密碼不符合個(gè)人喜好或不夠安全，也可對(duì)密碼進(jìn)行修改 .個(gè)人信息模塊具體的功能結(jié)構(gòu)圖如 52 所示： 圖 52 個(gè)人信息模塊功能結(jié)構(gòu)圖 部分實(shí)現(xiàn)代碼如下 : Sub Myinfo() Dim Rs,Caption,Content,temp,i Call (修改個(gè)人資料 ) If Not Then (您還沒(méi)有注冊(cè)或者登陸！ ) Set Rs=(Select Name,Sex,Birthday,Mail,Home,Ispic,,Pic,Pich,Picw,IsSign,Sign,Honor,GradeNum From [YX_user]where Name=39。amp。amp。39。 And PassWord=39。amp。amp。39。 And ID=amp。amp。) IF Then ():(您沒(méi)有進(jìn)行這個(gè)操作的權(quán)限！) Content=FORM name=form style=39。margin:039。 method=39。POST39。 action=39。?action=SaveMyInfo39。amp。_ brtable align=39。center39。 width=39。100%39。 border=39。039。 rules=rows frame=void cellpadding=39。039。 cellspacing=39。539。 bgcolor=39。FFFFFF39。amp。_ trtd width=39。35%39。b用戶名稱 /b： br此為論壇 ID 帳號(hào)，自己不能修改/tdtd width=39。65%39。bamp。Rs(Name) amp。/b/td/tr If Int(Rs(GradeNum))Int((25)) then Temp=您的等級(jí)未達(dá)到 Bfont Color=redamp。(25)amp。 級(jí)/font/B 不能自定頭銜稱號(hào) input type=39。hidden39。 value=39。amp。Rs(Honor)amp。39。 name=39。Honor39。 Else Temp=input type=39。text39。 value=39。amp。Rs(Honor)amp。39。 name=39。Honor39。 End If 個(gè)人信息模塊 個(gè)人信箱 個(gè)人主題 個(gè)人回復(fù)與精華 資料與密碼修改 湖南人文科技學(xué)院畢業(yè)論文（設(shè)計(jì)） 28 Content=Content amp。 trtdB 自 定義 街 稱號(hào) /B ： BR 最多 6 個(gè)漢 字/tdtdamp。Tempamp。/td/tramp。_ trtdb您的性別： /b/tdtdinput name=39。sex39。 type=39。radio39。 value=39。139。 If Not Rs(Sex) Then Content=Content amp。 checked Content=Content amp。 img src=39。Images/39。 align=39。absmiddle39。 靚女 /td/tramp。_ trtdbEmail 地址 /b： br請(qǐng)輸入有效的郵件地址 /tdtdinput type=39。text39。 name=39。Mail39。 size=39。3039。 maxlength=39。3039。 value=39。amp。Rs(Mail)amp。39。/td/tramp。_ trtd width=39。35%39。b 生日： /bbr請(qǐng)按照 19860816 格式填寫 /tdtd width=39。65%39。input Type=text name=39。Birthday39。 value=39。amp。Rs(Birthday)amp。39。/td/tramp。_ trtdb主頁(yè)： /bbr填寫你的個(gè)人主頁(yè)，讓大家見識(shí)見識(shí)！ /tdtdinput type=text name=39。Home39。 size=39。3039。 maxlength=39。20039。 value=39。amp。Rs(Home)amp。39。/td/tramp。_ trtdB號(hào)碼 /B： BR填寫您的 地址，方便與他人的聯(lián)系 /tdtdinput type=39。text39。 name=39。39。 value=39。amp。Rs() amp。39。 maxlength=39。1539。 input type=39。checkbox39。 onclick=39。pic()39。 name=39。Ispic39。 value=39。139。 If Rs(IsPic) Then Content=Content amp。 checked End If Content=Content amp。 啟用 形象作為頭像 /td/tramp。_ tr id=pictd valign=39。top39。b我的頭像： /bbr使用論壇自帶的圖像 /tdtd Content=Content amp。 select name=headpic size=8 onChange=39。ShowPic()39。option value=39。amp。Rs(Pic)amp。39。 selected默認(rèn)頭像 /option for i=1 to Int((14)) Content=Content amp。 option value=Images/UserHead/amp。iamp。.gifamp。iamp。/option 菜單模塊 菜單模塊包括：論壇新帖、論壇搜索、管理團(tuán)隊(duì)，用戶排行以及論壇日志。論壇新帖可直接查看所有模塊的最新帖子，論壇搜索則可對(duì)論壇里的所有數(shù)據(jù)進(jìn)行搜索，方便用戶用關(guān)鍵字查找自己想要得到的信息，管理團(tuán)隊(duì)可以讓用戶查看到管理人員的信息，方便用戶對(duì)管理人的了解，防止不法分子假冒管理人員進(jìn)行詐騙，用戶排行可以讓用戶查看 用戶發(fā)帖排行等，論壇日志則是記錄論壇的所有動(dòng)態(tài)信息。菜單模塊具體的功能結(jié)構(gòu)圖如 53 所示： 圖 53 菜單 模塊功能結(jié)構(gòu)圖 菜單 模塊 論壇新帖 論壇搜索 管理團(tuán)隊(duì) 用戶排行 論壇日志 湖南人文科技學(xué)院畢業(yè)論文（設(shè)計(jì)） 29 部分實(shí)現(xiàn)代碼如下 : Sub Main() Dim Caption,Content Content=form method=39。get39。 style=39。margin:039。trtd width=39。30%39。 height=30 align=39。right39。搜索關(guān)鍵字： /tdtd width=39。70%39。 input type=39。text39。 name=39。Key39。 size=52 onkeyup=ValidateTextboxAdd(this,39。BtnSearch39。) onpropertychange=ValidateTextboxAdd(this,39。BtnSearch39。)/td/tramp。_ trtd height=39。3039。 align=39。right39。 搜 索 類 型 ： /tdtd width=39。61%39。 input type=39。radio39。 value=39。139。 name=39。SType39。 按帖子作者 input type=39。radio39。 name=39。SType39。 value=39。239。 按帖子主