<%@ codepage ="936" %>
<!-- #include file="setup.asp" -->
<%
top
%>
<title>在线人员</title>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
</style>
<table width=100% align="center" border="0">
<tr>
<td vAlign="top" width="30%"></td>
<td>&nbsp;&nbsp;<img src="images/closedfold.gif" border="0">&nbsp;&nbsp;<a href="index.asp"><%=clubname%></a><br>
&nbsp;&nbsp;<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">&nbsp;&nbsp;查看在线会员资料</td>
</tr>
</table><BR>
<TABLE cellSpacing=0 width=100% align=center bgColor=a4b6d7 border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<table borderColor="#a4b6d7" height="28" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1">
<tr bgColor="#c4d4e5">
<td align="middle" width="35" bgColor="#ecf5ff">
<img src="images/announce.gif" align="middle"></td>
<td width="706" bgColor="#f2f8ff">&nbsp;</td>
</tr>
</table>
<%
count=conn.execute("Select count(*)from online")(0)
regonline=conn.execute("Select count(*)from online where username<>''")(0)
pagesetup=20 '设定帖子每页的显示数量
sql="select * from online order by lasttime Desc"
rs.Open sql,Conn,1
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1
username=rs("username")
place = "『 <a href="&rs("bbsname")&">当前位置</a> 』"
allline=""&allline&"<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=100% align=center border=1><TBODY><TR align=middle bgColor=c4d4e5><TD width=138 bgColor=f2f8ff height=24>"&rs("cometime")&"</TD><TD width=101 bgColor=ecf5ff height=24>"&username&"</TD><TD width=125 bgColor=f2f8ff height=24>"&place&"　</TD><TD width=132 bgColor=ecf5ff height=24>"&rs("lasttime")&"</TD></TR></TBODY></TABLE>"
rs.movenext
loop
rs.close
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=100% align=center
bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD vAlign=center align=middle bgColor=c4d4e5 colSpan=7
height=23>目前论坛总共有 <%=count%> 人在线。其中注册用户 <%=regonline%> 人，访客 <%=count-regonline%> 人。</TD></TR></TBODY></TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=100% align=center
border=1>
<TBODY>
<TR align=middle bgColor=c4d4e5>
<TD width=138 height=23>登陆时间</TD>
<TD width=101 height=23>用户名</TD>
<TD width=125 height=23>当前位置</TD>
<TD width=132 height=23>活动时间</TD>
</TR></TBODY></TABLE>
<%=allline%>
<center>
[
<%
if TotalPage=0 then
TotalPage=1
PageCount=1
end if
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1>1</a> ... "
end if
for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?topage="& i &">" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next
if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&">"&TotalPage&"</a>"
end if
%>
]<br>
<%
htmlend
%>