【正文】 rders order by Orders Asc If Not IsObject(Conn) Then ConnectionDatabase Set Rs = () Sql,Conn,1,1 SqlNum=SqlNum+1 If Not( or ) Then Arr_Rs = () :Set Rs=Nothing If IsArray(Arr_Rs) Then TxtLink=:LogoLink=:j=0:k=0 For i = 0 to UBound(Arr_Rs,2) If Arr_Rs(4,i) And Arr_Rs(2,i) Then j=j+1 LogoLink=LogoLinkamp。td align=centera href=amp。Arr_Rs(1,i)amp。
target=_blankimg src=amp。Arr_Rs(2,i)amp。 border=0 alt=::amp。Arr_Rs(0,i)amp。::amp。Arr_Rs(3,i)amp。 width=88
height=31/a/td If j=7 Then j=0:LogoLink=LogoLinkamp。/trtr Else k=k+1 TxtLink=TxtLinkamp。td align=centera href=amp。Arr_Rs(1,i)amp。 target=_blank
title=amp。Arr_Rs(3,i)amp。amp。Arr_Rs(0,i)amp。/a/td If k=7 Then k=0:TxtLink=TxtLinkamp。/trtr End If Next End If Link_List=trtd align=centertable width=100% border=0 cellpadding=4
cellspacing=0tramp。TxtLinkamp。/tr/tabletable width=100% border=0 cellpadding=4
cellspacing=0tramp。LogoLinkamp。/tr/table/td/tr Link_List,dateadd(n,5000,) End If Call (論壇聯(lián)盟,Link_List)End Sub第六章 系統(tǒng)后臺(tái)設(shè)計(jì)及實(shí)現(xiàn) 系統(tǒng)后臺(tái)項(xiàng)目規(guī)劃本論壇系統(tǒng)后臺(tái)主要功能模塊規(guī)劃為5個(gè)，分別如下： 系統(tǒng)后臺(tái)功能流程圖系統(tǒng)后臺(tái)功能流程圖如61所示： 版塊帖子管理論壇用戶(hù)管理風(fēng)格插件管理論壇數(shù)據(jù)管理論壇基本設(shè)置后臺(tái)登陸與退出圖61 系統(tǒng)后臺(tái)功能流程圖 系統(tǒng)后臺(tái)各功能模塊的詳細(xì)設(shè)計(jì)及實(shí)現(xiàn) 論壇基本設(shè)置模塊論壇基本設(shè)置模塊包含了論壇的基本設(shè)置情況，包括論壇的名稱(chēng)，論壇的地址，維護(hù)信息，建站日期等，也包括金錢(qián)的設(shè)置，聯(lián)盟論壇等基本信息，論壇基本設(shè)置模塊具體的功能結(jié)構(gòu)圖如圖62： 論壇基本設(shè)置論壇參數(shù)設(shè)置金錢(qián)參數(shù)設(shè)置論壇顯示設(shè)置論壇用戶(hù)設(shè)置論壇系統(tǒng)設(shè)置論壇聯(lián)盟設(shè)置IP封鎖設(shè)置圖62 論壇基本設(shè)置模塊功能結(jié)構(gòu)圖部分實(shí)現(xiàn)代碼如下:sub linkdim rs,i%form method=post name=form style=39。margin:039。 action=?action=saveadddiv class=tadiv class=th jz添加論壇聯(lián)盟/divdiv class=td1 h22論壇名稱(chēng)：/divdiv class=td2 h22input type=text name=bbsname size=20/divdiv class=td1 h22論壇地址：/divdiv class=td2 h22input type=text name=url size=38/divdiv class=td1 h22論壇圖片：/divdiv class=td2 h22input type=text name=readme size=38(可留空)/divdiv class=td1 h22圖片顯示：/divdiv class=td2 h22input type=radio name=ispic value=yes checked=true 是 input type=radio name=ispic value=no 否/divdiv style=clear: both。/divdiv class=tf jz w770input type=submit value= 提 交 amp。nbsp。amp。nbsp。input type=reset value= 重 置 /div/div/formbr /form method=post name=form action=?action=updatelinkdiv class=tadiv class=th1 jz w231論壇聯(lián)盟信息/divdiv class=th1 jz w87排序/divdiv class=th1 jz w231顯示圖片/divdiv class=th1 jz w231操作/div % i=0 set rs=(select id,ispic,orders,bbsname,url,readme from[yx_link] order by orders) do while not i=i+1 % div class=td3 w219 jza href=%=rs(url)% target=_blank title=%=rs(readme)%%=rs(bbsname)%/a/div div class=td3 w87 jzinput name=id value=%=rs(id)% type=hiddeninput type=text name=orders value=%=rs(orders)% size=2/div div class=td3 w219 jzinput type=radio name=ispic%=i% value=yes %if rs(ispic) then% checked=true %end if% 是 input type=radio name=ispic%=i% value=no %if not rs(ispic) then% checked=true %end if% 否/div div class=td3 w219 jza href=?action=editamp。id=%=rs(id)%img src=../images/ border=0 align=absmiddle / 編輯/a a onclick=checkclick(39。刪除后將不能恢復(fù)！您確定要?jiǎng)h除嗎？39。) href=?action=dellinkamp。id=%=rs(id)%img src=../images/ width=18 height=18 border=0 align=absmiddle / 刪除/a/div % loop %div style=clear: both。/divdiv class=tf w770 jz input type=submit value= 更 新 amp。nbsp。amp。nbsp。input type=reset value= 重 置 /div/div/form%end sub 版塊帖子管理模塊版塊帖子模塊主要是為了添加和刪除版塊而設(shè)定的，用過(guò)論壇的人都知道，版塊是一個(gè)論壇的靈魂，一個(gè)好的版塊，往往能帶來(lái)無(wú)數(shù)的人氣，隨之而來(lái)的是大量的訪問(wèn)量，因此，添加和刪除版塊是很重要的。版塊帖子管理模塊的具體功能結(jié)構(gòu)圖如63所示： 版塊帖子模塊論壇版塊的管理論壇帖子批量管理添加刪除論壇添加刪除分類(lèi)圖63 版塊帖子管理模塊功能結(jié)構(gòu)圖部分實(shí)現(xiàn)代碼如下:sub addclass dim newboardid set rs=(select max(boardid) from [yx_board]) if or then newboardid=1 else newboardid=rs(0)+1 end if if not isnumeric(newboardid) then newboardid=1 %form method=post style=margin:0 action=?action=saveclass div class=ta div class=th jz添加分類(lèi)/div div class=td1 h30b分類(lèi)名稱(chēng)：/bbr /論壇的分類(lèi)名稱(chēng)/div div class=td2 h30 style=textalign: left。input name=newboardid type=hidden value=%=newboardid%input type=text name=boardname size=30/div div style=clear: both。/divdiv class=tf jzinput type=submit value= 提 交 amp。nbsp。amp。nbsp。input type=reset value= 重 置 /div/form /div %end subsub saveclass dim boardname,newboardid,maxrootid boardname=(boardname) newboardid=(newboardid) if boardname= or not isnumeric(newboardid) then call goback(,):exit sub else set rs=(select boardid from [yx_board] where boardid=amp。newboardid) if not ( and ) then call goback(錯(cuò)誤提示,不能指定和別的論壇一樣的序號(hào)！) exit sub end if set rs=(select max(rootid) from yx_board) maxrootid=rs(0)+1 if isnull(maxrootid) then maxrootid=1 (insert into [yx_board](boardname,boardid,boardsetting,rootid,depth,parentid,orders,child,parentstr)values(39。amp。boardnameamp。39。,amp。newboardidamp。,39。0,0,30,30720,10,0,0,0,0,0,039。,amp。maxrootidamp。,0,0,0,0,39。039。)) call suc(,成功的添加了論壇分類(lèi) bamp。boardnameamp。/b !,?) end ifend sub 論壇用戶(hù)管理模塊論壇用戶(hù)管理模塊的作用是對(duì)論壇的注冊(cè)用戶(hù)進(jìn)行管理，比如說(shuō)對(duì)用戶(hù)進(jìn)行審核，設(shè)置用戶(hù)的權(quán)限，修改用戶(hù)的信息等。論壇用戶(hù)管理模塊的具體功能結(jié)構(gòu)圖如圖64所示： 用戶(hù)管理模塊用戶(hù)信息管理管理賬號(hào)設(shè)置用戶(hù)權(quán)限設(shè)置審核修改屏蔽刪除圖64 論壇用戶(hù)管理模塊功能結(jié)構(gòu)圖部分實(shí)現(xiàn)代碼如下:sub addadmin% form action=?action=saveadmin method=postdiv class=ta div class=th jz管 理 員 添 加/div div class=td1 h20后臺(tái)登陸名稱(chēng)/div div class=td2 h20input name=adminname size=30/div div class=td1 h20后臺(tái)登陸密碼/div div class=td2 h20input type=password name=password size=30/div div class=td1 h20前臺(tái)用戶(hù)名稱(chēng)/div div class=td2 h20input type=text name=username size=30/div div style=clear: both。/divdiv class=tf jzinput type=submit value=添 加 name=b1/div /div/form%end sub 風(fēng)格插件管理模塊風(fēng)格插件管理模塊主要是管理論壇的風(fēng)格和插件，風(fēng)格能使論壇更加的美觀與多變，比如說(shuō)該系統(tǒng)的夏天氣息風(fēng)格，就讓你突然有了夏天的感覺(jué)，插件主要是為了以后給論壇添加更多的功能而設(shè)置的，風(fēng)格插件管理模塊的具體功能結(jié)構(gòu)圖如65所示： 風(fēng)格插件管理論壇風(fēng)格設(shè)置論壇插件設(shè)置圖65 風(fēng)格插件管理模塊功能結(jié)構(gòu)圖部分實(shí)現(xiàn)代碼如下:% sub plus dim i% form method=post name=form style=39。margin:039。 action=?action=saveplus