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">
	<%
	'id=request.form("id_project")
	idkey=request("idkey")
	if idkey="" then
	idkey=session("idkey")
	end if
	sqlc="select * from payment where id_pay="&idkey&""
	 set orsc= Server.CreateObject("adodb.recordset")
	 orsc.open sqlc,conn,1,3
	 if not orsc.eof then
	 response.write sqlc

%><form id="form1" name="form1" method="post" action="save_edit_payment.asp">
	
      <table width="500" border="0" align="center">
        <tr>
          <td colspan="2" bgcolor="#CC99FF"><div align="center"><strong>��䢤�������</strong></div></td>
        </tr>
        <tr>
          <td width="206">���ʤ�������</td>
          <td width="284"><INPUT TYPE="text" NAME="id_pay" value=<%=orsc("id_pay")%> size="6" readonly>
		  
		  </td>
        </tr>
        <tr>
          <td bgcolor="F1F2F0">�է�����ҳ</td>
          <td bgcolor="F1F2F0"><%=orsc("ypay") %>
		  <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
y=orsc("ypay")
y=cint(y)
'response.write "<tr><td>"&yearbegin&"</td></tr>"
i=0

do while i<5
	%>
              <option <%
		if yearbegin=y then 
		%>
		value=<%=y%>
		selected
		<%else%>
		<%end if%>> <%=yearbegin%> </option>
              <%i=i+1
	yearbegin=yearbegin+1
		loop
		%>
                        </select></td>
        </tr>
        <tr>
          <td>������������ҳ</td>
          <td><SELECT NAME="id_budget_type"><%
		 ' response.write orsc("id_budget_type")
		   id_budget_type=orsc("id_budget_type")
		 ' response.write id_budget_type
		  'sqlbt="select * from type_budget where id_budget_type ="&orsc("id_budget_type")&""
		  sqlbt="select * from type_budget"
		  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
		  orsbt.movefirst
			do while not orsbt.eof
			%>
              <option <%
		if orsbt("id_budget_type")=cint(id_budget_type) then 
		%>
		value=<%=id_budget_type%>
		selected
		<%else%>
		value=<%=orsbt("id_budget_type")%>
		<%end if%>> <%=orsbt("n_budget_type")%> </option>
		<%
			orsbt.movenext
			loop
		' response.write orsbt("n_budget_type")
		 ' response.write id_budget_type
		 
		  end if
		  %></SELECT></td>
        </tr>
        <tr>
          <td bgcolor="F1F2F0">�Ţ�ա�</td>
          <td bgcolor="F1F2F0"><%
		  response.write orsc("id_dka")
		  response.write "<INPUT TYPE=text NAME=id_dka value="&orsc("id_dka")&">"
		  
		  
		  %></td>
        </tr>
        <tr>
          <td>��������</td>
          <td><SELECT NAME="id_paysub_sub"><%
		  response.write orsc("id_paysub_sub")
		  id_paysub_sub=orsc("id_paysub_sub")
		  'sqlpss="select * from paysub_sub where id_paysub_sub ="&orsc("id_paysub_sub")&""
		  sqlpss="select * from 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
		  orspss.movefirst
		  do while not orspss.eof 
			%>
              <option <%
		if orspss("id_paysub_sub")=cint(id_paysub_sub) then 
		%>
		value=<%=id_paysub_sub%>
		selected
		<%else%>
		value=<%=orspss("id_paysub_sub")%>
		<%end if%>> <%=orspss("n_paysub_sub")%> </option>
		<%
			
			
			orspss.movenext
		  loop
		 ' response.write orspss("n_paysub_sub")
		 ' response.write id_budget_type
		  end if
		  
		  %></SELECT></td>
        </tr>
        <tr>
          <td bgcolor="F1F2F0">����¨�������</td>
          <td bgcolor="F1F2F0"><SELECT NAME="id_paysub"><%
		  response.write orsc("id_paysub")
		  id_paysub=orsc("id_paysub")
		  ' sqlps="select * from paysub where id_paysub="&orsc("id_paysub")&""
		   sqlps="select * from 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
		  orsps.movefirst
		  do while not orsps.eof
			%>
              <option <%
		if orsps("id_paysub")=cint(id_paysub) then 
		%>
		value=<%=id_paysub%>
		selected
		<%else%>
		value=<%=orsps("id_paysub")%>
		<%end if%>> <%=orsps("n_paysub")%> </option>
		<%
			orsps.movenext
		  loop
		 ' response.write orsps("n_paysub")
		 ' response.write id_budget_type
		  end if
		  %></SELECT></td>
        </tr>
        <tr>
          <td>��Ǵ��ѡ</td>
          <td><SELECT NAME="id_paymain"><%
		  response.write orsc("id_paymain")
		  id_paymain=orsc("id_paymain")
		  ' sqlpm="select * from paymain where id_paymain ="&orsc("id_paymain")&""
		  sqlpm="select * from 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
			orspm.movefirst
			do while not orspm.eof
			%>
              <option <%
		if orspm("id_paymain")=cint(id_paymain) then 
		%>
		value=<%=id_paymain%>
		selected
		<%else%>
		value=<%=orspm("id_paymain")%>
		<%end if%>> <%=orspm("n_paymain")%> </option>
			
			<%
			orspm.movenext
			loop

