www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/data/online.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<link href="../inc/mm.css" rel="stylesheet" type="text/css">
<% 
mytit="当前在线"

call show()

'显示
sub show()
call record(rs,"select * from online where datediff('n',lastm,now())<=20",1)
call head() 
dim sz
sz=24

call head() 
%>
<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF" class="wb">
<tr>
<td><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="6" id="tit"><%= mytit %></td>
</tr>
<form action="<%= url("action") %>action=sdel" method="post" name="form1" id="form1">
<tr>
<td colspan="6" bgcolor="#C5E0F3"><strong>当前在线总人数：<span class="fontr"><%= getnum(" online where datediff('n',lastm,now())<=20") %> </span></strong>人</td>
</tr>
<tr>
<td width="4%" height="20" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="33%" bgcolor="#C5E0F3"><strong>访问页面</strong></td>
<td width="15%" bgcolor="#C5E0F3"><strong>用户名</strong></td>
<td width="15%" bgcolor="#C5E0F3"><strong>IP<span style="display:none;">
<% call fenpage(sz,rs,10) %>
</span></strong></td>
<td width="15%" bgcolor="#C5E0F3"><strong>上线时间</strong></td>
<td width="18%" bgcolor="#C5E0F3"><strong>活跃时间</strong></td>
</tr>
<% 
dim i
i=1
dim bgc
do while not rs.eof and i<=sz 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor="<%= bgc %>" onmouseover="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onmouseout="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= i %></td>
<td><a href="<%= rs("pagename") %>" target="_blank"><%= rs("mc") %></a></td>
<td><%
if rs("uname")="0" then 
Response.Write("[访客]")
else
Response.Write("<a href=""../user/users.asp?action=ups&id="&rs("uid")&""">"&rs("uname")&"</a>")
end if
%></td>
<td><%= rs("ip") %></td>
<td><%= rs("ctim") %></td>
<td><%= datediff("n",rs("ctim"),rs("lastm")) %> 分钟</td>
</tr>
<% 
i=i+1
rs.movenext 
loop
%>
<tr>
<td height="26" colspan="6" bgcolor="#C5E0F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table>
<% 
call recordend(rs)
call foot() 
end sub
%>