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" />

<title>�к���Ǩ�ͺ��¨��¡���Թ</title>

<style type="text/css">

</style>

</head>

</table></td>
    <td align="left" valign="top">
      <table width="100%" border="0">
     <%
     ypay=request.Form("ypay")
	     id_budget_type=request.Form("id_budget_type")
		 
		 if ypay="" or id_budget_type="" then
	 ypay=session("ypay")
	 id_budget_type=session("id_budget_type")
	 end if
 
     session("ypay")=ypay
     session("id_budget_type")=id_budget_type
     %>
        <tr>
          <td colspan="2"><div align="center">
            <p>[<a href="index_project.asp">�ѹ�֡�������ç���<%=session("permis")%></a>]</p>
            <p>�ѹ�֡��¨��¢ͧ�Թ������ҳ...<%=id_budget_type%>
                <%
		   
		 ' response.write id_budget_type
		  sqlbt="select * from type_budget where id_budget_type ="&id_budget_type&""
		  set orsbt=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orsbt.open sqlbt,conn,1,3
		  if not orsbt.eof then
		 response.write orsbt("n_budget_type")
		 ' response.write id_budget_type
		  end if
		  %>
                <br />
              ��Шӻէ�����ҳ<%=ypay%></p>
          </div></td>
        </tr>
        <tr>
          <td colspan="2"><form action="add_payment.asp" method="post"><table width="100%" border="0" bgcolor="#FFFFCC">
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">�Ţ���ա�</div></td>
              <td bgcolor="#FFFFCC"><input type="text" name="id_dka" /></td>
              <td bgcolor="#FFFFCC"><div align="center"></div></td>
              <td bgcolor="#FFFFCC"><div align="center"></div></td>
              <td bgcolor="#FFFFCC"><div align="center"></div></td>
              <td bgcolor="#FFFFCC"><div align="center"></div></td>
            </tr>
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">��������</div></td>
              <td><select name="id_paysub_sub">
                <% 
			  set ors_o=server.createobject("adodb.recordset")
	 sqlmark_o="select * from paysub_sub"
	 ors_o.open sqlmark_o,Conn,1,3
	ors_o.movefirst
	do while not ors_o.eof
			response.write "<option value="&ors_o("id_paysub_sub")&">"&ors_o("n_paysub_sub")&" </option>"
		ors_o.movenext
		loop
		%>
              </select></td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">����¨���</div></td>
              <td><select name="id_paysub">
                <% 
			  set ors_ps=server.createobject("adodb.recordset")
	 sqlmark_ps="select * from paymain"
	 ors_ps.open sqlmark_ps,Conn,1,3
	ors_ps.movefirst
	do while not ors_ps.eof
			response.write "<option value="&ors_ps("id_paymain")&">"&ors_ps("n_paymain")&" </option>"
		ors_ps.movenext
		loop
		%>
              </select></td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
              <tr>
              <td bgcolor="#CCCCCC"><div align="center">����¨���(����)</div></td>
              <td><select name="id_paymain">
                <% 
			  set ors_pm=server.createobject("adodb.recordset")
	 sqlmark_pm="select * from paysub"
	 ors_pm.open sqlmark_pm,Conn,1,3
	ors_pm.movefirst
	do while not ors_pm.eof
			response.write "<option value="&ors_pm("id_paysub")&">"&ors_pm("n_paysub")&" </option>"
		ors_pm.movenext
		loop
		%>
              </select></td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">�ѹ/��͹/��</div></td>
              <td><select name="dp" id="dp">
                <option value="00">�ѹ</option>
                <option value="01">01</option>
                <option value="02">02</option>
                <option value="03">03</option>
                <option value="04">04</option>
                <option value="05">05</option>
                <option value="06">06</option>
                <option value="07">07</option>
                <option value="08">08</option>
                <option value="09">09</option>
                <option value="10">10</option>
                <option value="11">11</option>
                <option value="12">12</option>
                <option value="13">13</option>
                <option value="14">14</option>
                <option value="15">15</option>
                <option value="16">16</option>
                <option value="17">17</option>
                <option value="18">18</option>
                <option value="19">19</option>
                <option value="20">20</option>
                <option value="21">21</option>
                <option value="22">22</option>
                <option value="23">23</option>
                <option value="24">24</option>
                <option value="25">25</option>
                <option value="26">26</option>
                <option value="27">27</option>
                <option value="28">28</option>
                <option value="29">29</option>
                <option value="30">30</option>
                <option value="31">31</option>
              </select>
                <select name="mp" id="select">
                  <option value="00">��͹</option>
                  <option value="���Ҥ�">���Ҥ�</option>
                  <option value="����Ҿѹ��">����Ҿѹ��</option>
                  <option value="�չҤ�">�չҤ�</option>
                  <option value="����¹">����¹</option>
                  <option value="����Ҥ�">����Ҥ�</option>
                  <option value="�Զع�¹">�Զع�¹</option>
                  <option value="�á�Ҥ�">�á�Ҥ�</option>
                  <option value="�ԧ�Ҥ�">�ԧ�Ҥ�</option>
                  <option value="�ѹ��¹">�ѹ��¹</option>
                  <option value="���Ҥ�">���Ҥ�</option>
                  <option value="��Ȩԡ�¹">��Ȩԡ�¹</option>
                  <option value="�ѹ�Ҥ�">�ѹ�Ҥ�</option>
                </select>
                <input name="yp" type="text" id="yp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" /></td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">�ӹǹ�Թ</div></td>
              <td><input name="amountp" type="text" id="amountp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10" /></td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">�����˵�</div></td>
              <td><INPUT TYPE="detailm" NAME="detailm" size="50">
			  </td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
			 <tr>
              <td bgcolor="#CCCCCC"><div align="center">Ἱ������ҳ</div></td>
              <td><select name="plan_budget">
                <% 
			  set ors_bg=server.createobject("adodb.recordset")
	 sqlmark_bg="select * from plan_budget"
	 ors_bg.open sqlmark_bg,Conn,1,3
	ors_bg.movefirst
		response.write "<option value=0>-</option>"

