dx_del.asp

功能介绍： 1、产品入库

<!-- #include file="inc/config.asp" -->
<%
n=request.QueryString("n")
if n=1 then
dx_bank_id=replace(request("dx_bank_id")," ","")
dx_bank_id=split(dx_bank_id,",")
for i=0 to UBound(dx_bank_id)
  sql="delete from dx_bank where dx_bank_id="& dx_bank_id(i) &" and not exists (select * from [dx_money] where dx_money.dx_money_bank=dx_bank.dx_bank_num)"
  conn.execute(sql)
next
response.redirect "dx_bank.asp"
end if
n=request.QueryString("n")
if n=2 then
dx_expense_id=replace(request("dx_expense_id")," ","")
dx_expense_id=split(dx_expense_id,",")
for i=0 to UBound(dx_expense_id)
  sql="delete from dx_expense where dx_expense_id="&dx_expense_id(i)
  conn.execute(sql)
next
response.redirect "dx_expense_list.asp"
end if
n=request.QueryString("n")
if n=3 then
dx_income_id=replace(request("dx_income_id")," ","")
dx_income_id=split(dx_income_id,",")
for i=0 to UBound(dx_income_id)
  sql="delete from dx_income where dx_income_id="&dx_income_id(i)
  conn.execute(sql)
next
response.redirect "dx_income_list.asp"
end if
%>