File Manager

<%response.cachecontrol="private"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<%
id_curriculum_manage=request("id_curriculum_manage")

sqlall="select * from curriculum_manage where id_curriculum_manage='"&id_curriculum_manage&"'"
set orsall=server.createobject("adodb.recordset")
orsall.open sqlall,conn,1,3
if not orsall.eof then
%>
<br><br><table align=center border=0 width=100%>
<%
response.write "<tr bgcolor=#CCFFFF><td colspan=8> <div align=center><strong>��������´��ԭ�ҹԾ�����Ե<br><br>��س����͡��蹹��Ե</td></tr>"
response.write "<tr><td colspan=8>"

sqlsg="select * from student_group where id_curriculum='"&orsall("id_curriculum")&"'and id_type_curri='"&orsall("id_type_curri")&"' and id_edu_bg='"&orsall("id_edu_bg")&"'and id_major='"&orsall("id_major")&"' order by id_begin_year"
		set orssg=server.createobject("adodb.recordset")
		orssg.open sqlsg,conn,1,3
		if not orssg.eof then
		orssg.movefirst				
						id_curriculum=orssg("id_curriculum")
						sql_curri="select * from curriculum where id_curriculum='"&id_curriculum&"'"
						set ors_curri=server.createobject("adodb.recordset")
						ors_curri.open sql_curri,conn,1,3
						response.write  "<tr bgcolor=#CCCCFF><td colspan=8 align=center>"&ors_curri("curriculum_full")&" / "
						sqlt="select * from type_curriculum where id_type_curri='"&orssg("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")&"</td></tr>"
							end if
							a=1
							do while not orssg.eof 
							'response.write "<tr bgcolor=#FFFF99><td colspan=8 ><div align=center>"
							'response.write "<br><a name="&orssg("no_stugroup")&" id="&orssg("no_stugroup")&"></a>��蹷��"&orssg("no_stugroup")&"<br>"
							'response.write "</td></tr>"
							response.write "<tr bgcolor=#CC66FF><td align=center>�ӴѺ���<td>��������ͧ<td align=center>���ͼ����<td align=center>�� �.�.<td>Abs<td>Full</tr>"
'�����ǹ�Ҫ��͹��Ե ������

id_stugroup=orssg("id_stugroup")
	sql_group="select * from student_group where id_stugroup='"&id_stugroup&"' order by id_curriculum"
	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 
  
'�����������
							sqlall="select * from student where id_stugroup='"&id_stugroup&"' and id_status_edu<>5 and id_status_edu<>6 and id_status_edu<>3 and id_status_edu<>7"
								set orsall=server.createobject("adodb.recordset")
								orsall.open sqlall,conn,1,3
								if not orsall.eof then
								orsall.movefirst
								do while not orsall.eof
		'ʶҹТͧ���Ե
				 set ors3=server.createobject("adodb.recordset")
							response.write "<tr bgcolor=#CCFF99 >"
							response.write "<td width=30><div align=center>"&a&"</td>"
								response.write "<td>"&orsall("id_stu")&"</td><td align=right>"&orsall("name_stu")&""&orsall("sur_stu")
								response.write "</td></tr>"
												'ǹ�� thesis ������ʹ��Ե
																id_stu=orsall("id_stu")
																	sqlt="select * from thesis where id_stu='"&orsall("id_stu")&"'"
				set orst=server.createobject("adodb.recordset")
				orst.open sqlt,conn,1,3
				if not orst.eof then
								'response.write "<tr ><td colspan=3>"
							'response.write "<table border=0 >"					
							'response.write "<tr bgcolor=#CC99CC><td>���ͻ�ԭ�ҹԾ���/�ҹ�Ԩ��<td>�����Ԫ�<td>�Ҥ���¹��診<td>�ѹ ��͹ ��<td>�Ҩ������<td>�Ҩ�����ͺ<td>Abstract<td>Full</tr>"

orst.movefirst
							do while not orst.eof 
				'����ջ�ԭ�ҹԾ���

