dldel.asp

新世纪影院源码

<!--#include file="conn.asp"-->
<!--#include file="xshjyy.asp"-->
<%'---------程序编写说明-------%> 
<%
'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Dldel.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:[e-mail]
'QQ:       249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<%
id=trim(request.querystring("ids"))
if id="" then
sql="select yesorno from chzhk where yesorno<>0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof or bof then
response.write"数据删除成功"
'response.redirect request.servervariables("HTTP_REFERER")
else
do while not rs.eof or bof
rs("yesorno")=0
rs.update
rs.movenext
loop
end if
rs.close
set rs=server.createobject("adodb.connection")
rs.open conn
sql="delete from dlcom"
rs.execute(sql)
rs.close
set rs=nothing
else
sql="select yesorno from chzhk where yesorno="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof or bof then
else
do while not rs.eof or bof
rs("yesorno")=0
rs.update
rs.movenext
loop
end if
rs.close
set rs=server.createobject("adodb.connection")
rs.open conn
sql="delete from dlcom where id="&id
rs.execute(sql)
rs.close
set rs=nothing

end if
response.write"<script>alert('删除成功');window.close();</script>"
%>