<%
Dim ID,OnlineList,OnlinePic,Onlinedisplay
ID=request.querystring("ID")
If ID="1" Then Session(CacheName&"Online")=""
If Session(CacheName&"Online")="1" Then
If ID<>"1" Then Session(CacheName&"Online")="0"
OnlineList=""
Onlinedisplay = "none"
OnlinePic = BBS.ReadSkins("i@SkinDir")&"/+.gif"
Else
Session(CacheName&"Online")="1"
OnlineList=ShowOnlineList()
Onlinedisplay = ""
OnlinePic = BBS.ReadSkins("i@SkinDir")&"/-.gif"
End If
Set BBS =Nothing
Function ShowOnlineList()
Dim Temp,list,OnlineCache,AllonlineNum,EachOnline,User,S,I,II,pic,UserIP,PageInfo,TempBoard
Dim PSize,page,PageMax,Title
If BBS.Cache.valid("OnlineCache") Then
OnlineCache=BBS.Cache.Value("OnlineCache")
EachOnline=Split(OnlineCache,",")
AllonlineNum=uBound(EachOnline)-1
If BBS.BoardID<>0 Then
For I=0 To AllonlineNum
Temp=Split(EachOnline(i),"|")
If Int(Temp(8))=BBS.BoardID Then
TempBoard=TempBoard&EachOnline(i)&","
End If
Next
OnlineCache=TempBoard
EachOnline=Split(OnlineCache,",")
AllonlineNum=uBound(EachOnline)-1
End If
PSize=Int(BBS.Info(47))
page=Request("page")
If not isnumeric(page) then Page=1
page=int(page)
If AllOnlineNum-1 mod PSize = 0 Then
PageMax = AllOnlineNum \ PSize
Else
PageMax = AllOnlineNum \ PSize + 1
End If
If Page >PageMax Then Page=PageMax
If Page<1 Then Page=1
If AllonlineNum =>page*PSize Then AllonlineNum=page*PSize-1
For i=(page*PSize-pSize) to AllonlineNum
II=II+1
Temp=Split(EachOnline(i),"|")
User=Temp(1)
UserIp="已设置保密"
Select Case Temp(6)
Case "9"
Pic=BBS.SkinsPic(21)
Case "8"
Pic=BBS.SkinsPic(22)
Case "7"
Pic=BBS.SkinsPic(23)
Case "4"
Pic=BBS.SkinsPic(24)
Case "1"
If BBS.MyAdmin<>9 Then User="隐士"
Pic=BBS.SkinsPic(26)
Case "0"
If User="" Then
Pic=BBS.SkinsPic(27)
User="访客"
Else
Pic=BBS.SkinsPic(25)
End If
End Select
If BBS.FoundUser Then
If SESSION(CacheName& "MyGradeInfo")(42)="1" Then
UserIP=Temp(5)
End If
End If
Title="所在位置："&Temp(7)&"
进入时间："&Temp(3)&"
活动时间："&Temp(4)&"
真实IP地址："&UserIp
If User="访客" or User="隐士" Then
If Temp(1)<>"" And Temp(1)=BBS.MyName Then
User = " "&User&""
Else
User = " "&User&""
End If
Else
If Temp(1)<>"" And Temp(1)=BBS.MyName Then
User = " "&User&""
Else
User=" "&User&""
End If
End If
List=List&"| "&pic&User&" | "
If II mod 5 =0 And II<>PSize Then List=List&""
Next
PageInfo="页次："&Page&" / "&PageMax&"页"
if Page<>1 then
PageInfo=PageInfo&"【首页】"
PageInfo=PageInfo& "【上一页】"
end if
If PageMax-Page>=1 then
PageInfo=PageInfo& "【下一页】"
PageInfo=PageInfo& "【尾页】"
End if
List=""
S=BBS.ReadSkins("显示在线列表")
S=Replace(S,"{管理员}",BBS.SkinsPic(21))
S=Replace(S,"{超级版主}",BBS.SkinsPic(22))
S=Replace(S,"{版主}",BBS.SkinsPic(23))
S=Replace(S,"{VIP会员}",BBS.SkinsPic(24))
S=Replace(S,"{会员}",BBS.SkinsPic(25))
S=Replace(S,"{隐身}",BBS.SkinsPic(26))
S=Replace(S,"{游客}",BBS.SkinsPic(27))
S=Replace(S,"{用户列表}",list)
S=Replace(S,"{分页}",PageInfo)
S=Replace(S,CHR(34),CHR(39))
S=Replace(S,VbCrlf,"")
ShowOnlineList=S
End If
End Function
%>