File Manager

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />

<body>
<table width="100%" border="0">
  <tr>
    <td colspan="2" bgcolor="#9900FF"><div align="right" class="style1">��§ҹ��������<br />
      ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</div></td>
  </tr>
  <tr>
    <td width="4%" align="left" valign="top">&nbsp;</td>
    <td width="96%" align="left" valign="top">
      <p align="left"><strong>�Թ�յ�͹�Ѻ</strong> �س 
        <%
	 username=session("username")
	 'password=request.form("password")
	 response.write username
	  %>
      </p>
      
      <p align="center">        �ѹ�֡��������¨���ʶҺѹ�</p>
      <form id="form1" name="form1" method="post" action="index_pay_budget.asp">
        <label></label>
        <br />
        <table width="50%" border="0" align="center" bgcolor="#FFFFCC">
          <tr>
            <td><div align="right">�է�����ҳ</div></td>
            <td><select name="ypay">
	<% 
	
mydate=date
myyear=year(mydate)
mym=month(mydate)
if mym>9 then
yearbegin=myyear+540
myyear=myyear+544
else
yearbegin=myyear+539
myyear=myyear+543
end if

'myyear=myyear+543
'response.write "<tr><td>"&yearbegin&"</td></tr>"
i=0

do while i<5
	%>
		<option <%
		if yearbegin=myyear then 
		%>
		value=<%=myyear%>
		selected
		<%else%>
		value=<%=yearbegin%>
		<%end if%>>
		<%=yearbegin%>
		</option>
		<%i=i+1
	yearbegin=yearbegin+1
		loop
		%>
            </select><%
			'response.write myyear
			%></td>
          </tr>
          <tr>
            <td><div align="right">������������ҳ</div></td>
            <td><select name="id_budget_type">
<% 
			  set ors_o=server.createobject("adodb.recordset")
	 sqlmark_o="select * from type_budget"
	 ors_o.open sqlmark_o,Conn,1,3
	ors_o.movefirst
	do while not ors_o.eof
			response.write "<option value="&ors_o("id_budget_type")&">"&ors_o("n_budget_type")&" </option>"
		ors_o.movenext
		loop
		%>
			  </select></td>
          </tr>
          <tr>
            <td colspan="2"><label>
              <div align="center">
                <input type="submit" name="Submit" value="Submit" />
                </label>
            </div></td>
          </tr>
        </table>
        <p>&nbsp;</p>
        <table width="100%" border="1" align="center">
          <tr>
            <td height="120" align="left" valign="top"><table width="100%" border="1">
              <tr>
                <td colspan="4" bgcolor="#9999FF"><div align="center">������ҳ�Թ�蹴Թ</div></td>
                </tr>
              <tr>
                <td bgcolor="#6600FF"><div align="center" class="style2">�է�����ҳ</div></td>
                <td bgcolor="#6600FF"><div align="center" class="style2">�ӹǹ�Թ������Ѻ�Ѵ���</div></td>
                <td bgcolor="#6600FF"><span class="style2">�������</span></td>
                <td bgcolor="#6600FF"><div align="center" class="style2">Action</div></td>
              </tr>
			  <%
			  id=1
			  sqlp="select * from yearbudget where id_budget_type='"&id&"'order by idyear desc"
			  set orsp=server.createobject("adodb.recordset")
			  orsp.open sqlp,conn,1,3

if not orsp.eof then
			  orsp.movefirst
			  		do while not orsp.eof
							response.write "<tr>"
							response.write "<td>"&orsp("idyear")
							response.write "<td>"&formatnumber(orsp("budgetall"))
									sqlb="select * from payment where ypay='"&orsp("idyear")&"' and id_budget_type='"&id&"'"
									set orsb=server.CreateObject("adodb.recordset")
								 	orsb.open sqlb,Conn,1,3
												 budgetall=0
												 sumb=0
												 budgetall1=0
									if not orsb.eof then
									
									orsb.movefirst
										do while not orsb.eof 
											budgetall1=orsb("amountp")
											budgetall=budgetall+budgetall1
										orsb.movenext
										loop
							
							'response.write budgetall
							'
							
							
							'response.write orsp("budgetall")
							
									end if
				sumb=clng(orsp("budgetall"))-clng(budgetall)
				response.write "<td>"
					response.write formatnumber(sumb)
					response.write "<td>"
					response.write "[<a href=edit_budget_form.asp?idyear="&orsp("idyear")&"&id_budget_type="&orsp("id_budget_type")&">Edit</a>]"
							%>
									[<a href=del_budget.asp?idyear=<%=orsp("idyear")&"&id_budget_type="&orsp("id_budget_type")%> 
									onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
									
									<%
					orsp.movenext
					loop
			  end if
			  %>
              <tr>
                <td colspan="4">[<a href="add_budget_form.asp">����</a>]</td>
                </tr>
            </table>
            <p>&nbsp;</p></td>
            <td align="center" valign="top"><table width="100%" border="1">
              <tr>
                <td colspan="4" bgcolor="#9966CC"><div align="center" class="style2">������ҳ�Թ�����</div></td>
                </tr>
              <tr>
                <td bgcolor="#660099"><div align="center" class="style2">�է�����ҳ</div></td>
                <td bgcolor="#660099"><div align="center" class="style2">�ӹǹ�Թ����Ѻ�Ѵ���</div></td>
                <td bgcolor="#660099"><span class="style2">�������</span></td>
                <td bgcolor="#660099"><div align="center"><span class="style1">Action</span></div></td>
              </tr>
			   <%
			  id2=2
			  sqlp1="select * from yearbudget where id_budget_type='"&id2&"'order by idyear desc"
			  set orsp1=server.createobject("adodb.recordset")
			  orsp1.open sqlp1,conn,1,3
			  if not orsp1.eof then

orsp1.movefirst
			  		do while not orsp1.eof
							response.write "<tr>"
							response.write "<td>"&orsp1("idyear")
							response.write "<td>"&formatnumber(orsp1("budgetall"))
									sqlb1="select * from payment where ypay='"&orsp1("idyear")&"' and id_budget_type='"&id2&"'"
									set orsb1=server.CreateObject("adodb.recordset")
								 	orsb1.open sqlb1,Conn,1,3
												  budgetall2=0
			   										budgetall12=0
													sumb2=0
									if not orsb1.eof then
									
									orsb1.movefirst
										do while not orsb1.eof 
											budgetall12=orsb1("amountp")
											budgetall2=budgetall2+budgetall12
											orsb1.movenext
										loop
							
							'response.write budgetall2&"<br>"
							sumb2=clng(orsp1("budgetall"))-clng(budgetall2)
							
							'response.write orsp("budgetall")
							
									end if
							response.write "<td>"
							response.write formatnumber(sumb2)&"<br>"
							response.write "<td>"
							response.write "[<a href=edit_budget_form.asp?idyear="&orsp1("idyear")&"&id_budget_type="&orsp1("id_budget_type")&">Edit</a>]"
							%>
									[<a href=del_budget.asp?idyear=<%=orsp1("idyear")&"&id_budget_type="&orsp1("id_budget_type")%> 
									onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
									
									<%

orsp1.movenext
					loop
			  end if
			  %>
              <tr>
                <td colspan="4"><div align="right">[<a href="add_budget_form.asp">����</a>]</div></td>
                </tr>
            </table></td>
          </tr>
        </table>
        <p align="center">&nbsp;</p>
        <p align="center">&nbsp;</p>
      </form>      <p align="center"><br />
    </p></td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finance/index.asp