<!-- 
'========================================================================================
' 文 件 名: sql.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" %>
<% 
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
%>
<!-- #include file="../common/contencrypt.asp" -->
<!-- #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" -->
<%
IF Request.form("ggc") = "执行" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
'on error resume next
sqlstr = nobr_no(Trim(Request.Form("getsay")))
conn.Execute sqlstr
IF err.number <> 0 Then
	logstr = "SQL语法错误，修改数据库失败"
	Call logtodo(logstr, 1, "err")
	Response.Write "SQL语法错误，修改数据库失败"
	Response.End
End IF
logstr = "SQL语法正确，修改数据库成功"
Call logtodo(logstr, 1, "ok")
%>
<div id="Loaddiv" style="position:absolute;left:0;width:100%; height:100%; z-index:100;background:white;"><br>
  <p><%= nmsage %></p>
  <p align="center">&ensp;</p>
  <form name="loading">
    <div align="center">
      <input type="text" name="chart" size="46" style="font-family:Arial; font-weight:bolder; color:rgb(124,119,119); background-color:white; font-color:red; padding:0px; border-style:none;">
      <br>
      <input type="text" name="percent" size="46" style="color:rgb(138,134,134); text-align:center; border-width:medium; border-style:none;">
    </div>
  </form>
<script>
var bar = 0 
var line ="||" 
var amount ="||" 
count() 
function count(){ 
	bar= bar + 2 
	amount = amount + line 
	document.loading.chart.value = amount 
	document.loading.percent.value = "正在执行SQL指令 "+ bar +"%,请稍候..." 
	if (bar < 99){
		setTimeout("count()", 100);
	} 
	else {
		Loaddiv.style.display = "none";
	} 
}
</script>
</div>
<p align="center"><b><span style="color:#FF0000">数据库修改成功！为了避免意外的黑客攻击，如果不再使用该功能，请立即删除该文件。</span></b><br><br><a href="sql.asp">返回操作</a></p>
<%
Else
%>
<head>
<title>数据库命令行管理器</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">
<style>
td {
	font-size:18px !important;
}
</style>
</head>
<body>
<br>
<br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" style="background:url(../pic/update_bg.png);">
  <tr>
    <td width="20%"></td>
    <td width="50%"><br>
      <p><b>数据库命令行管理器（接受SQL指令）</b><br>
        <br>
      </p>
      <strong>程序基本介绍: <br>
      </strong>
      <ul>
        <li>本程序仅适用 3.00.0 版本。之前版本请使用对应版本附带的本程序；</li>
        <li>使用本程序，将直接运用SQL语句对数据库进行操作；</li>
        <li>本程序主要运用于对数据库进行特殊、批量、修复性操作；</li>
        <li>因为涉及技术门槛，仅适用与对SQL语法非常熟悉的系统管理员使用；</li>
        <li>建议使用前，请首先在线备份您的数据库！</li>
      </ul>
      <strong>重要说明: <br>
      </strong>
      <ul>
        <li>本程序须验证操作者身份与权限方可操作。</li>
        <li>请在不立即使用的情况下，第一时间从服务器删除本程序文件！</li>
        <li>忽视本提示，将会导致致命、灾难性后果！</li>
      </ul>
      岭峰网行业专用留言系统 -- 主数据库管理<br>
      <br>
      <form name="form1" method="post" action="sql.asp">
        <label>
          <textarea name="getsay" cols="80" rows="8" ></textarea>
        </label>
        <br>
        <br>
        <input type="submit" class="buttonface" name="ggc" value="执行">
        <br>
        <br>
        范例:
        <select name='sqlclass' onChange="document.form1.getsay.value=this.value;">
          <option value="delete * from lfmessb where username='用户名'" selected>以指定用户名删除所有留言</option>
          <option value="delete * from lfmessb where ip='111.111.111.111'" selected>以指定用户IP删除所有留言</option>
          <option value="delete * from lfmessb where content like '%关键字%'">以留言的指定关键字删除所有留言</option>
          <option value="update lfmessb set topok=1 where topok=0">一次性把所有置顶留言取消置顶</option>
          <option value="update lfmessb set content='修正后的留言内容' where id=留言的ID">以指定留言ID修改用户留言内容</option>
          <option value="update lfmessb set re='修正后的回复内容' where id=留言的ID">以指定留言ID修改留言回复内容</option>
          <option value="update lfmessb set username='修正后的用户姓名' where id=留言的ID">以指定留言ID修改用户姓名</option>
        </select>
      </form>
      <br>
      版权所有&ensp;&copy;&ensp;2001-2020&ensp;岭峰网(郑州文达岭峰)&ensp;版权所有<br>
      <br>
      <br></td>
    <td width="20%"></td>
  </tr>
</table>
</body>
</html>
<%
End IF
%>