dx_function.asp

来自「功能介绍： 1、产品入库」· ASP 代码 · 共 52 行

<!-- #include file="inc/Config.asp" -->
<!--#include file="inc/Dx_admin_check.asp"-->
<%
n=request.QueryString("n")
id=request.QueryString("id")
pagenow=request.QueryString("pagenow")
sqlstr="select * from [dx_site]"
rs.open sqlstr,conn,1,3
if not rs.eof then
  dx_site_money=rs("dx_site_money")
else
  call ShowErr("数据库记录为空！","1")
end if
rs.close
if n=1 then
  sql="select * from [dx_debt] where dx_debt_id="& id
  rs.open sql,conn,1,3
    dx_debt_money=rs("dx_debt_money")
  rs.close
  if dx_site_money<dx_debt_money then
    call ShowErr("库存资金不够还债！！！","1")
  else
    sqlstr="select * from [dx_debt] where dx_debt_id="& id
	rs.open sqlstr,conn,1,3
	  rs("dx_debt_now")=1
	  rs.update
	rs.close
	sql="select * from [dx_site]"
	rs.open sql,conn,1,3
	  rs("dx_site_money")=dx_site_money-dx_debt_money
	  rs.update
	rs.close
  end if
  call ShowErr("该项债务现已还清！","debt_all_show.asp?page="&pagenow)
elseif n=2 then
  sql="select * from [dx_accounts] where dx_accounts_id="& id
  rs.open sql,conn,1,3
    dx_accounts_money=rs("dx_accounts_money")
  rs.close
  sql="select * from [dx_site]"
  rs.open sql,conn,1,3
	rs("dx_site_money")=dx_site_money+dx_accounts_money
	rs.update
  rs.close
  sqlstr="select * from [dx_accounts] where dx_accounts_id="& id
  rs.open sqlstr,conn,1,3
    rs("dx_accounts_now")=1
	rs.update
  rs.close
  call ShowErr("该项债务现已收回！","accounts_all_show.asp?page="&pagenow)
end if
%>