File Manager

<%@ Language=VBScript %>
<%

'Response.ContentType = "application/vnd.ms-excel"
'Response.AddHeader "Content-Disposition", "attachment; filename=advisor_thesis.xls"

%>

<!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 type="text/css">
</head>
	
<body>
<table width="100%" border="0" cellspacing="1">
  
        <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>
		   <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>
<%

'�����---------------------------	
sql="select * from student where id_status_edu=1 order by id_stu desc"
'sql="select * from student where id_status_edu=2 and f_edu_year>2560 order by id_stu desc"
'1-���ѧ�֡��
set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
	If Not ors.eof Then
		ors.movefirst
		Do While Not ors.eof
			
				sql_ad="select * from advisor_thesis where id_stu='"&ors("id_stu")&"' order by id_position_thesis"
				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
				'response.write "<tr><td>"&Left(ors("name_stu"),6)&"  "&Left(ors("sur_stu"),4)

response.write "<tr><td>"&ors("name_stu")&"  "&ors("sur_stu")
				response.write "<tr><td>"&ors("name_stu")
				Response.write "<td>"&ors_ad("command_sem")
						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 "<td>"&ors_adn("name_lec")&"  "&ors_adn("sur_lec")&"<td>"&ors_ad("advisor_out")
							sql_p="select * from position_thesis where id_position_thesis='"&ors_ad("id_position_thesis")&"'"  
							set ors_p=server.createobject("adodb.recordset")
							ors_p.open sql_p,conn,1,3
							If Not ors_p.eof Then
							Response.write "<td>"&ors_p("position_advisor")
							Else
							Response.write "<td>"
							End if
				Response.write "<td>"&ors_ad("command_no")&"</td>"
				Response.write "<td>"&ors_ad("command_date")&"/"&ors_ad("command_month")&"/"&ors_ad("command_year")&"</td>"
						
						'���Ե��ҹ���������ѡ�ٵ��˹
						sql_group="select * from student_group where id_stugroup='"&ors("id_stugroup")&"'"
							set ors_group=server.createobject("adodb.recordset")
							ors_group.open sql_group,conn,1,3
						if not ors_group.eof Then

sql_curri="select * from curriculum where id_curriculum='"&ors_group("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 "<td>"&ors_curri("curriculum_sum")&"</td>"
							End If		
							
							sql_major="select * from major where id_major='"&ors_group("id_major")&"'"
							set ors_major=server.createobject("adodb.recordset")
							ors_major.open sql_major,conn,1,3
							if not ors_major.eof then
							response.write "<td>"&ors_major("major_name")&"</td>"
							End If

Response.write "<td>"&ors_group("id_begin_year")&"</td>"		
						End If 'ors_group.
					
					'response.write "<td><div align=center>"&ors("f_edu_semeter")&"<td>"&ors("f_edu_year")&"</td>"
					End If 'ors_adn.eof
				sql_test="select * from thesis where id_stu='"&ors("id_stu")&"'"
				set ors_test=server.createobject("adodb.recordset")
			ors_test.open sql_test,conn,1,3
					if not ors_test.eof then
					'ors_test.movefirst
					'do while not ors_test.eof

sql_ttest="select * from thesis_test where id_thesis='"&ors_test("id_thesis")&"' and id_type_test=1"
				set ors_ttest=server.createobject("adodb.recordset")
				ors_ttest.open sql_ttest,conn,1,3
					if not ors_ttest.eof then
				'	ors_ttest.movefirst
				'	do while not ors_ttest.eof
						Response.write "<td>"&ors_ttest("date1")&"/"&ors_ttest("month1")&"/"&ors_ttest("year1")

sql_ttest1="select * from thesis_test where id_thesis='"&ors_test("id_thesis")&"' and id_type_test='2'"
				set ors_ttest1=server.createobject("adodb.recordset")
				ors_ttest1.open sql_ttest1,conn,1,3
					if not ors_ttest1.eof then
					'ors_ttest1.movefirst
					'do while not ors_ttest1.eof
						Response.write "<td>"&ors_ttest1("date1")&"/"&ors_ttest1("month1")&"/"&ors_ttest1("year1")
					End if
				'	ors_ttest.movelast
				'	Loop
					End if

'response.write "<tr><td>"&ors("name_stu")&"  "&ors("sur_stu")

'	ors_test.movenext
				'	Loop
					End if

ors_ad.movenext
				Loop

Else
				response.write "<tr><td>"&ors("name_stu")&"  "&ors("sur_stu")&"<td><td><td><td><td><td>"
				'response.write "<tr><td>"&ors("name_stu")&"  <td><td><td><td><td><td>"
				'���Ե��ҹ���������ѡ�ٵ��˹
						sql_group="select * from student_group where id_stugroup='"&ors("id_stugroup")&"'"
							set ors_group=server.createobject("adodb.recordset")
							ors_group.open sql_group,conn,1,3
						if not ors_group.eof Then

sql_curri="select * from curriculum where id_curriculum='"&ors_group("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 "<td>"&ors_curri("curriculum_sum")&"</td>"
							End If
							
							sql_major="select * from major where id_major='"&ors_group("id_major")&"'"
							set ors_major=server.createobject("adodb.recordset")
							ors_major.open sql_major,conn,1,3
							if not ors_major.eof then
							response.write "<td>"&ors_major("major_name")&"</td>"
							End If

Response.write "<td>"&ors_group("id_begin_year")&"</td>"		
						End If 'ors_group.

end	if

ors.movenext
		Loop
	End If
'��------------------------

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

File Manager

Editing: list_status_stu_studying_stu.asp.bak