<!DOCTYPE html>
<%@ language="vbscript" codepage="936" %>
<%
'========================================================================================
' 文 件 名: stlist.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" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT "&sqlkey&" FROM lfmessb WHERE Auditing=0 ORDER BY addtime Desc"
rs.open sql,conn,1,1
page = Request("page")
total = rs.RecordCount
IF LingFengNet_MS_noaud = 0 or Session("LingFengNet_MS_admin") = "ok" Then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT id FROM lfmessb WHERE Auditing=0 ORDER BY addtime Desc"
Rs1.open sql1,conn,1,1
totalno = rs1.RecordCount
rs1.close
set rs1 = Nothing
End IF
Response.Write "<html>"&_
"<head>"&_
"<title>"& LingFengNet_MS_language_title_stlist &"</title>"
Call htmlmeta() 
IF LingFengNet_MS_refreshtime <> 0 Then Response.Write "<meta http-equiv='refresh' content='"& LingFengNet_MS_refreshtime &"'>"&vbcrlf
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"">"&_
"<link rel=""bookmark"" href=""../pic/favicon.ico"" type=""image/x-icon"">"&_
"<script>"&_
"var msg = """& LingFengNet_MS_language_messdef_newsmail_1 & totalno & LingFengNet_MS_language_messdef_newsmail_2 &""";"&_
"var speed = 200; "&_
"var msgud = "" "" + msg; "&_
"function titleScroll() { "&_
"if (msgud.length <msg.length) msgud += "" - "" + msg; "&_
"msgud = msgud.substring(1, msgud.length); "&_
"document.title = msgud.substring(0, msg.length);"&_
"window.setTimeout(""titleScroll()"", speed); "&_
"} "&_
"</script>"
IF totalno <> 0 Then newsmail = " onload=""window.setTimeout('titleScroll()', 500)"""
Response.Write "</head>"&_
"<body onkeydown=""EnableKey()"" "&newsmail&">"&_
"<div align=""center"">"
Call htmlmain() 
Response.Write "</div>"&_
"</body>"&_
"</html>"
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
Call htmlend()
%>