📄 admin-sqlexecute.asp

📁 asp构建网站bbs.采用B/S架构
💻 ASP
字号:
<!--#include file="conn.asp"--><!--#include file="md5.asp"-->
<link href=css.css rel=stylesheet>
<%set bbs=myconn.execute("select*from bbsinfo")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltb=tli(8)
cbi=tli(9)
lmbbs=tli(10)
if sp="" then sp=b1s
if c1="" then c1=c11
if c2="" then c2=c12
set bbs=nothing
lgname=Request.Cookies(cn&"0")("lgname")
lgpwd=request.cookies(cn&"0")("lgpwd")
lgpwd=md5(lgpwd)
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
set cjbz=nothing
response.redirect"admin-login.asp"
end if
%>

<body topmargin="0" leftmargin="0"><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%" height="28" background="pic/<%=sp%>3.gif" align="center">
    <b><font color="#FFFFFF">论坛后台管理系统</font></b></td>
  </tr>
  </table>
<table width="90%" border="0" cellspacing="1" cellpadding="3"  align=center >
<tr width="80%"><td width="100%" height="62"><b>SOL语句执行操作</b>：本操作仅限高级、对SQL编程比较熟悉的用户，您可以直接输入sql执行语句，进行操作，在操作前请慎重考虑您的执行语句是否正确和完整，<font color="#FF0000">执行后不可恢复</font>。
</td></tr>
<%if request("action") = "save" then
dim dgdfase34dssdf
dgdfase34dssdf=Request("dgdfase34dssdf")
if dgdfase34dssdf<>Empty then
On Error Resume Next 
myconn.Execute(dgdfase34dssdf)
if err.number="0" then%>
<tr><th align=center colspan=3  width="90%" height=1><b>执行结果</b></th>  
</tr><tr><td align=center colspan=3  width="90%" height=1><%response.write "执行成功"%>
</td></tr>
<%else%>
<tr><th align=center colspan=3  width="90%" height=1><b>执行结果</b></th>  
</tr><tr><td align=center colspan=3  width="717" height=1><%response.write "语句有问题，具体出错如下：<br>"
response.write Err.Description%>
</td>
</tr>
<%err.clear
end if
end if
else
%>
<tr><th align=center colspan=3  width="717" height=1><b></b>请输入SQL语句</th>  
</tr><tr><td align=center colspan=3  width="717" height=1><Form Name=FormPst Method=Post Action="admin-sqlexecute.asp?action=save">
<FieldSet style="border: 1px solid <%=c1%>">
<Legend>请输入SQL语句</Legend>
<br>指令：<Input type="text" name="dgdfase34dssdf" Size=80><p>
<Input type="Submit" Value="送出">  （<b><font color="#FF0000">慎用</font></b>）<p>
</FieldSet></Form></td></tr>
<%end if%>
</table>
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -