0 Then
Width=100\Child
Else
width=100\Int(BoardString(2))
End If
II=0
Else
BigBoard=area
End If
If i >= 1 Then
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board=Board&BoardStr
BoardChild =""
End IF
BoardStr=Replace(BigBoard,"{分类名称}",.Board_Rs(3,i))
Else
If BoardString(1)="1" or Session(CacheName& "BoardStyle")="1" Then
Child=Child-Int(.Board_Rs(8,i))
II=II+1
If II=Int(BoardString(2)) or II=Child Then
BoardChild=BoardChild&""&.GetBoardInfo("1",i)&"
"
Else
BoardChild=BoardChild&""&.GetBoardInfo("1",i)&"
"
End If
If II=Child Then BoardChild=BoardChild&""
Else
BoardChild=BoardChild&.GetBoardInfo("0",i)
End IF
End If
End If
Next
BoardStr=Replace(BoardStr,"{显示版块}",BoardChild)
Board = Board&BoardStr
Response.Write Board
End With
End Sub
Function ShowOnline()
Dim S
S=BBS94KK.ReadSkins("首页在线统计")
S=Replace(S,"{显示在线列表}","")
Dim BrowserType
Set BrowserType=New Cls_Browser
S=Replace(S,"{用户系统}",BrowserType.platform)
S=Replace(S,"{用户浏览器}",BrowserType.Browser & BrowserType.version)
Set BrowserType=Nothing
S=Replace(S,"{用户IP}",BBS94KK.MyIp)
S=Replace(S,"{建站时间}",BBS94KK.Info(5))
S=Replace(S,"{在线总数}",BBS94KK.AllOnlineNum)
S=Replace(S,"{会员数}",BBS94KK.UserOnlineNum)
S=Replace(S,"{游客数}",BBS94KK.AllOnlineNum-BBS94KK.UserOnlineNum)
S=Replace(S,"{在线最大数}",BBS94KK.InfoUpdate(7))
S=Replace(S,"{最大数时间}",BBS94KK.InfoUpdate(8))
If Session(CacheName&"online")="1" then
S=S&""
End If
ShowOnline=S
End Function
'显示生日 94kkBBS2.0没有会员生日时不显示
Sub ShowBirthday()
Dim S
If BBS94KK.Cache.valid("Birthday") then
S=Split(BBS94KK.Cache.Value("Birthday"),"|")
If S(0)="0" Then Exit Sub
BBS94KK.ShowTable S(0),S(1)
Else
Dim Rs,Arr_Rs,I,Num,UserBirthday
Set Rs=BBS94KK.Execute("Select Name,Birthday From [KK_User] where Month(Birthday)=Month(now) and day(Birthday)=day(now)")
IF Not Rs.eof Then Arr_Rs=Rs.getrows()
Rs.Close
Set Rs=Nothing
Num=0
If IsArray(Arr_Rs) Then
For i = 0 to UBound(Arr_Rs,2)
Num=Num+1
UserBirthday=UserBirthday&" ![生日]()
祝"&Arr_Rs(0,i)&"生日快乐 "
Next
End If
If i>5 Then UserBirthday=""
If Num=0 Then
S="0|0"
Else
S="今天共有 "&num&" 位会员过生日"
BBS94KK.ShowTable S,UserBirthday
S=S&"|"&UserBirthday
End If
BBS94KK.Cache.add "Birthday",S,dateadd("n",1200,now)
End If
End Sub
Sub ShowLink()
Dim rs,Arr_Rs,I,Temp,lpic
If BBS94KK.Cache.valid("LinkInfo") then
Temp=BBS94KK.Cache.Value("LinkInfo")
Else
Set Rs=BBS94KK.Execute("Select ID,Orders,BbsName,Url,pic,Readme,pass,Ispic From[KK_Link] where pass=1 and IsIndex=1 order by ispic,orders")
If Rs.Eof Then
Exit Sub
Else
Arr_Rs=Rs.GetRows
Rs.Close
Set Rs=Nothing
For i=0 To Ubound(Arr_Rs,2)
If Arr_rs(7,i)=0 Then lpic=Arr_rs(2,i) Else Lpic="![]()
"
Temp=Temp&""&lpic&" | "
IF (I+1) mod 7 = 0 Then Temp=Temp&""
Next
Temp=""
BBS94KK.Cache.add "LinkInfo",Temp,dateadd("n",10000,now)
End If
End If
BBS94KK.ShowTable "论坛联盟 【全部友情链接】【自助申请连接】",""&Temp&"
"
End Sub
Function ShowNewHot()
BBS94KK.ShowTable"新帖热帖","| "&GetNewTopic(1,5)&" | "&GetNewTopic(2,5)&" |
"
End Function
Function GetNewTopic(flag,Num)
Dim Rs,Sql,Noshow,i,S
Noshow=BBS94KK.NoShowTopic()
If BBS94KK.Cache.valid("IndexNewTopic"&Flag) then
GetNewTopic=BBS94KK.Cache.Value("IndexNewTopic"&Flag)
Else
If Noshow="" Then NoShow="0"
S="":I=0
If Flag=1 Then
Sql="select TopicID,Name,Face,Caption,boardid,lasttime,SqlTableID From [KK_topic] where isdel=False And BoardID not in("&Noshow&") order by lasttime DESC"
Else
Sql="select TopicID,Name,Face,Caption,BoardID,LastTime,SqlTableID From [KK_topic] where isdel=False And BoardID not in("&Noshow&") And DATEDIFF('d',[LastTime],'"&BBS94KK.NowBbsTime&"')<7 order by ReplyNum DESC"
End If
Set Rs=BBS94KK.Execute(Sql)
Do while not Rs.eof
I=I+1
If I>Int(Num) Then Exit Do
S=S&"
![]() | "&BBS94KK.Fun.StrLeft(Rs("Caption"),40)&" | "&Rs("Name")&" |
"
Rs.movenext
Loop
Rs.Close
GetNewTopic=""
BBS94KK.Cache.add "IndexNewTopic"&Flag,GetNewTopic,dateadd("n",20,now)
End If
End Function
Function Showcham()
Call BBS94KK.ShowTable("社区明星",bbs94kk.GetTopicCham())
End Function
%>