class000.asp

财务预算管理 财务支出

<!--#include file="sysconfig.asp"-->
<%
'黄华于2008年3月
%>
<link type="text/css" href="css/tree.css" rel="stylesheet">
<script language=jscript>
		function ChangeStatus(o)
		{
			if (o.parentNode)
			{
				if (o.parentNode.className == "Opened")
				{
					o.parentNode.className = "Closed";
				}
				else
				{
					o.parentNode.className = "Opened";
				}
			}
		}
</script>
<%
dim sql,rsguikou,rsdanwei,rsxiangmu,ErrMsg
set rsguikou=server.CreateObject("adodb.recordset")
rsguikou.open "Select * from guikou where cost_delete=0",conn,1,3
%>
<script language="JavaScript" type="text/JavaScript">
function checkBig()
{
  if (document.form1.guikouName.value=="")
  {
    alert("归口名称不能为空！");
    document.form1.guikouName.focus();
    return false;
  }
}
function checkSmall()
{
  if (document.form2.guikouName.value=="")
  {
    alert("请先添加归口名称！");
	document.form1.guikouName.focus();
	return false;
  }

  if (document.form2.danweiName.value=="")
  {
    alert("单位名称不能为空！");
	document.form2.danweiName.focus();
	return false;
  }
}
function checkSmallsub()
{
  if (document.form2.xiangmuName.value=="")
  {
    alert("请先添加单位名称！");
	document.form1.danweiName.focus();
	return false;
  }

  if (document.form2.xiangmuName.value=="")
  {
    alert("项目名称不能为空！");
	document.form2.xiangmuName.focus();
	return false;
  }
}
function ConfirmDelBig()
{
   if(confirm("确定要删除此归口吗？删除此归口同时将删除所包含的单位，并且不能恢复！"))
     return true;
   else
     return false;
	 
}

function ConfirmDelSmall()
{
   if(confirm("确定要删除此单位吗？一旦删除将不能恢复！"))
     return true;
   else
     return false;
	 
}
function ConfirmDelSmallsub()
{
   if(confirm("确定要删除此项目吗？一旦删除将不能恢复！"))
     return true;
   else
     return false;
	 
}
</script>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="600" align="center" class="a2">
  <tr>
		
    <td class="a1" height="25" align="center"><strong>预 算 类 别 设 置</strong></td>
	</tr>
	<tr class="a4">
		
    <td align="left"> <br>
      管理选项：<a href="guikou_Add.asp">添加业务科室</a><br>
      <br>
</td></tr>
<tr><td>
  <div class="treemenu" id="categorytree">
	  	  <%
do while not rsguikou.eof
%>
        <ul>
          <li class="closed"  > <img class=s src="css/s.gif" onClick="javascript:ChangeStatus(this);">
            <table cellpadding="2" cellspacing="1" border="0" width="600" align="center" >
              <tr class="a4"> 
                <td align="left"> 业务科室：<%=rsguikou("guikou_Name")%> </td>
                <td align="left"><a href="danwei_Add.asp?guikou_id=<%=rsguikou("id")%>">添加单位</a> 
                  | <a href="guikou_edit.asp?id=<%=rsguikou("id")%>">修改</a> | 
                  <a href="guikou_del.asp?id=<%=rsguikou("id")%>" onClick="return ConfirmDelBig();">删除</a></td>
              </tr>
            </table>
            <%
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%>
            <ul>
              <%do while not rsdanwei.eof%>
              <li class="closed"  >&nbsp;&nbsp;<img class=s src="css/s.gif" onclick="javascript:ChangeStatus(this);"> 
                <table cellpadding="2" cellspacing="1" border="0" width="600" align="center" >
                  <tr class="a4"> 
                    <td align="left">单位：<%=rsdanwei("danwei_name")%> </td>
                    <td align="left"><a href="xiangmu_Add.asp?guikou_id=<%=rsguikou("id")%>&danwei_id=<%=rsdanwei("id")%>">加项目</a> 
                      | <a href="guikou_edit.asp?id=<%=rsguikou("id")%>"></a><a href="danwei_edit.asp?id=<%=rsdanwei("id")%>">修改</a> 
                      | <a href="danwei_Del.asp?id=<%=rsdanwei("id")%>" onClick="return ConfirmDelSmall();">删除</a></td>
                  </tr>
                </table>
                <%'项目%>
                <%
set rsxiangmu=server.CreateObject("adodb.recordset")
rsxiangmu.open "Select * from xiangmu Where cost_delete=0 danwei_id='" & rsdanwei("id") & "'",conn,1,3
if not(rsxiangmu.bof and rsxiangmu.eof) then%>
                <ul>
                  <%do while not rsxiangmu.eof%>
                  <li class="closed"  >&nbsp;&nbsp;&nbsp;&nbsp;<img class=s src="css/s.gif" onclick="javascript:ChangeStatus(this);"> 
                    <table cellpadding="2" cellspacing="1" border="0" width="600" align="center" >
                      <tr class="a4"> 
                        <td align="left">项目：<%=rsxiangmu("xiangmu_name")%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                        </td>
                        <td align="left"><a href="xiangmu_edit.asp?id=<%=rsxiangmu("id")%>">修改</a> 
                          | <a href="xiangmu_Del.asp?id=<%=rsxiangmu("id")%>" onClick="return ConfirmDelSmallsub();">删除</a></td>
                      </tr>
                    </table>
                    <%
rsxiangmu.movenext
loop%>
                  </li>
                </ul>
                <%end if
rsxiangmu.close
set rsxiangmu=nothing
rsdanwei.movenext
loop%>
            </ul>
            <%
end if
rsdanwei.close
set rsdanwei=nothing	
rsguikou.movenext
%>
        </ul>

<%loop
%>
</div>
      </td>
	</tr>
</table>
<BR>
<%htmlend%>

<%
rsguikou.close
set rsguikou=nothing
call CloseConn()
%>