📄 dosql.asp
字号:
<!--#include file="../checkpost.asp"-->
<!--#include file="articleconn.asp" -->
<!--#include file="security.asp"-->
<%
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
%>
<link rel="stylesheet" type="text/css" href="inc/Admin_STYLE.CSS">
<body leftmargin="0" topmargin="0">
<!--#include file="top1.asp"-->
<br>
<table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="title">
<td align="center" height="22" valign="middle"><b>SOL语句执行操作</b></td>
</tr>
<tr class="tdbg">
<td align="center" height="150" valign="middle"><table width=95% cellspacing=1 cellpadding=5 align=center>
<tr >
<td><p> </p>
<p><注意：本操作仅限高级、对SQL编程比较熟悉的用户，您可以直接输入sql执行语句。
在操作前请慎重考虑您的执行语句是否正确和完整，执行后不可恢复。></p></td>
</tr>
<tr >
<td>
<%set rs=server.createobject("adodb.recordset")
if request("method") = "go" 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 "<br><center><font color=red>SQL命令执行成功！</font>"
'response.redirect"dosql.asp?action=dosql"
else
response.write "<br><center>语句有问题，具体出错如下：<br><br><font color=red>"
response.write Err.Description
response.write "</font>"
err.clear
end if
end if
else
%>
<table cellspacing="3" cellpadding="0">
<tr>
<td width="100%" > <Form Name=FormPst Method=Post Action="dosql.asp?action=dosql&method=go">
<FieldSet>
<Legend><请输入SQL语句></Legend>
<br>
指令：
<Input type="text" name="SQL_Statement" Size=80>
<br>
<p align=center>
<Input name="Submit" type="Submit" Value="送出">
<Input name="reset" type="reset" Value="清除">
<br>
<br>
</p>
</FieldSet>
</Form></td>
</tr>
</table>
</table>
<%end if%> </td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -