家庭/个人应用

开发平台：
ASP/ASPX

fucklook.asp：源码内容
							<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<!--#include file="../checkpost.asp"-->
<!--#include file="inc/function.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日志管理</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="inc/Admin_STYLE.CSS">
<style type="text/css">
<!--
.样式6 {color: #FFFFFF; font-weight: bold; }
.样式7 {
	font-size: 9pt;
	font-weight: bold;
}
body,td,th {
	font-size: 9pt;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top1.asp"-->
<%
   MaxPerPage=20
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   dim typename
   
   typename=""
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   dim sql
   dim rs
   dim rstype
   if request("page")="" then
   page=0
   end if
%>
<center>
<form method="POST" action="fucklook.asp" align="center">
  <p align="center"><span class="样式7">IP:</span>
    <input type="text" name="userip123" size="20">
  <input type="submit" value="查询"></p>
</form>
<p align="center"><a href="fuckdel.asp" class="样式1">删除全部记录</a>
<%set rs=server.createobject("adodb.recordset")
if request("userip123")="" then  
 sql="select * from fuck order by id desc"
else  
 sql="select * from fuck where userip='"&request("userip123")&"' order by id desc"
end if
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align='center'> <font size=2>暂无记录</font></p>"
   else
	  totalPut=rs.recordcount
      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,"fucklook.asp"
            showContent
            showpage totalput,MaxPerPage,"fucklook.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,MaxPerPage,"fucklook.asp"
            showContent
             showpage totalput,MaxPerPage,"fucklook.asp"
        else
	        currentPage=1
           showpage totalput,MaxPerPage,"fucklook.asp"
           showContent
           showpage totalput,MaxPerPage,"fucklook.asp"
	      end if
	   end if
   end if
	        
  
   sub showContent
       dim i
	   i=0
  %>
<td width="100%">&nbsp;</td>
    <tr><td width="100%" align="center">   
        <table border="0" cellspacing="1" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="2" class="border">
          <tr bgcolor="#429AEF"> 
            <td width="74" height="20" align="center" bgcolor="#429AEF"><STRONG><span class="样式6">会员帐号</span></STRONG></td>
      
            <td width="72" align="center"><span class="样式6">攻击者IP</span></td>
            <td width="93" align="center"><span class="样式6">记录原因</span></td>
            <td width="108" align="center"><span class="样式6">提交参数</span></td>
            <td width="97" align="center"><span class="样式6">提交方式</span></td>
            <td width="99" align="center"><span class="样式6">提交文件</span></td>
            <td width="105" align="center"><strong><span class="样式6">攻击参数</span></strong></td> 
            <td width="106" align="center" widht=46><span class="样式6">动作</span></td>
            <td width="124" align="center" widht=46><span class="样式6">发生时间</span></td>
            <td width="62" align="left"><div align="center" class="样式6">操作 </div></td> 
      </tr> 
    
           <%do while not rs.eof%>
          <tr>
            <td height="11" class="tdbg"><div align="center"><a href="useredit.asp?userid=<%=rs("userid")%>" target="_blank"><u><%=rs("userid")%></u></a></div></td>
            <td class="tdbg"><div align="center"><%=rs("userip")%></div></td>
            <td class="tdbg"><div align="center"><%=rs("lookordown")%></div></td>
            <td class="tdbg"><div align="center"><%=rs("SqlIn_CS")%></div></td>
            <td class="tdbg"><div align="center"><%=rs("SqlIn_FS")%></div></td>
            <td class="tdbg"><div align="center"><%=rs("SqlIn_WEB")%></div></td>
            <td class="tdbg"><div align="center"><%=rs("SqlIn_SJ")%></div></td>
            <td class="tdbg"><div align="center">已屏蔽IP</div></td>
            <td class="tdbg"><div align="center"><%=rs("looktime")%></div></td>
            <td class="tdbg"><div align="center"><a href="fuckdel.asp?id=<%=rs("id")%>">删除</a></div></td>
          </tr>
          <tr> 
             
      </tr> 
    <% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
      </table> 
      </form></td> 
</tr> 
</table> 
</body> 
<%
   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 "<form method=Post action="&filename&"?typeid="&typeid&">"
    if CurrentPage<2 then
    response.write "<font size=2>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&typeid="&typeid&"><font size=2>首页</font></a>&nbsp;"
    response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"><font size=2>上一页</font></a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font size=2>下一页 尾页</font></font>"
  else
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&">"
    response.write "<font size=2>下一页</font></a> <a href="&filename&"?page="&n&"&typeid="&typeid&"><font size=2>尾页</font></a>"
  end if
   response.write "&nbsp;<font size=2>页次：</font><strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong><font size=2>页</font> "
    response.write "&nbsp;<font size=2>共<font size=2><b>"&totalnumber&"</b><font size=2>个</font> <b>"&maxperpage&"</b><font size=2>个/页</font> "
   response.write "<font size=2>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="&currentpage&">"
   response.write " <input class=buttonface type='submit'  value='Goto'  name='cndok'></span></p></form>"
       
end function
    
    rs.close
    set rs=nothing  
   conn.close
   set conn=nothing
  %> 
</html>
	

						