money_del.asp

系统包括采购管理、销售管理、分销管理、库存管理、财务管理、统计报表、编码管理等功能模块。

<%
if request.Cookies("shiwei_username")="" then
%>
<script language="javascript">
top.location.href="../index.asp"
</script>
<%  
  response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<%
id=replace(request("id")," ","")
id=split(id,",")
for i=0 to UBound(id)
  set rs=conn.execute("select * from shiwei_money where id=" & id(i))
  if rs("type")=0 then
    conn.execute("update bank set price=price-"&rs("price")&" where id="&rs("id_bank"))
  else
    conn.execute("update bank set price=price+"&rs("price")&" where id="&rs("id_bank"))
  end if
  sql="delete from shiwei_money where id=" & id(i)
  conn.execute(sql)
next
response.redirect "money.asp?startdate="&request("startdate")&"&enddate="&nowenddate&"&type="&nowtype&"&bank="&nowbank&"&page="&request("page")&"&bigclass="&request("bigclass")&"&smallclass="&request("smallclass")&"&order1="&request("order1")&"&order2="&request("order2")&"&order3="&request("order3")&"&order4="&request("order4")&"&order5="&request("order5")&"&order6="&request("order6")&"&order7="&request("order7")&"&order8="&request("order8")&"&order9="&request("order9")&"&order10="&request("order10")&"&order11="&request("order11")&"&order12="&request("order12")&"&order13="&request("order13")&"&order14="&request("order14")&"&order15="&request("order15")
%>