<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))

set cschat=nothing
application.unlock
if  my_level-application( ConstStr & "_superlevel")<>0 then response.end

ct_num=Request("num")
if not IsNumeric(ct_num) or ct_num="" then ct_num=1
if (ct_num-0)<0 then
  ct_num=0
end if%>
<META content="text/html; charset=gb2312" http-equiv=content-type>
<link rel="stylesheet" type="text/css" href="chat.css">
<script>function xx(f,i,n) {document.write("<tr><td>"+f+"</td><td nowrap>"+i+"</td><td>"+n+"</td><td><a href='finduser.asp?findkey="+i+"'>查找</a><td><a href='superuser.asp?ip="+i+"&forwhat=恶意登录多个帐号'>封锁</a></td>");}</script>
<body  style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=10 >
<table cellspacing=0 cellpadding=0 align=center width=400 height=100%><tr><td valign=center>
  <table align=center width=90% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
  <tr><td colspan=7 class=navy2>IP地址统计[拥有超过<font color='yellow'><%=ct_num%></font>个帐号的ip]</td>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select count(*) as ct_num,last_ip from user group by last_ip having count(*)>"&ct_num&" order by last_ip"
rootRs.Open sql,conn,1,1
If rootRs.Bof OR rootRs.Eof Then%><tr><td colspan=7 class=navy1><font color=#cc00cc>没有找到任何记录</font></td></tr>
<%else
pagesize=20
rootRs.pagesize=pagesize
page=Request("page")
if not IsNumeric(page) or page="" then page=1
if (page-1)<0 then
  page=rootRs.pagecount
elseif (page-rootRs.pagecount)>0 then
  page=1
end if
rootRs.AbsolutePage=page
RowCount =rootRs.pagesize%>
  <form action="countip.asp" method="post">
  <tr><td colspan=7 nowrap><font color=880088>第<%=page%>页 共<%=rootRs.pagecount%>页
    <a href='countip.asp?num=<%=ct_num%>&page=<%=(page-1)%>'>上一页</a> <a href='countip.asp?num=<%=ct_num%>&page=<%=(page+1)%>'>下一页</a> 超过 <input
    type="text" name="num" size=3 maxlength=6 value='<%=ct_num+1%>'> 个 <input class=navy1 type="submit" name="cmdGo" value="统计"></font>
  </td></tr></form>
  <tr><td nowrap class=navy1>序号</td><td nowrap class=navy1>最后访问IP</td><td nowrap class=navy1>帐号个数</td><td nowrap class=navy1>查找</td><td nowrap class=navy1>封锁</td></tr>
  <%top_num=(page-1)*pagesize+1
  Do While (Not rootRs.Eof) AND RowCount>0
    response.write "<script>xx("&top_num&",'"&rootRs("last_ip")&"','"&rootRs("ct_num")&"');</script>"
    rootRs.MoveNext
    top_num=top_num+1
    RowCount=RowCount-1
  Loop%><tr><td nowrap class=navy1>序号</td><td nowrap class=navy1>最后访问IP</td><td nowrap class=navy1>帐号个数</td><td nowrap class=navy1>查找</td><td nowrap class=navy1>封锁</td></tr>
  <form action="countip.asp" method="post"><input type=hidden name=num value="<%=ct_num%>">
  <tr><td colspan=7 nowrap><font color=008888>第<%=page%>页 共<%=rootRs.pagecount%>页</font>
    <a href='countip.asp?num=<%=ct_num%>&page=<%=(page-1)%>'>上一页</a> <a href='countip.asp?num=<%=ct_num%>&page=<%=(page+1)%>'>下一页</a> 转到 <input
    type="text" name="page" size=3 maxlength=10> 页 <input class=navy1 type="submit" name="cmdGo" value="GO!" title="转到其他页">
    </td></tr></form>
<%End If
rootRs.close
set rootRs=nothing
conn.close
Set conn=nothing%>
</table><tr<td><br>[<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>