'response.write orspm("n_paymain")
		 ' response.write id_budget_type
		  end if
		  %></SELECT></td>
        </tr>
        <tr>
          <td bgcolor="F1F2F0">�ѹ��͹���͡���</td>
          <td bgcolor="F1F2F0">
		 <% numday=Array("00","01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31")
				  i=lbound(numday)
				  dp=orsc("dp")
				 ' response.write numday(i)
				  %>

<div >�ѹ 
                  <select name="dp">
				  <% 				  do while i<=ubound(numday)
				  %>
				  <option <% if numday(i)=dp then %>
				  value=<%=dp%> selected <%else%>
				  value=<%=numday(i)%><%end if%>><%=numday(i)%></option>
				<%  i=i+1
				  loop
				  %>
                  </select>
				  <%
				   nummonth=array("01","02","03","04","05","06","07","08","09","10","11","12")
				nummonthth=array("���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				  mp=orsc("mp")
				 ' if mp="�չҤ�" then
				'  mp="03"
				  'end
				  %>
                  <select name="mp">
				    <%
				do while iii<=ubound(nummonthth)
  %>
  <option <% if nummonthth(iii)=mp then%>
  value=<%=mp%> selected <%else%>
  value=<%=nummonthth(iii)%><%end if%>><%=nummonthth(iii)%></option>
  <%ii=ii+1
        iii=iii+1
		loop
	%>
                  </select>
		  <INPUT TYPE="text" NAME="yp" size="10" value=<%=orsc("yp")%>  ><br>
		  
		 <%
		  response.write orsc("dp")&"/"&orsc("mp")&"/"&orsc("yp")
		  
		  %></td>
        </tr>

<tr>
          <td >Ἱ������ҳ</td>
          <td >
		  <%response.write orsc("plan_budget")%>
		  <select name="plan_budget"><%
		  
		  id=orsc("plan_budget")
		  sqlpb="select * from plan_budget"
		  set orspb=server.createobject("adodb.recordset")
		  orspb.open sqlpb,conn,1,3
		  if not orspb.eof then
          response.write "<option value=0>-</option>"

orspb.movefirst
		 do while not orspb.eof
			%>
              <option <%
		if orspb("id")=cint(id) then 
		%>
		value=<%=id%>
		selected
		<%else%>
		value=<%=orspb("id")%>
		<%end if%>> <%=orspb("plan_budget_name")%> </option>
			
			<%
			orspb.movenext
			loop
		  end if
		  
		  %></select></td>
        </tr>
		 <tr>
          <td bgcolor="F1F2F0">�ż�Ե</td>
          <td bgcolor="F1F2F0"><%
		  response.write orsc("outcome")%>

<select name="outcome">
		  <%
		ido=orsc("outcome")
		  sqlo="select * from outcome"
		  set orso=server.createobject("adodb.recordset")
		  orso.open sqlo,conn,1,3
		  if not orso.eof then
		  response.write "<option value=0>-</option>"
		   orso.movefirst
		 do while not orso.eof
			%>
              <option <%
		if orso("id")=cint(ido) then 
		%>
		value=<%=ido%>
		selected
		<%else%>
		value=<%=orso("id")%>
		<%end if%>> <%=orso("outcome_name")%> </option>
			
			<%
			orso.movenext
			loop
		  end if
		  
		  %></select></td>
        </tr>

<tr>
          <td>�ӹǹ�Թ</td>
          <td><%
		  'response.write orsc("amountp")
		  response.write "<INPUT TYPE=text NAME=amountp value="&orsc("amountp")&">"
		  
		  %></td>
        </tr>
        <tr>
          <td bgcolor="F1F2F0">���ѹ�֡</td>
          <td bgcolor="F1F2F0"><%
		  response.write session("username")
		  
		  %></td>
        </tr>
        <tr>
          <td>�ѹ���ҷ��ѹ�֡</td>
          <td><%
		 ' response.write orsc("date_mo")
		 nows=now
		' response.write now
		  response.write "<TEXTAREA NAME=date_no >"&nows&"</TEXTAREA> "
		  
		  %></td>
        </tr>
		<tr>
          <td>��������´</td>
          <td><%

response.write "<TEXTAREA NAME=detailm >"&detailm&"</TEXTAREA> "
		  
		  %></td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#FFFFFF"><div align="center">
            
              <input type="submit" name="Submit" value="Submit" />
          
            </div></td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#CC66FF"><div align="center" class="style1">[<a href="index_pay_budget.asp">Add</a>]
		  <%
		 c=request("c")
		  response.write c
		 if c=1 then
		  %>
		    [<a href="index_pay_budget.asp">˹�Ҥ������»�Шӻ�</a>] 
		  <%
		  elseif c=2 then
		  %>
		    [<a href="detail_pay_project.asp?id_project=<%=orsc("id_project")%>">˹�Ҥ������¢ͧ�ç���</a>] 
		  <%
		  elseif c="" then
%>
  [<a href="detail_pay_mount.asp">˹�Ҥ������»�Ш���͹</a>] 
 
<%
		  end if
		  %>
		 [<a href=del_payment.asp?id=<%=orsc("id_pay")%> onclick="return confirm('�س��ͧ���ź?');">Del</a>]</div></td>
        </tr>
      </table>
	    </form>
	  <%
	  else
	  response.write "no data"
	   end if
	  %>
    </td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finance/edit_payment.asp.bak