File Manager

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� ICT</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="bsri2006.css" rel="stylesheet" type="text/css">
</head>
	
<body>
<table width="100%" border="0" cellspacing="1">
  <tr> 
    <td><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif"><div align="center"><strong>��¡��ʶҹй��Ե�Ѩ�غѹ(��ԭ�ҹԾ���)</strong></div></td>
  </tr>
  <tr> 
    <td valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" bordercolor="#CCFFCC">
	  <tr><td colspan="8">[<a href=list_status_stu.asp?c1=1&t1=2>�-�����</a>][<a href=list_status_stu.asp?c1=1&t1=1>�-�����</a>][<a href=list_status_stu.asp?c1=1&t1=7>�-�͡����</a>][<a href=list_status_stu.asp?c1=2&t1=4>�͡���Ԩ��</a>][<a href=list_status_stu.asp?c1=2&t1=5>�͡������Ԫ�</a>] [<a href=list_status_stu.asp?c1=2&t1=9>�-�Ǻ�͡</a>][<a href=list_status_stu.asp?c1=2&t1=3>�͡-������ͧ</a>][<a href=list_status_stu.asp?c1=2&t1=7>�͡-�Ե����ء��</a>]
	  
	  [<a href=search_status_stu.asp>����</a>]
	  [<a href=advisor_thesis2.asp>�Ҩ�������֡��</a>]�ѹ����ѹ=<%=now()%></td>
        </tr>
		<tr><td colspan=6></tr>
        <tr bgcolor="#66CC00"> 
          <td><div align="center">�ӴѺ���</div></td>
		  <td><div align="center">����</div></td>
          <td><div align="center">����-ʡ��</div></td>
		  <td><div align="center">�ѹ��診����֡��</div></td>
		  <td><div align="center">���á���</div></td>  
		
		  <td><div align="center">�Ҩ�������֡��</div></td>
		  <td><div align="center">�ѹ�ͺ����ç</div></td>
          <td><div align="center">�ѹ�ͺ�ҡ����</div></td>

</tr>
        	<%

curriculum=request("c1")
type_curri=request("t1")

sql_group="select * from student_group where id_curriculum='"&curriculum&"' and id_type_curri='"&type_curri&"' order by id_begin_year asc"
set ors_group=server.createobject("adodb.recordset")
ors_group.open sql_group,conn,1,3
if not ors_group.eof then

ors_group.movefirst
do while not ors_group.eof

stug=ors_group("id_stugroup")
	'sql="select * from student where id_status_edu=2 and id_stugroup='"&stug&"'  order by id_stugroup desc"
	sql="select * from student where id_status_edu=2 and id_stugroup='"&stug&"'  order by name_stu desc"
	'sql="select * from student where id_status_edu=1 and id_stugroup='"&stug&"'  order by id_stugroup desc"
	'1-���ѧ�֡��

set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
				if not ors.eof then
							if curriculum=1 then 
							c="�" 
							else c="�͡" 
				end if
			if type_curri=7 then 
					t="�͡�����Ҫ���"
				elseif type_curri=4 then 
				t="���Ԩ��"  
				elseif type_curri=5 then 
				t="������Ԫ�" 
				elseif type_curri=9 then 
				t="(ⷤǺ�͡)" 
				elseif type_curri=3 then 
				t="������ͧ" 
				elseif type_curri=2 then 
				t="�����" 		
				elseif type_curri=1 then 
				t="����" 
				end if

response.write "<tr bgcolor=#99FF33><td colspan=8>��� :: "&ors_group("no_stugroup")&"-"&c&"."&t
				sql_ad="select * from advisor_student where id_stugroup='"&stug&"'"
				set ors_ad=server.createobject("adodb.recordset")
				ors_ad.open sql_ad,conn,1,3
				if not ors_ad.eof then
				 ors_ad.movefirst
				 do while not ors_ad.eof
							sql_adn="select * from lecturer where id_lecturer='"&ors_ad("id_lecturer")&"'"
							set ors_adn=server.createobject("adodb.recordset")
							ors_adn.open sql_adn,conn,1,3
							if not ors_adn.eof then
									'response.write " ����֡���Ԫҡ�� : �."&ors_adn("name_lec")&" "&ors_adn("sur_lec")&"</tr>"
							end		if
						ors_ad.movenext
						loop
				end		if
				ors.movefirst
					a=1
					do while not ors.eof
					bg1=a mod 2
					      if bg1=0 then
							bg="#d4d5d7"
							else bg="#ffffff"
						end if
					response.write "<tr bgcolor="&bg&"><td>"&a'&""&bg1
					response.write "<td><div align=left>"&ors("id_stu")
					response.write "<td><div align=left>"&ors("name_stu")&"  "&ors("sur_stu")
					response.write "<td><div align=center>"&ors("f_edu_semeter")&"/"&ors("f_edu_year")&"</td>"
					id_stugroup=ors("id_stugroup")

