count_test.asp

财务预算管理 财务支出

<%
Option Explicit
%>
<!--#include file="sysconfig.asp"-->
<%
'黄华于2008年3月
dim rsguikou,rsdanwei,rsxiangmu,rscost_jh,rscost_detail
'归口循环开始
set rsguikou=server.CreateObject("adodb.recordset")
rsguikou.open "Select * from guikou where cost_delete=0",conn,1,3
do while not rsguikou.eof
'单位循环开始
set rsdanwei=server.CreateObject("adodb.recordset")
rsdanwei.open "Select * from danwei Where cost_delete=0 and  guikou_id='" & rsguikou("id") & "'",conn,1,3
if not(rsdanwei.bof and rsdanwei.eof) then
do while not rsdanwei.eof
'项目循环开始
set rsxiangmu=server.CreateObject("adodb.recordset")
rsxiangmu.open "Select * from xiangmu Where cost_delete=0 and  danwei_id='" & rsdanwei("id") & "'",conn,1,3
if not(rsxiangmu.bof and rsxiangmu.eof) then
do while not rsxiangmu.eof
'预算明细循环开始
set rscost_jh=server.CreateObject("adodb.recordset")
rscost_jh.open "Select * from cost_jh Where cost_delete=0 and  xiangmu_id='" & xiangmu("id") & "'",conn,1,3
if not(rscos_jh.bof and cost_jh.eof) then
do while not rscost_jh.eof





rscost_jh.movenext
loop
end if
rscost_jh.close
set cost_jh=nothing
'预算明细循环结束

'支出明细循环开始
set rscost_detail=server.CreateObject("adodb.recordset")
rscost_detail.open "Select * from cost_detail Where cost_delete=0 and  xiangmu_id='" & xiangmu("id") & "'",conn,1,3
if not(rscost_detail.bof and rscost_detail.eof) then
do while not rscost_detail.eof





rscost_detail.movenext
loop
end if
rscost_detail.close
set rscost_detail=nothing
'支出明细循环结束
rsxiangmu.movenext
loop
end if
rsxiangmu.close
set rsxiangmu=nothing
'项目循环结束
rsdanwei.movenext
loop
'单位循环结束
end if
rsdanwei.close
set rsdanwei=nothing	
rsguikou.movenext
loop
'归口循环结束
rsguikou.close
set rsguikou=nothing
call CloseConn()
%>