<!DOCTYPE html>
<%@ language="vbscript" codepage="936" %>
<%
'========================================================================================
' 文 件 名: admin_errlist.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: 非法登陆信息纪录文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================
%>
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<%flg = "man"%>
<!-- #include file="../common/purview.asp" -->
<!-- #include file="../common/connect.asp" -->
<!-- #include file="../common/checkru.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "DELETE * FROM err WHERE DateDiff('d', addtime, #" & getDateNow() & "#)>" & LingFengNet_MS_errlist
conn.Execute(sql)
sql = "SELECT * FROM err ORDER BY addtime Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
total  = rs.RecordCount
%>
<head>
<title><%= LingFengNet_MS_language_title_errlist %></title>
<%  
  Call htmlmeta() 
%> 
<link rel="stylesheet" href="../style/css/<%= LingFengNet_MS_web_css %>.css" type="text/css">
<link rel="shortcut icon" href="../pic/favicon.ico" type="image/x-icon">
<link rel="bookmark" href="../pic/favicon.ico" type="image/x-icon">
</head>
<body onkeydown="EnableKey()" >
<div align="center"> 
<%
Call htmltop()
Call htmlbr()
Call htmladminmen()
Call htmlbr()
%>
<table width="<%= LingFengNet_MS_web_w %>" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td class="bgc2"><table width="100%" border="0" cellspacing="1" cellpadding="3">
          <tr>
            <td height="30" align="left" class="bgc">&ensp;&ensp;<%= LingFengNet_MS_language_syslist_mes_1 %></td>
          </tr>
          <tr>
            <td width="75%" align="left" class="bgc1"><ul>
              <li><span class="bgc"> <a href="admin_errlist<%= Get_Suffix() %>"><%= LingFengNet_MS_language_syslist_mes_2 %></a></span></li>
              <li><span class="bgc"> <a href="admin_oklist<%= Get_Suffix() %>"><%= LingFengNet_MS_language_syslist_mes_3 %></a></span></li>
            </ul></td>
          </tr>
          <tr>
            <td width="75%" height="30" align="left" class="bgc">&ensp;&ensp;<%= LingFengNet_MS_language_title_errlist %>：</td>
          </tr>
        </table></td>
    </tr>
  </table>
<% 
IF rs.eof and rs.bof Then
	Call htmlbr()
	Call htmlno()
	page_no = 1
Else
	Call htmlbr()
	pagesetup = LingFengNet_MS_mypagesize '设定每页的显示数量
	rs.pagesize = LingFengNet_MS_mypagesize
	page = Request.QueryString("page")
	IF Len(page) > LingFengNet_MS_pagemax Then Response.Redirect "errlist"& Get_Suffix() 
	IF (page - rs.pagecount) > 0 Then
		page = rs.pagecount
	ElseIF page = "" or page < 1 Then
		page = 1
	End IF
	rs.absolutepage = page
	Do while not rs.eof
		i = i + 1
		IF i > rs.pagesize Then
			Exit Do
		End IF
%>
  <table width="<%= LingFengNet_MS_web_w %>" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td class="bgc2"> 
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
          <tr> 
            <td width="25%" rowspan="6" align="left" valign="top" class="bgc"> &ensp;<%= LingFengNet_MS_language_oklist_mes_1 %> <b><%= i + (page - 1) * rs.pagesize %></b> 
              <%= LingFengNet_MS_language_oklist_mes_2 %><br>
            </td>
            <td height="30" align="left" class="bgc"><%= LingFengNet_MS_language_oklist_mes_3 & rs("addtime") %></td>
          </tr>
          <tr> 
            <td width="75%" height="30" align="left" class="bgc1"><%= LingFengNet_MS_language_oklist_mes_4 %><a href="http://www.lfmesss.com/lfmesss/ip/index<%= Get_Suffix() %>?ip=<%= rs("ip") %>&search=<%= rs("ip") %>" target="_blank"><%= LingFengNet_MS_language_errlist_mes_7 %>&ensp;<%= rs("ip") %>&ensp;<%= LingFengNet_MS_language_errlist_mes_8 %></a></td>
          </tr>
          <tr> 
            <td width="75%" height="30" align="left" class="bgc"><%= LingFengNet_MS_language_oklist_mes_5 & rs("errname") %></td>
          </tr>
          <tr>
            <td height="30" align="left" class="bgc1"><%= LingFengNet_MS_language_oklist_mes_8 & rs("errpass") %></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
<%
		rs.movenext
	Loop
	Call htmlbr()
	IF page_no <> 1 Then
		Call htmlpage()
	End IF
End IF
%>
</div>
</body>
</html>
<%
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
Call htmlend()
%>