response.write "<tr>"'<td>"&orst("id_thesis")
							response.write "<td  width='30%' valign=top>-"&orst("thesis_th")&"<br><li>"&orst("thesis_eng")&"</td>"
							'response.write "<td valign=top>"&orst("id_course_eng")&"</td>"
							response.write "<td valign=top>"&orst("id_academic_semeter")&"/"&orst("academic_year")&"</td>"
							response.write "<td valign=top>Pre>"&orst("date_approve_pre")
							response.write "<br>Pro>"&orst("date_approve_pro")
							response.write "<br>Oral>"&orst("date_approve_oral")&"</td>"
							'response.write "</td>"
							id_thesis=orst("id_thesis")
'���������ʴ��Ҩ�������֡��
							sqla="select * from advisor_thesis where id_thesis='"&id_thesis&"' order by id_num"
							  set orsa=server.createobject("adodb.recordset")
							  orsa.open sqla,conn,1,3
							 response.write "<td valign=top>"
							  if not orsa.eof then
							  orsa.movefirst
							   
							  do while not orsa.eof
							  
							 ' response.write "<tr>"
							'  sqlp="select * from position_thesis where id_position_thesis='"&orsa("id_position_thesis")&"'"
							'  set orsp=server.createobject("adodb.recordset")
							'  orsp.open sqlp,conn,1,3
							  						  
							'  if not orsp.eof then
							 ' response.write "<td >"&orsp("position_thesis")
							'  end if
											if orsa("id_lecturer")<>"000" then
												  sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
												  set orsl=server.createobject("adodb.recordset")
												  orsl.open sqll,conn,1,3
												  if not orsl.eof then
														response.write "-"&orsl("name_lec")&"  "&orsl("sur_lec")
														response.write "<br>"
												  end if
											else
								response.write "-"&orsa("advisor_out")
											end if
							  orsa.movenext
							   
							  loop
							  else
							  response.write "No Advisor"
							  
							  end if
							response.write "</td>"
'������ʴ��Ҩ�������֡��
	'���������ʴ��Ҩ�����ͺ
							sqla="select * from committee_thesis where id_thesis='"&id_thesis&"' order by id_num"
							  set orsa=server.createobject("adodb.recordset")
							  orsa.open sqla,conn,1,3
							   response.write "<td valign=top>"
							  if not orsa.eof then
							  orsa.movefirst
								
							  do while not orsa.eof
							  
							'  sqlp="select * from position_thesis where id_position_thesis='"&orsa("id_position_thesis")&"'"
							'  set orsp=server.createobject("adodb.recordset")
							'  orsp.open sqlp,conn,1,3
							  						  
							'  if not orsp.eof then
							 ' response.write "<td>"&orsp("position_thesis")
							 ' end if
							if orsa("id_lecturer")<>"000" then
										  sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
										  set orsl=server.createobject("adodb.recordset")
										  orsl.open sqll,conn,1,3
										  if not orsl.eof then
												response.write "-"&orsl("name_lec")&"  "&orsl("sur_lec")
												
										  end if
							 else
										  response.write orsa("oral_out")
							 end if
							 response.write "<br>"
							  orsa.movenext
							  loop
							  else
							  response.write "No Committee"
							  
							  end if
							  response.write "</td>"
	'������ʴ��Ҩ�����ͺ
	'�ʴ���ô�ǹ���Ŵ��� 
					'ABS
					if orst("abstract")<>"" then
					response.write "<td> [<a href=hitc_Absthesis.asp?id_thesis="&orst("id_thesis")&">Download</a>]</td>"
					
					else
						response.write "<td>Nofile</td>"
					end if
						if orst("full_thesis")<>"" then
response.write "<td> [<a href=hitc_fullthesis.asp?id_thesis="&orst("id_thesis")&">Download</a>]</td>"
else
						response.write "<td>Nofile</td>"
					end if
	'����ô�ǹ���Ŵ���
							response.write "</tr>"
				orst.movenext
							loop
				response.write "</table></tr>"
				else 
				response.write "<tr><td colspan=5>No Thesis"
				end if

' �����ǹ�� thesis

a=a+1
		orsall.movenext
		loop
		else
		response.write "<tr><td>No Student</td></tr>"
		end if
		ors_group.movenext
		loop
		end if
		'end if

'��ǹ�Ҫ��͹��Ե

orssg.movenext
							loop

end if
'response.write "</table>"
end if

%>
		  
		 
		  
         </table> 
        <p>&nbsp;</p>
        <p></p>
		<p></p>
      </div>    </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: detail_thesis1.asp.bak