<% Dim S,Page,Page_Url Page=Request.querystring("Page") If Page > 1 Then Page_Url = "?Page="&Page Else Page_Url = "" End If MNBoard.Head "Member.asp"&Page_Url,"","查看会员在线" Call ShowOnlineList() MNBoard.Footer() Set MNBoard =Nothing Function ShowOnlineList() Dim Temp,list,OnlineCache,AllonlineNum,EachOnline,User,S,I,II,pic,UserIP,PageInfo,TempBoard,CountOnline Dim PSize,Page,PageMax If MNBoard.Cache.valid("OnlineCache") Then OnlineCache=MNBoard.Cache.Value("OnlineCache") EachOnline=Split(OnlineCache,",") AllonlineNum=uBound(EachOnline)-1 If MNBoard.BoardID<>0 Then For I=0 To AllonlineNum Temp=Split(EachOnline(i),"|") If Int(Temp(8))=MNBoard.BoardID Then TempBoard=TempBoard&EachOnline(i)&"," End If Next OnlineCache=TempBoard EachOnline=Split(OnlineCache,",") AllonlineNum=uBound(EachOnline)-1 End If PSize=Int(MNBoard.Info(47)) Page=Request.querystring("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 CountOnline = AllOnlineNum 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=MNBoard.SkinsPic(21) Case "8" Pic=MNBoard.SkinsPic(22) Case "7" Pic=MNBoard.SkinsPic(23) Case "4" Pic=MNBoard.SkinsPic(24) Case "1" If MNBoard.MyAdmin<>9 Then User="隐士" Pic=MNBoard.SkinsPic(26) Case "0" If User="" Then Pic=MNBoard.SkinsPic(27) User="访客" Else Pic=MNBoard.SkinsPic(25) End If End Select If MNBoard.FoundUser Then If SESSION(CacheName& "MyGradeInfo")(42)="1" Then UserIP=Temp(5) End If End If List = List & "

"&Pic&"

" List = List & "

" If Temp(1)<>"" And Temp(1)=MNBoard.MyName Then List = List & " "&User&"" Else List = List & " "&User&"" End If List = List & "

" List = List & "

"&Hour(Temp(4))&":"&Minute(Temp(4))&"

" List = List & "

"&Temp(10)&"

" List = List & "

" If Temp(9) <> "" Then List = List & "" List = List & Temp(7) If Temp(9) <> "" Then List = List & "" List = List & "

" List = List & "

" Next Dim surl,PageNMin,PageNMax PageInfo = "" surl = "Member.asp?Page=" PageInfo = "" PageInfo = PageInfo &"

" & CountOnline & "