profit_calculate.asp

功能介绍： 1、产品入库

<!-- #include file="Inc/config.asp" -->
<!--#include file="inc/Dx_admin_check.asp"-->
<%
'=================这里供查询今日的利润==========================
DateNow1=datevalue(now())
if month(DateNow1)=1 and day(DateNow1)=31 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif  month(DateNow1)=2 then
  if (year(DateNow1) mod 4=0 and year(DateNow1) mod 100<>0) or year(DateNow1) mod 400=0 then
    if day(DateNow1)=29 then
      DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
	end if
  else
    if day(DateNow1)=28 then
      DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
    end if
  end if
elseif month(DateNow1)=3 and day(DateNow1)=31 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=4 and day(DateNow1)=30 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=5 and day(DateNow1)=31 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=6 and day(DateNow1)=30 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=7 and day(DateNow1)=31 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=8 and day(DateNow1)=31 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=9 and day(DateNow1)=30 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=10 and day(DateNow1)=31 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=11 and day(DateNow1)=30 then
  DateNow2=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
elseif month(DateNow1)=12 and day(DateNow1)=31 then
  DateNow2=datevalue((year(DateNow1)+1)&"-1-1")
else
  DateNow2=datevalue(year(DateNow1)&"-"&month(DateNow1)&"-"&(day(DateNow1)+1))
end if
'出库表里的利润
keer="select count(*) as dx_OutDepot_num From [dx_OutDepot] where dx_OutDepot_time >= #"& DateNow1 &"# and dx_OutDepot_time < #"& DateNow2 &"#"
set rst=conn.execute(keer)
    dx_OutDepot_num=rst("dx_OutDepot_num")
    rst.close
i=dx_OutDepot_num
dim dx_OutDepot_product   '商品编号
dim dx_OutDepot_price   '出售单价
dim dx_OutDepot_count   '出售数量
dim dx_OutDepot_all   '出售总价
dim dx_OutDepot_in   '利润
dim dx_OutDepot_capital   '总利润
redim dx_OutDepot_product(i)
redim dx_OutDepot_price(i)
redim dx_OutDepot_count(i)
redim dx_OutDepot_all(i)
redim dx_OutDepot_in(i)
sqlstr="select * from [dx_OutDepot] where dx_OutDepot_time >= #"& DateNow1 &"# and dx_OutDepot_time < #"& DateNow2 &"#"
rs.open sqlstr,conn,1,1
if not rs.eof then
  k=1
  dx_OutDepot_capital=0
  while not rs.eof
    dx_OutDepot_product(k)=rs("dx_OutDepot_product")
	dx_OutDepot_price(k)=rs("dx_OutDepot_price")
	dx_OutDepot_count(k)=rs("dx_OutDepot_count")
	dx_OutDepot_all(k)=rs("dx_OutDepot_all")
	dx_OutDepot_in(k)=rs("dx_OutDepot_in")
	dx_OutDepot_capital=dx_OutDepot_capital+dx_OutDepot_in(k)
    k=k+1
  rs.movenext
  wend
  Num1=k-1
end if
rs.close
'-----------------------------

'其他支出表里的金额
keer="select count(*) as dx_expense_num From [dx_expense] where dx_expense_time >= #"& DateNow1 &"# and dx_expense_time < #"& DateNow2 &"#"
set rst=conn.execute(keer)
    dx_expense_num=rst("dx_expense_num")
    rst.close
i=dx_expense_num
dim dx_expense_title   '支出理由
dim dx_expense_out   '支出金额
dim dx_expense_capital   '总支出
redim dx_expense_title(i)
redim dx_expense_out(i)
sqlstr="select * from [dx_expense] where dx_expense_time >= #"& DateNow1 &"# and dx_expense_time < #"& DateNow2 &"#"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_expense_capital=0
  while not rs.eof
    dx_expense_title(k)=rs("dx_expense_title")
    dx_expense_out(k)=rs("dx_expense_out")
	dx_expense_capital=dx_expense_capital+dx_expense_out(k)
	k=k+1
  rs.movenext
  wend
  Num2=k-1
end if
rs.close
'-----------------------------

'其他收入表里的金额
keer="select count(*) as dx_income_num From [dx_income] where dx_income_time >= #"& DateNow1 &"# and dx_income_time < #"& DateNow2 &"#"
set rst=conn.execute(keer)
    dx_income_num=rst("dx_income_num")
    rst.close
i=dx_income_num
dim dx_income_title   '收入理由
dim dx_income_in   '收入金额
dim dx_income_capital   '总收入
redim dx_income_title(i)
redim dx_income_in(i)
sqlstr="select * from [dx_income] where dx_income_time >= #"& DateNow1 &"# and dx_income_time < #"& DateNow2 &"#"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_income_capital=0
  while not rs.eof
    dx_income_title(k)=rs("dx_income_title")
    dx_income_in(k)=rs("dx_income_in")
	dx_income_capital=dx_income_capital+dx_income_in(k)
	k=k+1
  rs.movenext
  wend
  Num3=k-1
