【正文】 chNum+1if or then :Set Rs=Nothing Exit FunctionElse BoardStr=(1):Set Rs=Nothing=BoardStrEnd if End if CacheStr= 39。開(kāi)始分區(qū) ArrStr=Split((3),167。) For i=0 to Ubound(CacheStr,2)44 EndStr= if i0 then if CacheStr(1,i)=0 or i=Ubound(CacheStr,2) then EndStr=Trim(ArrStr(2))End if End if if CacheStr(1,i)=0 then TempStr=EndStramp。bramp。Replace(Trim(ArrStr(0)),{$BoardName},CacheStr(2,i)) Else TempStr=Trim(ArrStr(1))amp。EndStrTempStr=Replace(TempStr,{$BoardID},CacheStr(0,i))TempStr=Replace(TempStr,{$ChildBoardName}, 『 amp。CacheStr(2,i)amp。 』 br)TempStr=Replace(TempStr,{$Depict},CacheStr(4,i)amp。)If IsNull(CacheStr(5,i)) or CacheStr(5,i)= then BIStr= Else BIStr=img src=39。amp。CacheStr(5,i)amp。39。TempStr=Replace(TempStr,{$BoardImg},BIStr)TempStr=Replace(TempStr,{$LastTopic},CacheStr(10,i)amp。)TempStr=Replace(TempStr,{$LastTopicName},CacheStr(9,i)amp。)TempStr=Replace(TempStr,{$LastTopicTime},CacheStr(11,i))TempStr=Replace(TempStr,{$ManageName},NotNull(CacheStr(8,i),暫無(wú)))TempStr=Replace(TempStr,{$TodayTopic},CacheStr(13,i))TempStr=Replace(TempStr,{$TopicTotal},CacheStr(6,i))TempStr=Replace(TempStr,{$ReplyTotal},CacheStr(7,i))39。0 正規(guī)論壇 1 鎖定論壇 2 認(rèn)證論壇 3 會(huì)員論壇Select Case Clng(CacheStr(12,i))45 Case 0:BSPic=amp。 Case 1:BSPic=amp。 Case 2:BSPic=amp。 Case 3:BSPic=amp。End SelectTempStr=Replace(TempStr,{$BoardPic},BSPic) End if GetStr=GetStramp。TempStr Next BoardList=GetStrEnd FunctionFunction 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。) TempStr=Replace(TempStr,{$BoardID},) UserOnline=TempStrEnd FunctionFunction FriendLink() Dim TempStr,ArrStr,i,CharFriend,PicFriend,A,B,Ca =FriendLink If () then Set Rs=(Select Top 15 46FriendID,LinkType,WebName,WebDepict,LogoUrl,LinkUrl From [FriendLink] order by AddTime desc) if Not( And ) Then =(1) Else =Empty End if :Set Rs=Nothing Else ArrStr= End if if IsArray(ArrStr) Then A=1 B=1 for i=0 to Ubound(ArrStr,2) if Clng(ArrStr(1,i))=0 and A=7 then PicFriend=PicFriendamp。a href=amp。ArrStr(5,i)amp。 target=39。_blank39。 title=39。網(wǎng)站說(shuō)明: amp。ArrStr(3,i)amp。39。img src=amp。ArrStr(4,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。a href=amp。ArrStr(5,i)amp。 target=39。_blank39。 title=39。網(wǎng)站說(shuō)明: amp。ArrStr(3,i)amp。39。amp。ArrStr(2,i)amp。/a B=B+1 End if Next End if TempStr=(5) TempStr=Replace(TempStr,{$PicFriend},PicFriend) TempStr=Replace(TempStr,{$CharFriend},CharFriend)47 FriendLink=TempStr End Function%管理主頁(yè)源代碼!include file=Inc/ htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title畢業(yè)設(shè)計(jì)論壇/titlelink href=Images/ rel=stylesheet type=text/css/headbodytable width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr tdimg src=Images/ width=158 height=38/td /tr/tabletable width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr td height=25 background=Images/SPAN　stronga href=../ target=_blank論壇首頁(yè)/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。Menu_Title239。 48onMouseOut==39。Menu_Title39。 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 基本設(shè)置/A | A href= target=main綬存管理/A/TD /TR TR TD height=23img src=Images/ width=6 height=6A href=?Action=Manage target=main 論壇日志/A | a href= target=main短信管理/a/TD /TR TR TD height=20img src=Images/ width=6 height=6 A href= target=main友情管理/A | a href= target=main公告管理/a/TD49 /TR TR TD height=21img src=Images/ width=6 height=6a href= target=main /a a href= target=main系統(tǒng)信息/a/TD /TR TBODY /TBODY /TABLE /divdiv style=width:158px table width=135 align=center cellpAdding=0 cellspacing=0 tr td height=20 /td /tr /table /div /td /tr/tabletable width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr td height=25 background=Images/ onClick=showsubmenu(2) onMouseOver==39。Menu_Title239。 onMouseOut==39。Menu_Title39。 class=Menu_Titlespan論壇管理/span/td /tr tr td id=submenu2div class=Tableborder3 style=width:158px TABLE width=150 align=center cellPAdding=0 cellSpacing=0 TBODY TR TD height=5/TD50 /TR TR TD height=20img src=Images/ width=6 height=6A href=?Action=Add target=main 論壇版面添加/A | a href=?Action=Manage target=main管理/a/TD /TR