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">
      <p align="center"><strong>��¡�ä������� ������ </strong>
        <%
	ypay=session("ypay")
	id_project=request("id_project")
	id_budget_type=session("id_budget_type")
response.write id_budget_type
	sqlb1="select * from type_budget where id_budget_type ="&id_budget_type&""
		  set orsid=server.createobject("adodb.recordset")
'response.write sqlbt1
		 orsid.open sqlb1,conn,1,3
		  if not orsid.eof then
		 response.write orsid("n_budget_type")
		
		  end if
	
	
	%>
        <br />
   <strong> �ͧ�ç���</strong>
	<%
	sqlps="select * from project where id_project='"&id_project&"'"
				set orsps=server.createobject("adodb.recordset")
				orsps.open sqlps,conn,1,3
				if not orsps.eof then

response.write orsps("n_project")

end if
	
	%>
	
	<br />
   <strong> �ͧ�է�����ҳ</strong>[<a href=index_project.asp><%=ypay%></a>]<br /></p>
	
	<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="#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">�ӹǹ�Թ</td>
          <td bgcolor="#CCCCCC"><div align="center">Action
          </div>
          <div align="center"></div></td>
        </tr>
		<%
		sqlshow="select * from payment where id_budget_type='"&id_budget_type&"' and ypay='"&ypay&"' and id_project='"&id_project&"'"
		'response.write sqlshow
		set orsshow=server.createobject("adodb.recordset")
'response.write sqlbt1
		 orsshow.open sqlshow,conn,1,3
		 if not orsshow.eof then
		 amounta=0
		 orsshow.movefirst
		 do while not orsshow.eof
		%>
        <tr>
          <td><%=orsshow("id_dka")%></td>
          <td><%
		  
		  response.write orsshow("id_paysub_sub")
    '	  response.write orsc("id_paysub_sub")

sqlpss="select * from paysub_sub where id_paysub_sub ="&orsshow("id_paysub_sub")&""
		  set orspss=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orspss.open sqlpss,conn,1,3
		  if not orspss.eof then
		  response.write orspss("n_paysub_sub")
		 ' response.write id_budget_type
		  end if
		  
		  
		  %></td>
          <td><%=orsshow("id_paysub")%>
		  <%
		  sqlps="select * from paysub where id_paysub="&orsshow("id_paysub")&""
		  set orsps=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orsps.open sqlps,conn,1,3
		  if not orsps.eof then
		  response.write orsps("n_paysub")
		 ' response.write id_budget_type
		  end if
		  %></td>
          <td><%=orsshow("id_paymain")%>
		  
		  <%
		   sqlpm="select * from paymain where id_paymain ="&orsshow("id_paymain")&""
		  set orspm=server.createobject("adodb.recordset")
		 ' response.write sqlbt
		 ' response.write id_budget_type
		  orspm.open sqlpm,conn,1,3
		  if not orspm.eof then
		  response.write orspm("n_paymain")
		 ' response.write id_budget_type
		  end if
		  
		  %></td>
          <td><%=orsshow("dp")%> <%=orsshow("mp")%> <%=orsshow("yp")%></td>
          <td><%=orsshow("amountp")%></td>
          <td>[<a href=edit_payment.asp?idkey=<%=orsshow("id_pay")%>&c=2>Edit</a>][<a href="del_pay_project.asp?idkey=<%=orsshow("id_pay")%>&id_project=<%=orsshow("id_project")%>" onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]</td>
        </tr>
<%		  
a=orsshow("amountp")
amounta=amounta+a
orsshow.movenext
loop
end if
%>
        
        <tr>
          <td colspan="5" align="right">���=</td><td><%=amounta%></td>
        </tr>
        <tr>
              <td>
                <input type="text" name="id_dka">
              </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><select name="id_paysub">
                <% 
			  set ors_ps=server.createobject("adodb.recordset")
	 sqlmark_ps="select * from paysub"
	 ors_ps.open sqlmark_ps,Conn,1,3
	ors_ps.movefirst
	do while not ors_ps.eof
			response.write "<option value="&ors_ps("id_paysub")&">"&ors_ps("n_paysub")&" </option>"
		ors_ps.movenext
		loop
		%>
              </select></td>
              <td><select name="id_paymain">
<% 
			  set ors_pm=server.createobject("adodb.recordset")
	 sqlmark_pm="select * from paymain"
	 ors_pm.open sqlmark_pm,Conn,1,3
	ors_pm.movefirst
	do while not ors_pm.eof
			response.write "<option value="&ors_pm("id_paymain")&">"&ors_pm("n_paymain")&" </option>"
		ors_pm.movenext
		loop
		%>
			  </select></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="mp">
	    			<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>
              
				<input name="amountp" type="text" id="amountp" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="10">
            </td>
			<td><input name="id_project" type="text" readonly value=<%=id_project%> /></td>
            </tr>
        <tr>
          <td colspan="7"><div align="center">
            <input type="submit" name="Submit" value="Submit" />
          </div></td>
        </tr>
      </table>
	  </form>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;                        </p>
    </td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finance/detail_pay_project.asp.bak