sqlti="select * from student_group where id_stugroup='"&id_stugroup&"'"
							set orsti=server.createobject("adodb.recordset")
							orsti.open sqlti,conn,1,3
									if not orsti.eof then
									response.write "<td><div align=center>"&orsti("id_begin_year")
										else response.write "<td>5-</td>"
									end if
						id_stu=ors("id_stu")
							sqlro="select * from advisor_thesis where id_stu='"&id_stu&"' order by id_num"
							set orsro=server.createobject("adodb.recordset")
							orsro.open sqlro,conn,1,3
								b=0
								if not orsro.eof then
								orsro.movefirst
								
								do while not orsro.eof
								id_thesis=orsro("id_thesis")
									'sqlthesis="select * from advisor_thesis where id_stu='"&id_stu&"' order by id_num"
									'set orsthesis=server.createobject("adodb.recordset")
									'orsthesis.open sqlthesis,conn,1,3
									'	if not orsthesis.eof then
									'		orsthesis.movefirst

response.write "<td>"

'do while not orsthesis.eof
											'���ѧ��������� �Ҩ�����͡�� ��ͨҡ��������Ҫ����Ҩ�����͡�ҡ ���������Ҩ��ͧ���Ƿ�����¹��
											'id_lecturer=orsthesis("id_lecturer")
											id_lecturer=orsro("id_lecturer")
												sqll="select * from lecturer where id_lecturer='"&id_lecturer&"'"
												set orsl=server.createobject("adodb.recordset")
												orsl.open sqll,conn,1,3
												
												if not orsl.eof then
													        	
															orsl.movefirst
															
															do while not orsl.eof
														if id_lecturer="000" then
														
															response.write orsro("advisor_out")&"</a><br>"
														else
														
															response.write "<a href=detail_advisor_thesis2.asp?id_lecturer="&id_lecturer&">"&orsl("name_lec")&"  "&orsl("sur_lec")&"</a><br>"
															end if
															orsl.movenext
															loop
														else response.write "<td>-</td>"
													end if
												'orsthesis.movenext
												'loop
											'else response.write "<td>-</td>"
										'end if

'response.write id_thesis
						
						sql5="select * from thesis_test where id_thesis='"&id_thesis&"' and id_type_test=1"
						set ors5=server.createobject("adodb.recordset")
						ors5.open sql5,conn,1,3
							if not ors5.eof then
								response.write "<td><div align=center>"&ors5("date1")&"-"&ors5("month1")&"-"&ors5("year1")
							else response.write "<td>-</td>"
							
							end if
						sql6="select * from thesis_test where id_thesis='"&id_thesis&"' and id_type_test=2"
						set ors6=server.createobject("adodb.recordset")
						ors6.open sql6,conn,1,3
							if not ors6.eof then
									response.write "<td><div align=center>"&ors6("date1")&"-"&ors6("month1")&"-"&ors6("year1")
							else response.write "<td>-</td>"
							
							end if
						
	b=b+1						
						if b>0 then
						response.write "<tr bgcolor="&bg&"><td><td><td><td><td>"
						end if	
						orsro.movenext

loop
					else response.write "<td>-</td>"

end if	
				
					a=a+1	
				ors.movenext
				loop
'else response.write "<td>-</td>"
				end if
ors_group.movenext
loop
else response.write "<td>-</td>"
end if

%>	
<tr><td colspan=6>*�����˵� �����Ź�����������Ѻ��ҧ�ԧ��������˹�ҡ�÷ӷի����ҹ��</tr>
      </table> </td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif">&nbsp;</td>
  </tr>

</table>
</body>
</html>

File Manager

Editing: list_status_stu.asp.bak