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>

</tr>
<%

'�����---------------------------	
'sql="select * from student where id_status_edu=1 order by id_stu desc"
sql="select * from student where id_status_edu=2 or id_status_edu=1 order by f_edu_year, f_edu_semeter, 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
			response.write "<tr><td>"&Left(ors("name_stu"),6)&"  "&Left(ors("sur_stu"),4)
			id_status_edu=ors("id_status_edu")
			If id_status_edu=2 Then
			status_edu="����稡���֡��"
			Else
			status_edu="���ѧ�֡��"
			End if
			Response.write "<td>"&status_edu
				'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>"&ors("name_stu")&"  "&ors("sur_stu")

'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
					'End If 'ors_adn.eof
				'ors_ad.movenext
				'loop
				'end	if

'���Ե��ҹ���������ѡ�ٵ��˹
		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_tc="select * from type_curriculum where id_type_curri='"&ors_group("id_type_curri")&"'"
							set ors_tc=server.createobject("adodb.recordset")
							ors_tc.open sql_tc,conn,1,3
							if not ors_tc.eof then
							response.write "<td>"&ors_tc("type_curri_th")&"</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

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
							
						End If 'ors_group.
					Response.write "<td>"&ors_group("id_begin_year")&"</td>"
					response.write "<td><div align=center>"&ors("f_edu_semeter")&"<td>"&ors("f_edu_year")&"</td>"

'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_ttest="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_ttest.movefirst
					''do while not ors_ttest.eof
						'Response.write "<td>"&ors_ttest1("date1")&"/"&ors_ttest1("month1")&"/"&ors_ttest1("year1")

''ors_ttest.movelast
					''Loop
					'End if

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

''ors_test.movenext
					''Loop
					'End if
				'End if

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

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

File Manager

Editing: list_status_stu_all.asp.bak