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">

</tr>
<%

'�����---------------------------				
sql_adn="select * from lecturer where statusdel=1"
set ors_adn=server.createobject("adodb.recordset")
ors_adn.open sql_adn,conn,1,3
	if not ors_adn.eof Then
	ors_adn.movefirst
	do while not ors_adn.eof
		sql_ad="select * from advisor_thesis where id_lecturer='"&ors_adn("id_lecturer")&"' 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

sql="select * from student where id_status_edu=2 and id_stu='"&ors_ad("id_stu")&"' and f_edu>0 order by id_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
response.write "<tr><td>"&ors_adn("name_lec")&"  "&ors_adn("sur_lec")
							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("name_stu")&"  "&ors("sur_stu")
						'���Ե��ҹ���������ѡ�ٵ��˹
						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_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

response.write "<td><div align=center>"&ors("f_edu_semeter")&"<td>"&ors("f_edu_year")&"</td>"
					End if
				ors_ad.movenext
				loop
				end	if
ors_adn.movenext
loop
end	if
'��------------------------

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

File Manager

Editing: list_status_stu_graduate_excel.asp