online.asp

一个超市管理系统

<!-- #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=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td>　<img src="images/closedfold.gif" border="0">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　查看在线会员资料</td>
</tr>
</table><BR>

<%

count=conn.execute("Select count(sessionid)from online")(0)
regonline=conn.execute("Select count(sessionid)from online where username<>''")(0)

pagesetup=20   '设定帖子每页的显示数量

sql="select * from online order by lasttime Desc"
rs.Open sql,Conn

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




if Request.Cookies("lookip")<>"1" and membercode<4 then
ips=split(rs("ip"),".")
ip=""&ips(0)&"."&ips(1)&".*.*"
else
ip=""&rs("ip")&""
end if


if rs("username")="" then
username="访 客"
elseif rs("eremite")=1 and membercode<5 then
username="隐 身"
else
username="<img src=images/face/"&rs("userface")&".gif width=16 height=16> <a href=Profile.asp?username="&rs("username")&">"&rs("username")&"</a>"
end if



place2=""
if rs("act")<>"" then
place2 = "浏览“<a onclick=min_yuzi() target=message href="&rs("acturl")&">"&rs("act")&"</a>”"
place = "『 "&rs("bbsname")&" 』"
else
place = "『 <a href="&rs("acturl")&">"&rs("bbsname")&"</a> 』"
end if
allline=""&allline&"<TR align=middle class=a4><TD height=24>"&ip&"</TD><TD height=24>"&rs("cometime")&"</TD><TD height=24>"&username&"</TD><TD height=24>"&place&"　</TD><TD height=24>"&place2&"　</TD><TD height=24>"&rs("lasttime")&"</TD></TR>"

rs.movenext
loop
rs.close



%>


<TABLE cellSpacing=1 cellPadding=1 width=97% align=center border=0 class=a2>

<TR class=a3 height=25>
<TD align=middle colSpan=7 height=23>目前论坛总共有 <%=count%> 人在线。其中注册用户 <%=regonline%> 人，访客 <%=count-regonline%> 人。</TD></TR>



<TR align=middle>

<TD height=23 class=a1>IP地址</TD>
<TD height=23 class=a1>登陆时间</TD>
<TD height=23 class=a1>用户名</TD>
<TD height=23 class=a1>当前位置</TD>
<TD height=23 class=a1>当前动作</TD>
<TD height=23 class=a1>活动时间</TD>

</TR>

<%=allline%>

</TABLE><center>


Page：[
  <% 
 for i=1 to TotalPage
  If i<>PageCount then
  Response.Write "<a href=?topage="& i &">" & i & "</a> " 
  else
  Response.Write ""&i&" "
  end if
 next
 %>
 ]<br>





<%


htmlend
%>