class0325a.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="480" 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);">业务科室：<%=rsguikou("guikou_Name")%>
        <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>
	<%
set rsdanwei=server.CreateObject("adodb.recordset")
rsdanwei.open "Select * from danwei Where 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);">单位：<%=rsdanwei("danwei_name")%>
          <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>
			
		<%'项目%>
			<%
set rsxiangmu=server.CreateObject("adodb.recordset")
rsxiangmu.open "Select * from xiangmu Where 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);">项目：<%=rsxiangmu("xiangmu_name")%>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <a href="xiangmu_edit.asp?id=<%=rsxiangmu("id")%>">修改</a> 
            | <a href="xiangmu_Del.asp?id=<%=rsxiangmu("id")%>" onClick="return ConfirmDelSmallsub();">删除</a>
		<%
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()
%>