<!DOCTYPE html>
<%@ language="vbscript" codepage="936" %>
<% 
'========================================================================================
' 文 件 名: admin_filtratelist.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/contencrypt.asp" -->
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<%flg = "man_ts"%>
<!-- #include file="../common/purview.asp" -->
<!-- #include file="../common/connect.asp" -->
<!-- #include file="../common/checkru.asp" -->
<!-- #include file="../common/md5_32.asp" -->
<!-- #include file="../common/del.asp" -->
<%
IF LingFengNet_MS_how_filtrate <> 3 Then
	Response.Write "<meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"><script>" 
	Response.Write "alert('"& LingFengNet_MS_language_Warning_filtratelist &"');" 
	Response.Write "history.go(-1);" 
	Response.Write "</script>" 
	Response.End
End IF		 
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT "&sqlkey&" FROM lfmessb WHERE Auditing=3 ORDER BY addtime Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
page = Request("page")
total = rs.RecordCount
Response.Write "<html>"&_
"<head>"&_
"<title>"& LingFengNet_MS_language_title_filtratelist &"</title>"
Call htmlmeta() 
Response.Write "<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"">"&vbcrlf&_
"<link rel=""bookmark"" href=""../pic/favicon.ico"" type=""image/x-icon"">"&vbcrlf&_
"</head>"&_
"<body onkeydown=""EnableKey()"" >"&_
"<div align=""center"">"
Call htmlmain() 
Response.Write "</div>"&_
"</body>"&_
"</html>"
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
Call htmlend()
%>