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"><div align=center>���͡����������ҡ����
	<%
	id=request("id")
	if id="" then
	id=session("id_rp_group")
	session("id_rp_group")=id
	else
	session("id_rp_group")=id
	end if
	ypay=session("ypay")
	id_budget_type=session("id_budget_type")
	sqlid="select * from report_group where id="&id&""
	set orsid=server.createobject("adodb.recordset")
		  orsid.open sqlid,conn,1,3
		  if not orsid.eof then
			response.write orsid("rp_group_name")&"<br>"
else
response.write "Nodata"

end if
		  response.write "�է�����ҳ"&ypay&"<br>"
sql2="select * from type_budget where id_budget_type="&id_budget_type&""
	set ors2=server.createobject("adodb.recordset")
		  ors2.open sql2,conn,1,3
		  if not ors2.eof then
			response.write ors2("n_budget_type")&"<br>"
else
response.write "Nodata"

end if
	
	%>
	---------------------------------
	<br><br><br>
	���͡����������ҡ����<%=orsid("rp_group_name")%>
	<FORM name="form2" METHOD=POST ACTION="add_rp_group_sub.asp">
	<select name="id_paysub_sub" onChange="javascript:window.document.form2.submit();">
                <% 
			  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>
	
	</FORM>
	<br><br>
	��¡�÷�����͡�������<br><br>
	<table>
	<tr bgcolor="#C0C0C0"><td >�ӴѺ���<td>����<td>����<td>����͡</tr>
<%

set orssg=server.createobject("adodb.recordset")
	 sqlmarksg="select * from rp_group_sub where id_rp_group='"&id&"' and ypay='"&ypay&"' and id_budget_type='"&id_budget_type&"'"
	 orssg.open sqlmarksg,Conn,1,3
	if not orssg.eof then
	orssg.movefirst
	do while not orssg.eof
			id_paysub_sub=orssg("id_paysub_sub")
			response.write "<tr><td><td>"&orssg("id_paysub_sub")
			
				sqlsub="select * from paysub_sub where id_paysub_sub="&id_paysub_sub&""
				set orssub=server.createobject("adodb.recordset")
				'response.write sqlsub
				orssub.open sqlsub,conn,1,3
						if not orssub.eof then
							response.write "<td>"&orssub("n_paysub_sub")
						'response.write "<td>"&orssg("id_paysub_sub")
						end if
			'response.write "<td>[<a href=del_add_rp_group.asp?id="&orssg("id_rp_group")&">del</a>]"
			%>
			<td>[<a href=del_add_rp_group.asp?id=<%=orssg("id_rp_group")%> 
									onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
									<%
		orssg.movenext
		loop
end if
%>

</table>

</div>

</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finance/add_rp_group_form.asp.bak