do while not ors_bg.eof
			response.write "<option value="&ors_bg("id")&">"&ors_bg("plan_budget_name")&" </option>"
		ors_bg.movenext
		loop
		%>
              </select>
			  </td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td bgcolor="#CCCCCC"><div align="center">�ż�Ե</div></td>
			  
              <td><select name="outcome">
                <% 
			  set ors_o=server.createobject("adodb.recordset")
	 sqlmark_o="select * from outcome"
	 ors_o.open sqlmark_o,Conn,1,3
	ors_o.movefirst
	response.write "<option value=0>-</option>"
	do while not ors_o.eof
			response.write "<option value="&ors_o("id")&">"&ors_o("outcome_name")&" </option>"
		ors_o.movenext
		loop
		%>
              </select></td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td colspan="6"><label>
                <div align="center">
                  <input type="submit" name="Submit" value="Submit" />
                  </div>
              </label></td>
              </tr>
            <tr>
              <td colspan="6"><br /></td>
            </tr>
          </table>
          </form>
            <form id="form1" name="form1" method="post" action="detail_pay_mount.asp">
              <p align="center">�ʴ���¡�ä������� ��Ш���͹ </p>
              <table width="100%" border="0" bgcolor="#CCFFFF">
                <tr>
                  <td width="45%"><div align="right">���͡��͹</div></td>
                  <td width="13%"><div align="center">
                    <select name="mp" id="mp">
	    			<option value="-">��͹</option>	
				  <option value="���Ҥ�">���Ҥ�</option>
				  <option value="����Ҿѹ��">����Ҿѹ��</option>
				  <option value="�չҤ�">�չҤ�</option>
				  <option value="����¹">����¹</option>
				  <option value="����Ҥ�">����Ҥ�</option>
				  <option value="�Զع�¹">�Զع�¹</option>
				  <option value="�á�Ҥ�">�á�Ҥ�</option>
				  <option value="�ԧ�Ҥ�">�ԧ�Ҥ�</option>
				  <option value="�ѹ��¹">�ѹ��¹</option>
				  <option value="���Ҥ�">���Ҥ�</option>
				  <option value="��Ȩԡ�¹">��Ȩԡ�¹</option>
				  <option value="�ѹ�Ҥ�">�ѹ�Ҥ�</option>
                  </select>
                  </div></td>
                  <td width="42%"><input name="�ʴ�" type="submit" id="�ʴ�" value="Submit" /></td>
                </tr>
				
				 <%
				nummonthth=array("00","���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  iii=lbound(nummonthth)
		
			
				  %>
 <table width="100%" border="1" bgcolor="#FFFFCC">
        <tr>
          <td bgcolor="#CCCCCC"><div align="center">�Ţ���ա�</div></td>
		  <td bgcolor="#CCCCCC"><div align="center">�ѹ/��͹/��</div></td>
		  <td bgcolor="#CCCCCC"><div align="center">�ç���</div></td>
          <td bgcolor="#CCCCCC"><div align="center">��¡��</div></td>
		 
		  <td bgcolor="#CCCCCC"><div align="center">�ӹǹ�Թ</div></td>
          <td bgcolor="#CCCCCC"><div align="center">Action
          </div>
          <div align="center"></div></td>
        </tr>				   
		<%
				do while iii<=ubound(nummonthth)
				'response.write nummonthth(iii)&""&id_budget_type&""&ypay

'--------------------
		sqlshow="select * from payment where id_budget_type='"&id_budget_type&"' and mp='"&nummonthth(iii)&"' and ypay='"&ypay&"' order by id_pay "
		set orsshow=server.createobject("adodb.recordset")
		 orsshow.open sqlshow,conn,1,3
		' response.write "aaa"&sqlshow
		 if not orsshow.eof then
		amounta=0
		 %>
		 <tr bgcolor="#FFFF99"><td ><%=nummonthth(iii)%>
		 <%
		 orsshow.movefirst
		 do while not orsshow.eof 
		 
		%>
        <tr>
          <td><%=orsshow("id_dka")%></td><td><%=orsshow("dp")%>/<%=orsshow("mp")%>/<%=orsshow("yp")%>
		  </td><td>
		  <%
		  a=orsshow("id_project")
		  if orsshow("id_project")<>"" then

response.write "[<a href=detail_pay_project.asp?id_project="&orsshow("id_project")&">"&orsshow("id_project")&"</a>]"
		  end if
		  %>
		  
		  </td>
		  
           <td>
		  
		  <%
		  
		'  response.write orsshow("id_paysub_sub")

sqlpss="select * from paysub_sub where id_paysub_sub ="&orsshow("id_paysub_sub")&""
		  set orspss=server.createobject("adodb.recordset")
		  orspss.open sqlpss,conn,1,3
		  if not orspss.eof then
		  response.write orspss("n_paysub_sub")
		  end if
		  
		  
		  %>
          <%'</td><td>=orsshow("id_paysub")%>
		  <%
		  sqlps="select * from paysub where id_paysub="&orsshow("id_paysub")&""
		  set orsps=server.createobject("adodb.recordset")
		  orsps.open sqlps,conn,1,3
		  if not orsps.eof then
		  'response.write orsps("n_paysub")
		  end if
		  %>
          <%'</td><td>=orsshow("id_paymain")%>
		  
		  <%
		  sqlpm="select * from paymain where id_paymain ="&orsshow("id_paymain")&""
		  ' sqlpm="select * from paysub where id_paysub ="&orsshow("id_paymain")&""
		  set orspm=server.createobject("adodb.recordset")
		  orspm.open sqlpm,conn,1,3
		  if not orspm.eof then
		 ' response.write orspm("n_paymain")
		  end if
		  
		 ' </td>%>
          <%
		  i=1
		 id_paymain=orsshow("id_paymain")
		 ' id_paysub=orsps("id_paysub")
		 ' do while i<=cint(id_paymain)
		  %>
          <td align="right">
		  <%
		'  i=i+1
		'  loop
		  %><%=formatnumber(orsshow("amountp"))%>
		  <%
		  a=1
		  loo=1-cint(id_paymain)
		'   loo=3-cint(id_paysub)
		  do while a<=loo
		  'response.write "<td>"
		  a=a+1
		  loop
		  %>
          <td>[<a href=edit_payment.asp?idkey=<%=orsshow("id_pay")%>&c=1>Edit</a>][<a href=del_payment.asp?id=<%=orsshow("id_pay")%> onclick="return confirm('�س��ͧ���ź?');">Del</a>]
<%		  
a=orsshow("amountp")
amounta=amounta+a
orsshow.movenext
loop%>
<tr>
          <td colspan="4" align="right">���=</td><td align="right"><%=formatnumber(amounta)%></td>
        </tr>
<%end if %>

<%
        iii=iii+1
		loop
		%>

File Manager

Editing: finance/index_pay_budget.asp.bak