deldingdan.asp

购物系统(本版为正式商业版

<!--#include file="conn.asp"-->
<!--#include file="../fuction.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>2 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx3<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim ddid,action
action=request.QueryString("action")
	ddid=request.form("id")
if action="999" then
conn.execute "delete from shop_action where zhuangtai=7"
conn.execute "delete from shop_action where username is null"
conn.execute "delete from shop_action where dingdan is null"
conn.execute "delete from shop_action where zhifufangshi is null"
conn.execute "delete from shop_action where songhuofangshi is null"
response.write "<p align=center><font color=red>订单删除成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=editdingdan.asp"">"
end if
if action="000" then
conn.execute "delete from shop_action_fhy where zhuangtai=7"
conn.execute "delete from shop_action_fhy where username is null"
conn.execute "delete from shop_action_fhy where dingdan is null"
conn.execute "delete from shop_action_fhy where zhifufangshi is null"
conn.execute "delete from shop_action_fhy where songhuofangshi is null"
response.write "<p align=center><font color=red>订单删除成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=editdingdan_fhy.asp"">"
end if
if ddid="" then response.End
if action="hy" then

conn.execute "delete from shop_action where actionid in ("&ddid&")"
response.Redirect "editdingdan.asp"
response.End
elseif action="hy2" then
conn.execute "delete from shop_action where actionid in ("&ddid&")"
response.Redirect "editdingdan2.asp"
response.End
elseif action="fhy" then
conn.execute "delete from shop_action_fhy where actionid in ("&ddid&")"
response.Redirect "editdingdan_fhy.asp"
response.End
elseif action="fhy2" then
'sql="delete from shop_action_fhy where (actionid in ("&ddid&"))"
'response.write sql
'response.End
conn.execute "delete from shop_action_fhy where actionid in ("&ddid&")"
response.Redirect "editdingdan_fhy2.asp"
response.End
end if
%>