end if
rs.close
'-----------------------------
dim dx_profit_all
dx_profit_all=dx_OutDepot_capital-dx_expense_capital+dx_income_capital

'=================今日利润的查询结束==========================

'=================这里供查询本月的利润==========================
DateNow3=datevalue(year(DateNow1)&"-"&month(DateNow1)&"-1")
if month(DateNow1)=12 then
  DateNow4=datevalue((year(DateNow1)+1)&"-1-1")
else
  DateNow4=datevalue(year(DateNow1)&"-"&(month(DateNow1)+1)&"-1")
end if
'出库表里的利润
keer="select count(*) as dx_OutDepot_month_num From [dx_OutDepot] where dx_OutDepot_time >= #"& DateNow3 &"# and dx_OutDepot_time < #"& DateNow4 &"#"
set rst=conn.execute(keer)
    dx_OutDepot_month_num=rst("dx_OutDepot_month_num")
    rst.close
i=dx_OutDepot_month_num
dim dx_OutDepot_month_product   '商品编号
dim dx_OutDepot_month_price   '出售单价
dim dx_OutDepot_month_count   '出售数量
dim dx_OutDepot_month_all   '出售总价
dim dx_OutDepot_month_in   '利润
dim dx_OutDepot_month_time   '时间
dim dx_OutDepot_month_capital   '总利润
redim dx_OutDepot_month_product(i)
redim dx_OutDepot_month_price(i)
redim dx_OutDepot_month_count(i)
redim dx_OutDepot_month_all(i)
redim dx_OutDepot_month_in(i)
redim dx_OutDepot_month_time(i)
sqlstr="select * from [dx_OutDepot] where dx_OutDepot_time >= #"& DateNow3 &"# and dx_OutDepot_time < #"& DateNow4 &"#"
rs.open sqlstr,conn,1,1
if not rs.eof then
  k=1
  dx_OutDepot_month_capital=0
  while not rs.eof
    dx_OutDepot_month_product(k)=rs("dx_OutDepot_product")
	dx_OutDepot_month_price(k)=rs("dx_OutDepot_price")
	dx_OutDepot_month_count(k)=rs("dx_OutDepot_count")
	dx_OutDepot_month_all(k)=rs("dx_OutDepot_all")
	dx_OutDepot_month_in(k)=rs("dx_OutDepot_in")
	dx_OutDepot_month_time(k)=rs("dx_OutDepot_time")
	dx_OutDepot_month_capital=dx_OutDepot_month_capital+dx_OutDepot_month_in(k)
    k=k+1
  rs.movenext
  wend
  Num4=k-1
end if
rs.close
'-----------------------------

'其他支出表里的金额
keer="select count(*) as dx_expense_month_num From [dx_expense] where dx_expense_time >= #"& DateNow3 &"# and dx_expense_time < #"& DateNow4 &"#"
set rst=conn.execute(keer)
    dx_expense_month_num=rst("dx_expense_month_num")
    rst.close
i=dx_expense_month_num
dim dx_expense_month_title   '支出理由
dim dx_expense_month_out   '支出金额
dim dx_expense_month_time   '时间
dim dx_expense_month_capital   '总支出
redim dx_expense_month_title(i)
redim dx_expense_month_out(i)
redim dx_expense_month_time(i)
sqlstr="select * from [dx_expense] where dx_expense_time >= #"& DateNow3 &"# and dx_expense_time < #"& DateNow4 &"#"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_expense_month_capital=0
  while not rs.eof
    dx_expense_month_title(k)=rs("dx_expense_title")
    dx_expense_month_out(k)=rs("dx_expense_out")
	dx_expense_month_time(k)=rs("dx_expense_time")
	dx_expense_month_capital=dx_expense_month_capital+dx_expense_month_out(k)
	k=k+1
  rs.movenext
  wend
  Num5=k-1
end if
rs.close
'-----------------------------

'其他收入表里的金额
keer="select count(*) as dx_income_month_num From [dx_income] where dx_income_time >= #"& DateNow3 &"# and dx_income_time < #"& DateNow4 &"#"
set rst=conn.execute(keer)
    dx_income_month_num=rst("dx_income_month_num")
    rst.close
