"& LingFengNet_MS_web_name &" -- "& LingFengNet_MS_sys_name &" - powered by LFMessS

<%@ language="vbscript" codepage="936" %> <% '======================================================================================== ' 文 件 名: default.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 '======================================================================================== %> <% sql = "DELETE * FROM ok WHERE DateDiff('d',addtime,#" & getDateNow() & "#)>" & LingFengNet_MS_oklist & "" conn.Execute(sql) sql = "DELETE * FROM err WHERE DateDiff('d',addtime,#" & getDateNow() & "#)>" & LingFengNet_MS_errlist & "" conn.Execute(sql) IF Session("LingFengNet_MS_admin") = "ok" and Request("topid") = "" Then sql = "SELECT "&sqlkey&" FROM lfmessb ORDER BY topok,addtime Desc" ElseIF Request("topid")<>"" Then sql = "SELECT "&sqlkey&" FROM lfmessb WHERE id="&Request("topid") Else sql = "SELECT "&sqlkey&" FROM lfmessb WHERE Auditing=2 or Auditing=5 ORDER BY topok,addtime Desc" End IF Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 total = rs.RecordCount page = Request("page") 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 vbcrlf&"
"&vbcrlf&_ ""&vbcrlf&_ ""&vbcrlf Call htmlmeta() IF LingFengNet_MS_refreshtime <> 0 Then Response.Write ""&vbcrlf Response.Write ""&vbcrlf&_ ""&vbcrlf&_ ""&vbcrlf&_ ""&vbcrlf&_ "
"&vbcrlf IF totalno <> 0 and Session("LingFengNet_MS_admin") = "ok" Then newsmail = " onload=""window.setTimeout('titleScroll()', 500)""" Response.Write ""&vbcrlf&_ "
"&vbcrlf&_ "
"&vbcrlf Call htmlmain() Response.Write "
"&vbcrlf&_ "
"&vbcrlf&_ "
" rs.close conn.close Set rs = Nothing Set conn = Nothing Call htmlend() IF LingFengNet_MS_qq_ok = 0 Then%> <%End IF%>