del.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/adminfunction.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
call hacker()
if session("superlogin")<>yecaocookies then
response.Write "<script>alert('您的权限不足！');this.location.href='index.asp';</script>"
response.end
end if
call yecaosql()
SoftID=trim(request("SoftID"))
Action=Trim(Request("Action"))
tab=request("tab")
urltab=request("urltab")
url=request("url")
if Action="" then
response.Write"<script>alert('参数不足!');history.go(-1);</script>"
elseif SoftID="" then
response.Write"<script>alert('请选择要操作的记录!');history.go(-1);</script>"
end if

if instr(SoftID,",")>0 then
SoftID=replace(SoftID," ","")
sqlDel="select * from "&tab&" where id in (" & SoftID & ")"
if urltab<>"" then
sqlDelUrl="select * from "&urltab&" where urlid in (" & SoftID & ")"
end if
else
SoftID=Clng(SoftID)
sqlDel="select * from "&tab&" where id="&SoftID
sqlDelUrl="select * from "&urltab&" where urlid="&SoftID
end if
'批量删除第一式开始
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
do while not rsDel.eof
rsDel.delete
rsDel.movenext
loop
rsDel.close
set rsDel=nothing
if urltab<>"" then
'批量删除第二式开始
Set rsDelUrl= Server.CreateObject("ADODB.Recordset")
rsDelUrl.open sqlDelUrl,conn,1,3
do while not rsDelUrl.eof
rsDelUrl.delete
rsDelUrl.movenext
loop
rsDelUrl.close
set rsDelUrl=nothing
end if
response.Write"<script>alert('恭喜您！删除成功拉！');location.href='"&url&"';</script>"
%>