<!--#include file="Config.asp" -->
<%
  const MaxPerPage=45
   	dim totalPut
   	dim CurrentPage
   	dim TotalPages
   	dim i,j
   	dim sql
   	dim rs
   	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
  set Rs=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>.::88852门户网 在线统计系统 ::.</title>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" background="img/bg_cihn.gif">
  <tr> 
    <td width="1%"><IMG SRC="img/img_24.gif" WIDTH=22 HEIGHT=30 ALT=""></td>
    <td width="1%"><IMG SRC="img/img_25.gif" WIDTH=12 HEIGHT=30 ALT=""></td>
    <td width="100%" background="img/img_26.gif"> 
      <div align="center"></div>
    </td>
    <td width="1%"> 
      <div align="right"><IMG SRC="img/img_28.gif" WIDTH=32 HEIGHT=30 ALT=""></div>
    </td>
  </tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="9"> 
      <div align="left"><img src="img/img_42.gif" width="720" height="9"></div>
    </td>
    <td width="7" background="img/img_44.gif"></td>
  </tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="98%" background="img/img_20.gif"><img src="img/spacer.gif" width="1" height="1"></td>
    <td width="2%" background="img/img_44.gif"><img src="img/spacer.gif" width="7" height="1"></td>
  </tr>
</table>
<table width="95%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="1" background="img/img_42.gif"><img src="img/spacer.gif" width="1" height="1"></td>
    <td> 
      <div align="left"> 
        <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>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="6"> 
              <% 
	  sql="select * from "&CategoryName&"_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
           		showpage totalput,MaxPerPage,"ShowOnline.asp"
            		showContent
            		showpage totalput,MaxPerPage,"ShowOnline.asp"
       		else
          		if (currentPage-1)*MaxPerPage<totalPut then
            			rs.move  (currentPage-1)*MaxPerPage
            			dim bookmark
            			bookmark=rs.bookmark
           			showpage totalput,MaxPerPage,"ShowOnline.asp"
            			showContent
             			showpage totalput,MaxPerPage,"ShowOnline.asp"
        		else
	        		currentPage=1
           			showpage totalput,MaxPerPage,"ShowOnline.asp"
           			showContent
           			showpage totalput,MaxPerPage,"ShowOnline.asp"
	      		end if
	   	end if
   	rs.close 	
   	end if 
	         
   	sub showContent 
       	dim i 
	   	i=0 
%>
            </td>
          </tr>
          <% do while not rs.eof %>
          <tr bgcolor="#FFFFFF"> 
            <td align="center"><%= rs("UserName") %></td>
            <td align="center"><%= rs("startime") %></td>
            <td align="center"><%= rs("lastimebk") %></td>
            <td align="center"><%= rs("ip") %></td>
            <td align="center"><%= system(rs("browser")) %></td>
            <td align="center"><%= browser(rs("browser")) %></td>
          </tr>
          <%
	      i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	    loop
	%>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="6" 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>位用户/页 "
%>
              转到： 
              <select name='select' 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>
              <%   
	response.write "</td></tr></FORM></table>"
end function
%>
            </td>
          </tr>
        </table>
        <br>
      </div>
    </td>
    <td width="1" background="img/img_44.gif"><img src="img/spacer.gif" width="7" height="1"></td>
  </tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="100%"> 
      <div align="left"><img src="img/img_63.gif" width="660" height="9"></div>
    </td>
    <td width="1"> 
      <div align="right"><img src="img/img_65.gif" width="59" height="9"></div>
    </td>
  </tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="1"><IMG SRC="img/img_55.gif" WIDTH=23 HEIGHT=41 ALT=""></td>
    <td background="img/img_57.gif">&nbsp;</td>
    <td width="1"><a href="http://www.88852.com"><IMG SRC="img/img_58.gif" ALT="" WIDTH=59 HEIGHT=41 border="0"></a></td>
  </tr>
</table>
</body>
</html>

