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=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=search_status_stu.asp>����</a>]
	  [<a href=advisor_thesis2.asp>�Ҩ�������֡��</a>]�ѹ����ѹ=<%=now()%></td>
        </tr>

</TR>

<%
orsname.movefirst
a=1
do while not orsname.eof 
		bg1=a mod 2
					      if bg1=0 then
							bg="#d4d5d7"
							else bg="#ffffff"
						end if
			response.write "<tr bgcolor="&bg&">"
			response.write "<td>"
			response.write orsname("id_stu")
			response.write "<td>"
			response.write orsname("name_stu")&" "&orsname("sur_stu")
			response.write "<td>"
			'response.write orsname("id_stugroup")
			'�������������´���
			 sql_all="select * from student_group where id_stugroup='"&orsname("id_stugroup")&"' "
		set ors_all=server.createobject("adodb.recordset")
		ors_all.open  sql_all,Conn,1,3
		if not ors_all.eof then
		response.write ""

sql_curri="select * from curriculum where id_curriculum='"&ors_all("id_curriculum")&"'"
		set ors_curri=server.createobject("adodb.recordset")
		ors_curri.open sql_curri,conn,1,3
		if not ors_curri.eof then
		response.write  ors_curri("curriculum_full")&" "
		end if
sqlt="select * from type_curriculum where id_type_curri='"&ors_all("id_type_curri")&"'"
		   set orst=server.createobject("adodb.recordset")
		   orst.open sqlt,conn,1,3
		   if not orst.eof then
		response.write orst("type_curri_th")
			end if
		response.write  "  ��� "&ors_all("no_stugroup")
		
		end if
		'����ù��ʹ����
			
			response.write "<td>"
														id_status_edu=orsname("id_status_edu")
															  set ors3=server.createobject("adodb.recordset")
													 sql3="select * from status_edu where id_status_edu='"&id_status_edu&"'"
													 ors3.open sql3,Conn,1,3
															if not ors3.eof then
														response.write ors3("status_edu")
															end if
			response.write "<td><div align=center>"&ors_all("id_begin_year")

'///////////////�.����֡�� �֧�ѹ�ͺ ����ç �ҡ����
			id_stu=orsname("id_stu")
							sqlro="select * from thesis where id_stu='"&id_stu&"'"
							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_thesis='"&id_thesis&"'"
									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")
												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
															response.write orsl("name_lec")&"  "&orsl("sur_lec")&"<br>"
															orsl.movenext
															loop
														else response.write "<td>-</td>"
													end if
												orsthesis.movenext
												loop
											else response.write "<td>-</td>"
										end if

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>����ç<br>"
														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><br>"
														response.write "<td><div align=center>"&ors6("date1")&"-"&ors6("month1")&"-"&ors6("year1")
							else response.write "<td>-</td>"
							end if
						
	b=b+1						
												if b=1 then
						response.write "<tr><td><td><td><td>"
						end if	
						orsro.movenext

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

else
					response.write "<tr><td colspan=6>��辺�����ŷ�����<br>"&search_name
					
		end if
		
		response.write "</TABLE>"
		
%>
      </table> </td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif">&nbsp;</td>
  </tr>

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

File Manager

Editing: search_thesis_result.asp