<% stats="论坛在线" dim guests,page_count,Pcount dim totalrec call nav() call headline(1) if founderr then call error() else call main() end if call endline() sub main() dim mysql set rs=server.createobject("adodb.recordset") if BoardID="" then mysql="select username,stats,browser,comefrom,startime from online order by userclass desc" elseif not isInteger(BoardID) then mysql="select username,stats,browser,comefrom,startime from online order by userclass desc" else BoardID=clng(request("BoardID")) sql="select boardtype from board where boardid="&boardid rs.open sql,conn,1,1 if rs.eof and rs.bof then mysql="select username,stats,browser,comefrom,startime from online order by userclass desc" else boardtype=rs(0) mysql="select username,stats,browser,comefrom,startime from online where boardid="&boardid&" order by userclass desc" end if end if rs.close set rs=nothing dim totalPages,currentPage 'response.write boardid 'response.end currentPage=request.querystring("page") if currentpage="" or not isInteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) if err then currentpage=1 err.clear end if end if %> cellspacing=0 border=0 bordercolor=<%=Tablebackcolor%> align=center>

> style=color:<%=TableFontColor%>> <% set rs=server.createobject("adodb.recordset") rs.open mysql,conn,1,1 if rs.eof and rs.bof then %> > <% else rs.PageSize = MaxAnnouncePerpage rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount while (not rs.eof) and (not page_count = rs.PageSize) %> > <% page_count = page_count + 1 rs.movenext wend end if %>

<%if boardtype<>"" then%>当前论坛共有<%=allonline()%>位用户在线，其中<%=boardtype%>有<%=online(boardid)%>位在线用户与<%=guest(boardid)%>位客人<%else%>当前论坛共有<%=allonline()%>位用户在线<%end if%>
用户名	当前位置	用户信息	来源鉴定	登陆时间
还没有任何用户数据。
" target=_blank><%=htmlencode(rs("username"))%>	<%=rs("stats")%>	<%=replace(system(rs("browser")),"操作系统：","")%>，<%=replace(replace(browser(rs("browser")),"浏览器：",""),"Internet Explorer","IE")%>	<%if FromFlag=0 then%><%if boardmaster or master then%><%=rs("comefrom")%><%else%>已设置保密<%end if%><%else%><%=rs("comefrom")%><%end if%>	<%=formatdatetime(rs("startime"),2)%> <%=formatdatetime(rs("startime"),4)%>

<% dim endpage Pcount=rs.PageCount response.write ""&_ ""&_ "

"&_ "页次："¤tpage&"/"&Pcount&"页"&_ "每页"&MaxAnnouncePerpage&" 用户数"&totalrec&"

分页： " if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if response.write "

" rs.close set rs=nothing end sub %>