<%@ LANGUAGE="VBSCRIPT" %> <% stats="论坛在线" dim rs,sql,boardid boardid=request("boardid") call nav() call headline(1) if founderr then call error() else call main() end if call endline() sub main() set rs=server.createobject("adodb.recordset") if BoardID="" then sql="select * from online order by userclass desc" elseif not isInteger(BoardID) then sql="select * 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 sql="select * from online order by userclass desc" else boardtype=rs(0) sql="select * from online where stats like '%"&boardtype&"%' order by userclass desc" end if end if dim totalPages,currentPage currentPage=request.querystring("page") %> cellspacing=0 border=0 bordercolor=<%=Tablebackcolor%> align=center>

> style=color:<%=TableFontColor%>> <% set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then %> > <% else rs.pagesize=20 totalpages=rs.pagecount if currentpage="" then currentpage=1 if not isNumeric(currentpage) then currentpage=1 elseif Cint(currentpage)>totalpages then currentpage=totalpages end if currentpage=Cint(currentpage) rs.absolutepage=currentpage for i=1 to 20 if rs.eof then exit for %> > <% rs.movenext next end if rs.close set rs=nothing %> <%if boardtype<>"" then%>当前论坛共有<%=allonline()%>位用户在线，其中<%=boardtype%>有<%=online()%>位在线用户与<%=guest()%>位客人<%else%>当前论坛共有<%=allonline()%>位用户在线<%end if%> 用户名 当前位置 用户信息 来源鉴定 登陆时间 　　还没有任何用户数据。 ',350,300)"><%=htmlencode(rs("username"))%> <%=rs("stats")%> <%=replace(system(rs("browser")),"操作系统：","")%>，<%=replace(replace(browser(rs("browser")),"浏 览 器：",""),"Internet Explorer","IE")%> <%if FromFlag=0 then%><%if memberclass=grade(19) or memberclass=grade(20) then%><%=rs("comefrom")%><%else%>已设置保密<%end if%><%else%><%=rs("comefrom")%><%end if%> <%=formatdatetime(rs("startime"),2)%> <%=formatdatetime(rs("startime"),4)%>

<% if currentpage=0 then currentpage=1 response.write "共 "&totalpages&" 页 第 "¤tpage&" 页　" if currentpage=1 or totalpages=0 then response.write "首页　前页" else response.write "首页　前页" end if if currentpage=totalpages or totalpages=0 then response.write "　后页　尾页" else response.write "　后页　尾页" end if %>

<% end sub function online() guests="客人" tmprs=conn.execute("Select count(id) from online where username<>'"&guests&"' and stats like '%"&boardtype&"%'") online=tmprs(0) set tmprs=nothing if isnull(online) then online=0 end function function allonline() tmprs=conn.execute("Select count(id) from online") allonline=tmprs(0) set tmprs=nothing if isnull(allonline) then allonline=0 end function function guest() guests="客人" tmprs=conn.execute("Select count(id) from online where username='"&guests&"' and stats like '%"&boardtype&"%'") guest=tmprs(0) set tmprs=nothing if isnull(guest) then guest=0 end function %>