"&.GetBoardInfo("1",i)&"
"
If II"&.GetBoardInfo("1",i)&"
"
End If
Else
BoardChild=BoardChild&.GetBoardInfo("0",i)
End IF
End If
Next
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board = Board&BoardStr
Response.Write Board
End With
End Sub
Function ShowTopicList()
Dim S,Button,S1
Button=""
IF MNBoard.BoardString(4)="0" or MNBoard.MyAdmin=9 Or (MNBoard.MyAdmin=7 And MNBoard.IsBoardAdmin) Then
Button=""&MNBoard.SkinsPIC(7)&" "&MNBoard.SkinsPIC(8)&""
End If
S=MNBoard.ReadSkins("主题列表表格")
S=Replace(S,"{发帖按钮}",Button)
S=Replace(S,"{版主}",MNBoard.Boardadmin)
S=Replace(S,"{版块ID}",MNBoard.BoardID)
S=Replace(S,"{数据表ID}",MNBoard.TB)
S=Replace(S,"{公告}",MNBoard.Placard(MNBoard.BoardID))
S=Replace(S,"{版块名称}",MNBoard.Boardname)
If MNBoard.Info(21)="1" then S=Replace(S,"{显示在线}",ShowOnline()) Else S=Replace(S,"{显示在线}","")
S=Replace(S,"{版块下拉列表}","")
S1=ShowTopic()
S=Replace(S,"{分页}",strPageInfo)
S=Replace(S,"{显示主题列表}",S1)
ShowTopicList=S
End Function
Function Showonline()
Dim S,Boardupdate
S=MNBoard.ReadSkins("显示版块在线")
S=Replace(S,"{显示在线列表}","")
If Session(CacheName&"Online")="1" Then S=Replace(S,"{展开在线列表图标}","-.gif") Else S=Replace(S,"{展开在线列表图标}","+.gif")
S=Replace(S,"{版块ID}",MNBoard.BoardID)
S=Replace(S,"{在线总数}",MNBoard.AllOnlineNum)
S=Replace(S,"{本版在线总数}",MNBoard.BoardOnlineNum)
S=Replace(S,"{本版在线会员数}",MNBoard.BoardUserOnlineNum)
S=Replace(S,"{本版在线游客数}",Int(MNBoard.BoardOnlineNum)-int(MNBoard.BoardUserOnlineNum))
S=Replace(S,"{管理员}",MNBoard.SkinsPic(21))
S=Replace(S,"{超级版主}",MNBoard.SkinsPic(22))
S=Replace(S,"{版主}",MNBoard.SkinsPic(23))
S=Replace(S,"{VIP会员}",MNBoard.SkinsPic(24))
S=Replace(S,"{会员}",MNBoard.SkinsPic(25))
S=Replace(S,"{隐身}",MNBoard.SkinsPic(26))
S=Replace(S,"{游客}",MNBoard.SkinsPic(27))
Boardupdate=MNBoard.GetEachBoardCache(MNBoard.BoardID)
S=Replace(S,"{今日帖数}",Boardupdate(2))
ShowOnline=s
End Function
Function ShowTopic()
Dim S,intPageNow,arr_Rs,i,P,Conut,page,Flag,Condection,TopicLine
Dim TopicS,Caption,Facepic,Moodpic,LastRe,RePageUrl,UploadType,RePage,leftn,ii
intPageNow = Request.QueryString("page")
Condection= "(BoardID="&MNBoard.BoardID&" or TopType=5 or (TopType=4 and BoardID in ("&MNBoard.BoardRoots&"))) And IsDel=0"
Flag=MNBoard.CheckNum(Request.QueryString("Flag"))
If Flag=1 Then Condection=Condection&" And IsGood=1"
If Flag=2 Then Condection=Condection&" And DATEDIFF('d',[LastTime],'"&MNBoard.NowBbsTime&"')<1"
If Flag=3 Then Condection=Condection&" And Name='"&MNBoard.MyName&"'"
Set P = New Cls_PageView
P.strTableName = "[i_Topic]"
P.strPageUrl = "?Flag="&Flag&"&BoardID="&MNBoard.BoardID
P.strFieldsList = "TopicID,Face,Caption,Name,TopType,IsGood,AddTime,BoardID,LastTime,Hits,LastReply,UploadType,IsVote,ReplyNum,SqlTableID,IsLock,Font"
P.strCondiction = Condection
P.strOrderList = "TopType desc,LastTime desc"
P.strPrimaryKey = "TopicID"
P.intPageSize = Int(MNBoard.Info(61))
P.intPageNow = intPageNow
P.strCookiesName = "List"&MNBoard.BoardID&"BBS"&Flag'客户端记录总数
'P.Reloadtime=3'默认三分钟更新Cookies
P.InitClass
Arr_Rs = P.arrRecordInfo
strPageInfo = P.strPageInfo
Set P = nothing
If IsArray(Arr_Rs) Then
TopicLine = -1
For i = 0 to UBound(Arr_Rs, 2)
Moodpic=MNBoard.SkinsPIC(16)
If Arr_Rs(13,i) > Int(MNBoard.Info(62)) Then Moodpic=MNBoard.SkinsPIC(15)
If Arr_Rs(5,i)=1 Then Moodpic=MNBoard.SkinsPIC(13)'精华
If Arr_Rs(15,i)=1 Then Moodpic=MNBoard.SkinsPIC(17)'锁定
If Arr_Rs(12,i)=1 Then Moodpic=MNBoard.SkinsPIC(14)'投票
If Arr_Rs(4,i)=5 Then Moodpic=MNBoard.SkinsPIC(10)'总顶
If Arr_Rs(4,i)=4 Then Moodpic=MNBoard.SkinsPIC(11)'区顶
If Arr_Rs(4,i)=3 Then Moodpic=MNBoard.SkinsPIC(12)'顶
Facepic="![](pic/face/"&Arr_Rs(1,i)&".gIf)
"
UploadType=""
If Arr_Rs(11,i)<>"" Then Uploadtype="![](pic/FileType/"&Arr_Rs(11,i)&".gif)
"
LastRe=split(Arr_Rs(10,i),"|")
RePage=(Arr_Rs(13,i)+1)\10
If RePage<(Arr_Rs(13,i)+1)/10 Then RePage=RePage+1
RePageUrl="Topic.asp?id="&Arr_Rs(0,i)&"&BoardID="&Arr_Rs(7,i)&"&TB="&Arr_Rs(14,i)
Leftn=60
If RePage>4 Then leftn=56
If Repage>10 Then leftn=50
If MNBoard.Fun.strLength(Arr_Rs(2,i)) > leftn Then
Caption=MNBoard.Fun.StrLeft(Arr_Rs(2,i),leftn-16) & MNBoard.Fun.StrRight(Arr_Rs(2,i),16) & "[长]"
Else
Caption=Arr_Rs(2,i)
End If
S=Arr_Rs(16,i)
If Not isNull(S) And S<>"" Then
S=Split(S,"|")
If S(0)<>"" Then Caption="<"&S(0)&">"&Caption&""
If S(1)<>"" Then Caption=""&Caption&""
End If
'打开方式
If MNBoard.Info(69)="1" Then S="target='_blank' " Else S=""
Caption=UploadType&""&Caption&""
If Repage>1 Then
Caption=Caption&" [
"
If RePage<=5 Then
For ii=2 To RePage
Caption=Caption&""&ii&" "
Next
Else
For ii=2 To 4
Caption=Caption&""&ii&" "
Next
Caption=Caption&"... "&RePage&" "
End If
Caption=Caption&" ]"
End If
S=MNBoard.ReadSkins("显示主题列表")
If Datediff("n",Arr_Rs(8,i),MNBoard.NowbbsTime)<=180 Then Caption=Caption&MNBoard.SkinsPIC(18)
S=Replace(S,"{状态}",Moodpic)
S=Replace(S,"{表情}",Facepic)
S=Replace(S,"{用户名称}",""&Arr_Rs(3,i)&"")
S=Replace(S,"{回复数}",Arr_Rs(13,i))
S=Replace(S,"{点击数}",Arr_Rs(9,i))
S=Replace(S,"{主题时间}",Arr_Rs(6,i))
S=Replace(S,"{最后时间}",Arr_Rs(8,i))
S=Replace(S,"{回复用户名称}",""&LastRe(0)&"")
S=Replace(S,"{主题}",Caption)
If Arr_Rs(4,i) >= 3 Then TopicLine = 0
If Arr_Rs(4,i) < 3 and TopicLine = 0 Then
S = "主题列表
" & S
TopicLine = 1
End If
TopicS=TopicS&S
Next
End If
ShowTopic=TopicS
End Function
%>