【正文】 。EndStr TempStr=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),暫無)) 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 會員論壇 Select Case Clng(CacheStr(12,i)) Case 0:BSPic=amp。 Case 1:BSPic=amp。 Case 2:BSPic=amp。 Case 3:BSPic=amp。 End Select TempStr=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 FriendID,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)站說明:amp。13。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)站說明:amp。13。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) FriendLink=TempStr End Function%管理主頁源代碼!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論壇首頁/a/strong strong|/strong stronga href= target=_parent退出/a/strong/SPAN/td /tr/tableamp。nbsp。 table width=158 border=0 align=center cellpAdding=0 cellspacing=0 tr td height=25 background=Images/ onClick=showsubmenu(1) onMouseOver==39。Menu_Title239。 onMouseOut==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/TD /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=20amp。nbsp。/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/TD /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 TR TD height=23img src=Images/ width=6 height=6A href= target=main 論壇版面用戶權(quán)限設(shè)置/A/TD /TR TR TD height=20img src=Images/ width=6 height=6a href= target=main 合并版面數(shù)據(jù)/a/TD