i=dx_income_month_num
dim dx_income_month_title   '收入理由
dim dx_income_month_in   '收入金额
dim dx_income_month_time   '时间
dim dx_income_month_capital   '总收入
redim dx_income_month_title(i)
redim dx_income_month_in(i)
redim dx_income_month_time(i)
sqlstr="select * from [dx_income] where dx_income_time >= #"& DateNow3 &"# and dx_income_time < #"& DateNow4 &"#"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_income_month_capital=0
  while not rs.eof
    dx_income_month_title(k)=rs("dx_income_title")
    dx_income_month_in(k)=rs("dx_income_in")
	dx_income_month_time(k)=rs("dx_income_time")
	dx_income_month_capital=dx_income_month_capital+dx_income_month_in(k)
	k=k+1
  rs.movenext
  wend
  Num6=k-1
end if
rs.close
'-----------------------------
dim dx_profit_month_all
dx_profit_month_all=dx_OutDepot_month_capital-dx_expense_month_capital+dx_income_month_capital

'=================本月利润的查询结束==========================

'=================这里供总利润==========================
'出库表里的利润
keer="select count(*) as dx_OutDepot_all_num From [dx_OutDepot]"
set rst=conn.execute(keer)
    dx_OutDepot_all_num=rst("dx_OutDepot_all_num")
    rst.close
i=dx_OutDepot_all_num
dim dx_OutDepot_all_product   '商品编号
dim dx_OutDepot_all_price   '出售单价
dim dx_OutDepot_all_count   '出售数量
dim dx_OutDepot_all_all   '出售总价
dim dx_OutDepot_all_in   '利润
dim dx_OutDepot_all_time   '时间
dim dx_OutDepot_all_capital   '总利润
redim dx_OutDepot_all_product(i)
redim dx_OutDepot_all_price(i)
redim dx_OutDepot_all_count(i)
redim dx_OutDepot_all_all(i)
redim dx_OutDepot_all_in(i)
redim dx_OutDepot_all_time(i)
sqlstr="select * from [dx_OutDepot] order by dx_OutDepot_id desc"
rs.open sqlstr,conn,1,1
if not rs.eof then
  k=1
  dx_OutDepot_all_capital=0
  while not rs.eof
    dx_OutDepot_all_product(k)=rs("dx_OutDepot_product")
	dx_OutDepot_all_price(k)=rs("dx_OutDepot_price")
	dx_OutDepot_all_count(k)=rs("dx_OutDepot_count")
	dx_OutDepot_all_all(k)=rs("dx_OutDepot_all")
	dx_OutDepot_all_in(k)=rs("dx_OutDepot_in")
	dx_OutDepot_all_time(k)=rs("dx_OutDepot_time")
	dx_OutDepot_all_capital=dx_OutDepot_all_capital+dx_OutDepot_all_in(k)
    k=k+1
  rs.movenext
  wend
  Num7=k-1
end if
rs.close
'-----------------------------

'其他支出表里的金额
keer="select count(*) as dx_expense_all_num From [dx_expense]"
set rst=conn.execute(keer)
    dx_expense_all_num=rst("dx_expense_all_num")
    rst.close
i=dx_expense_all_num
dim dx_expense_all_title   '支出理由
dim dx_expense_all_out   '支出金额
dim dx_expense_all_time   '时间
dim dx_expense_all_capital   '总支出
redim dx_expense_all_title(i)
redim dx_expense_all_out(i)
redim dx_expense_all_time(i)
sqlstr="select * from [dx_expense] order by dx_expense_id desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_expense_all_capital=0
  while not rs.eof
    dx_expense_all_title(k)=rs("dx_expense_title")
    dx_expense_all_out(k)=rs("dx_expense_out")
	dx_expense_all_time(k)=rs("dx_expense_time")
	dx_expense_all_capital=dx_expense_all_capital+dx_expense_all_out(k)
	k=k+1
  rs.movenext
  wend
  Num8=k-1
end if
rs.close
'-----------------------------

'其他收入表里的金额
keer="select count(*) as dx_income_all_num From [dx_income]"
set rst=conn.execute(keer)
    dx_income_all_num=rst("dx_income_all_num")
    rst.close
i=dx_income_all_num
dim dx_income_all_title   '收入理由
dim dx_income_all_in   '收入金额
dim dx_income_all_time   '时间
dim dx_income_all_capital   '总收入
redim dx_income_all_title(i)
redim dx_income_all_in(i)
redim dx_income_all_time(i)
sqlstr="select * from [dx_income] order by dx_income_id desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_income_all_capital=0
  while not rs.eof
    dx_income_all_title(k)=rs("dx_income_title")
    dx_income_all_in(k)=rs("dx_income_in")
	dx_income_all_time(k)=rs("dx_income_time")
	dx_income_all_capital=dx_income_all_capital+dx_income_all_in(k)
	k=k+1
  rs.movenext
  wend
  Num9=k-1
end if
rs.close
'-----------------------------
dim dx_profit_all_all
dx_profit_all_all=dx_OutDepot_all_capital-dx_expense_all_capital+dx_income_all_capital

'=================本月利润的查询结束==========================
%>