del.asp

全能学校管理网站源码,小草网络提供,下载试用下

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="sqlx.asp"-->
<%
call hacker()
call web58818sql()
SoftID=trim(request("SoftID"))
Action=Trim(Request("Action"))
tab=request("tab")
url=request("url")
if Action="" then
response.Write"<script>alert('参数不足!');</script>"
response.Write"<script>history.go(-1);</script>"
end if
if SoftID="" then
response.Write"<script>alert('请选择要操作的记录!');</script>"
response.Write"<script>history.go(-1);</script>"
end if
call DelSoft()
sub DelSoft()
if instr(SoftID,",")>0 then
SoftID=replace(SoftID," ","")
sqlDel="select * from "&tab&" where id in (" & SoftID & ")"
else
SoftID=Clng(SoftID)
sqlDel="select * from "&tab&" where id =" & 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
response.Write"<script>alert('恭喜您！删除成功拉！');location.href='"&url&"';</script>"
end sub
%>