admin_sql.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="admin_head.asp"-->
<br><br>
  <%
if request("action") = "save" then
SQL_Statement=Request("SQL_Statement")
if SQL_Statement<>Empty then
On Error Resume Next 
conn.Execute(SQL_Statement)
if err.number="0" then
response.write "<script>alert(""执行成功"");location.href=""admin_sql.asp"";</script>"
else
	errmsg = "<li>语句有问题，具体出错如下：<br>"
	errmsg = errmsg & Err.Description
	err.clear
	call Qcdn.Err_List(errmsg,1)
	response.end
end if
end if
else
%>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
  <form action="" name="form1" method="post">
    <tr> 
      <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>批 量 处 理 数 据</b> </td>
    </tr>
    <tr valign="middle"> 
	  <td>
	 <br> <p><b>SOL语句执行操作</b>：本操作仅限高级、对SQL编程比较熟悉的用户，您可以直接输入sql执行语句，比如delete from article_info where 
  unid=2 进行删除某篇文章的操作，在操作前请慎重考虑您的执行语句是否正确和完整，执行后不可恢复。</p>

<table width="80%" border="0" cellspacing="3" cellpadding="0">
                <tr> 
                  <td width="100%" height="2">
<Form Name=FormPst Method=Post Action="admin_sql.asp">
<FieldSet>
<Legend>请输入SQL语句</Legend>
指令：
              <Input type="text" name="SQL_Statement" Size=60>
               <p>
                <Input type="Submit" Value="送出" class="tbutton">
				<input type="hidden" name="action" value="save">
                 <p>
</FieldSet>
</Form>
                  </td>
                </tr>
              </table>
<%end if%>
	  </td>
	</tr>
</table>
<!--#include file="admin_copy.asp"-->