📄 showonline.asp

📁 一个网络相册
💻 ASP
字号:
<!-- #include file="conn1.asp" -->
<!-- #include file="function.asp" -->
<!--#include file="iXs_Ip.asp" -->
<%
  const MaxPerPage=45
   	dim totalPut
   	dim CurrentPage
   	dim TotalPages
   	dim i,j
   	dim sql
   	dim rs
   	dim kicktime,lastimebk,ip
        kicktime=10
   	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
  set Rs=server.createobject("adodb.recordset")
%>
<HTML><HEAD><TITLE>在线列表</TITLE>
<meta http-equiv="refresh" content="10; url=showonline.asp">
<LINK href="style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY vLink=#000000 link=#000000>
<table width="98%" border=0 align="center" cellpadding=1 cellspacing=1 bgcolor="#cccccc">
  <tr bgcolor="#f0f0f0"  height=25>
    <td align="center">用户</td>
    <td align="center">访问时间</td>
    <td align="center"  nowrap>活动时间</td>
    <td align="center"  nowrap>用户IP</td>
    <td align="center"  nowrap>地址</td>
    <td align="center"  nowrap>操作系统</td>
    <td align="center"  nowrap>浏览器</td>
    <td align="center"  nowrap>当前位置</td>
  </tr>
      <% 
      sql="Delete FROM online WHERE DATEDIFF('s', lastimebk, now()) > "&kicktime&"*60"
      Conn.Execute sql
	  sql="select * from Online order by lastimebk Desc"
       rs.open sql,conn,1,1 
  	  if rs.eof and rs.bof then 
       		response.write "<table><tr><td border=""0"" width=""100%"" height=""100%"" cellspacing=""1"" cellpadding=""0"" bgcolor=""#FFFFFF""><p align=""center"">没有或没有找到任何在线用户，</p></td></tr></table>" 
      else 
     		totalPut=rs.recordcount
      		if currentpage<1 then
          		currentpage=1
      		end if
      		if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     			currentpage= totalPut \ MaxPerPage
	  		else
	      			currentpage= totalPut \ MaxPerPage + 1
	   		end if
      		end if
       		if currentPage=1 then

            		showContent
            		showpage totalput,MaxPerPage,"ShowOnline.asp"
       		else
          		if (currentPage-1)*MaxPerPage<totalPut then
            			rs.move  (currentPage-1)*MaxPerPage
            			dim bookmark
            			bookmark=rs.bookmark

            			showContent
             			showpage totalput,MaxPerPage,"ShowOnline.asp"
        		else
	        		currentPage=1

           			showContent
           			showpage totalput,MaxPerPage,"ShowOnline.asp"
	      		end if
	   	end if
   	rs.close 	
   	end if 
	         
   	sub showContent 
       	dim i 
	   	i=0 
%>
  <% do while not rs.eof
  ip=rs("ip")
  if rs("ip")="61.131.62.133" then
  ip="*.*.*.*"
  end if
  %>
  <tr bgcolor="#FFFFFF">
    <td align="center"><%= rs("UserName") %></td>
    <td align="center"><%= rs("startime") %></td>
    <td align="center"><%= rs("lastimebk") %></td>
    <td align="center"><%= trim(ip) %></td>
    <td align="center"><%= trim(look_ip(ip)) %></td>
    <td align="center"><%= system(rs("browser")) %></td>
    <td align="center"><%= browser(rs("browser")) %></td>
    <td align="center"><%= rs("mem") %></td>
  </tr>
  <%
	      i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	    loop
	%>
  <tr bgcolor="#FFFFFF">
    <td colspan="8" height="20">
      <%
   end sub 

	function showpage(totalnumber,maxperpage,filename)
  	dim n

  	if totalnumber mod maxperpage=0 then
     		n= totalnumber \ maxperpage
  	else
     		n= totalnumber \ maxperpage+1
  	end if
  	response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="""&filename&"""><tr><td align=right> "
  	if CurrentPage<2 then
    		response.write "当前共有<strong><font color=red>"&totalnumber&"</font></strong>位用户在线&nbsp;首页 上一页&nbsp;"
  	else
    		response.write ""&totalnumber&"位&nbsp;<a href="&filename&"?page=1&"">首页</a>&nbsp;"
    		response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a>&nbsp;"
  	end if

  	if n-currentpage<1 then
    		response.write "下一页 尾页"
  	else
    		response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
    		response.write "下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
  	end if
   	       response.write "&nbsp;页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
           response.write "&nbsp;<b>"&maxperpage&"</b>位用户/页 "
%>
      转到：
<form name="form1" method="post" action="showonline.asp">
      <select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
        <%for i = 1 to n%>
        <option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
        <%next%>
      </select></form>
      <%   
	response.write "</td></tr></FORM></table>"
end function
%>
    </td>
  </tr>
</table>
<div align="center"><a href="Showlist.Asp"><br>查看历史记录</a></div>
</BODY></HTML>
<%
  set rs=nothing
CloseDatabase
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -