File Manager

<%response.cachecontrol="private"%>

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

<%
a=1
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
'response.write sqlall
if not orsall.eof then
%>
<table align=center border=1 cellpadding=0 cellspacing=1 bordercolor=#FFFFFF width=100%>
<%
response.write "<tr bgcolor=#E1E9E9><td colspan=8> <div align=center><strong>��������´��ԭ�ҹԾ�����Ե</td></tr>"
response.write "<tr bgcolor=#E1E9E9><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
		'End If
	'End if
							response.write "<tr bgcolor=#CC66FF><td align=center>���<td align=center>���ͼ����<td align=center>��������ͧ<td align=center>���ա���֡��/�ͺ�ҡ���������<td>Download</tr>"
							
							do while not orssg.eof 
							'response.write sqlsg
							'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>"
							
'�����ǹ�Ҫ��͹��Ե ������

id_stugroup=orssg("id_stugroup")
	sql_group="select * from student_group where id_stugroup='"&id_stugroup&"' order by id_stugroup"
	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=2 order by f_edu, id_stu desc"
								set orsall=server.createobject("adodb.recordset")
								orsall.open sqlall,conn,1,3
								if not orsall.eof then
								orsall.movefirst
								do while not orsall.eof
								'response.write sqlall
		'ʶҹТͧ���Ե
				 set ors3=server.createobject("adodb.recordset")

'ǹ�� 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 "<table border=0 >"					
							'response.write "<td>���ͻ�ԭ�ҹԾ���/�ҹ�Ԩ��<td>�����Ԫ�<td>�Ҥ���¹��診<td>�ѹ ��͹ ��<td>�Ҩ������<td>�Ҩ�����ͺ<td>Abstract<td>Full</tr>"
					
							orst.movefirst
							do while not orst.eof 
				'����ջ�ԭ�ҹԾ���

response.write "<tr  bgcolor=#E1E9E9>"
							response.write "<td ><div align=center>"&a&"</td>"
								response.write "<td width=180>"&orsall("name_stu")&" "&orsall("sur_stu")&"</td>" 
						'	response.write "<tr>"'<td>"&orst("id_thesis")
							response.write "<td   valign=top>-"&orst("thesis_th")&"<br><li>"&UCase(orst("thesis_eng"))&"</td>"
							'response.write "<td valign=top>"&orst("id_course_eng")&"</td>"
					'�������ѹ����ͺ
					'response.write "<td valign=top>"&orsall("f_edu")&"c</td>"
				If  orsall("f_edu")<>"" Then
						response.write "<td valign=top>"&orsall("f_edu_semeter")&"/"&orsall("f_edu_year")&"</td>"
				Else
							
						
					sqlth_test="select * from thesis_test where id_thesis='"&orst("id_thesis")&"'and id_type_test=2"
					Set orsth_test=server.createobject("adodb.recordset")
					orsth_test.open sqlth_test,conn,1,3
						If Not orsth_test.eof Then

response.write "<td valign=top>"&orsth_test("year1")&"</td>"
						
						else
							response.write "<td valign=top>"&orst("id_academic_semeter")&"/"&orst("academic_year")&"</td>"
						End If				
						End if
						'	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
	
	response.write "<td width=90 valign=top>"
	if orst("abstract")<>"" then
	response.write " [<a href=hitc_Absthesis.asp?id_thesis="&orst("id_thesis")&">Abs</a>]"
					
		else
		response.write "[Abs]"
		end if

if orst("full_thesis")<>"" then
		response.write "[<a href=hitc_fullthesis.asp?id_thesis="&orst("id_thesis")&">Full</a>]"
	else
		response.write "[Full]"
	end If

'����ô�ǹ���Ŵ���

'���������ʴ���¡�ú������ͧ���Ե�������Ǣ�ͧ�Ѻ��ԭ�ҹԾ���
sqlart="select * from student_article where id_thesis='"&orst("id_thesis")&"'"
		set orsart=server.createobject("adodb.recordset")
		orsart.open sqlart,conn,1,3
			if not orsart.eof Then
			aa=1
				orsart.movefirst
				Do While Not orsart.eof 
	If not orsart("art_file") Is Nothing Then

Response.write "[<a href=art/"&orsart("art_file")&">Art"&aa&"</a>]"
End If

Response.write "<br>"
				orsart.movenext
				aa=aa+1
				Loop
			End If

'end of show article of student
							'response.write "</tr>"
							a=a+1
				orst.movenext
							loop
				'response.write "</table></tr>"
				'else 
				'response.write "NoThesis"
				end if
				response.write "</td></tr>"
' �����ǹ�� thesis							
		orsall.movenext
		loop
		else
		'response.write "<tr ><td colspan=5>end of data</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_thesis.asp.bak