<!-- 
'========================================================================================
' 文 件 名: admin_delok.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
'========================================================================================
-->
<%@ language="vbscript" codepage="936" %>
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/connect.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<%flg = "del"%>
<!-- #include file="../common/purview.asp" -->
<!-- #include file="../common/checkru.asp" -->
<% 
gbookid = Request.QueryString("gbookid")
gbookurl = Request.QueryString("gbookurl")
IF Not IsNumeric(gbookid) Then Response.Redirect "default"&Get_Suffix() 
IF Len(gbookid) > LingFengNet_MS_mbl Then Response.Redirect "default"&Get_Suffix() 
Set rs = Server.Createobject("ADODB.Recordset")
sql = "DELETE * FROM lfmessb WHERE id="&gbookid
set rs = conn.Execute(sql)
logstr = gbookid & LingFengNet_MS_language_Warning_delok_2
Call logtodo(logstr, 0, "ok")
Response.Write "<meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"><meta http-equiv='refresh' content='0;url="& gbookurl &"'><script>alert('"& LingFengNet_MS_language_Warning_delok_1&"')</script>"
'rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
%>