File Manager

<%response.cachecontrol="private"%>

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

<title>Thesis Report of Behavioral Science Research Institute</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

p.lowercase {
    text-transform: lowercase;
}

p.capitalize {
    text-transform: capitalize;
}
</style>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center">
  <tr> 
    <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| 
        <a href="http://www.swu.ac.th">SWU</a> | <a href="http://bsri.swu.ac.th">BSRI</a> 
        |<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    
    <td width="77%" align="left" valign="top">
      <div align="center">
        
<strong>Thesis Report</strong>

<%
a=1
'id_curriculum_manage=request("id_curriculum_manage")
id_edu_bg=request("edubg")
If id_edu_bg="1" Then
	sqlsg="select * from student_group where id_edu_bg=1 or id_edu_bg=3 and id_major=1 order by id_begin_year desc"
	
	'sqlsg="select * from student_group where id_type_curri=4 or id_type_curri=5 order by id_begin_year"
	head_name="Ph.D.(Applied Behavioral Science)"
	'Response.write sqlsg
ElseIf id_edu_bg="2" Then
	'sqlsg="select * from student_group where id_type_curri=9 or id_type_curri=3 order by id_begin_year"
	sqlsg="select * from student_group where id_edu_bg=3 and id_major=4 order by id_begin_year desc"
	head_name="Ph.D.(Applied Psychology)"
ElseIf id_edu_bg="3" then 
	'sqlsg="select * from student_group where id_type_curri=1 or id_type_curri=2 or id_type_curri=7 or iid_type_curri=8 order by id_begin_year"
	sqlsg="select * from student_group where id_edu_bg=2 order by id_begin_year desc"
	head_name="M.S. (Applied Behavioral Science)"
Else

End if

'sqlall1="select * from curriculum_manage where id_curriculum_manage='"&id_curriculum_manage&"'and id_edu_bg='"&id_edu_bg&"'"
'sqlall1="select * from educating_bg where id_edu_bg='"&id_edu_bg&"'"
'set orsall1=server.createobject("adodb.recordset")
'orsall1.open sqlall1,conn,1,3
'if not orsall1.eof Then

%>
<br><br><table align=center border=1 cellpadding=0 cellspacing=1 bordercolor=#FFFFFF width=100%>
<%
'orsall1.movefirst
 'Do While Not orsall1.eof
	
	'response.write "<tr bgcolor=#E1E9E9><td colspan=8> <div align=center><strong>Detail Report</td></tr>"
	response.write "<tr bgcolor=#E1E9E9><td colspan=8>"

'sqlsg="select * from student_group where id_curriculum='"&orsall1("id_curriculum")&"'and id_type_curri='"&orsall1("id_type_curri")&"' and id_edu_bg='"&orsall1("id_edu_bg")&"'and id_major='"&orsall1("id_major")&"' order by id_begin_year"
		'sqlsg="select * from student_group where id_edu_bg='"&id_edu_bg&"' 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&"'"

'sqlall1="select * from education_bg where id_edu_bg='"&id_edu_bg&"'"
				'set orsall1=server.createobject("adodb.recordset")
				'orsall1.open sqlall1,conn,1,3

'if not orsall1.eof Then
					'response.write "<tr bgcolor=#CCCCFF><td colspan=8 align=center>"&orsall1("edu_eng")&" / "
					response.write "<tr bgcolor="&bgt&"><td colspan=8 align=center>"
					Response.write head_name
					'response.write orsall1("edu_eng_full")
					
				'End if

'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
					response.write "<tr bgcolor=#CC66FF><td align=center>No.<td align=center>Student Name<td align=center>Title<td align=center>Year<td>Download</tr>"
							
							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>"
							
'�����ǹ�Ҫ��͹��Ե ������

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=2"
		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")
							
												'ǹ�� 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
					If a Mod 2 = 0 Then
		bgt="#e2e2e2"
		Else bgt="#e2e2e2"
		End If
		a =a+1		
							'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="&bgt&">"
			response.write "<td ><div align=center>"&a&"</td>"
			'response.write "<td width=180>"&orsall("id_stu")&"</td>"
			response.write "<td width=180>"&orsall("name_eng")&" "&orsall("sur_eng")&"<br>("&orsall("name_stu")&")</td>" 
	'	response.write "<tr>"'<td>"&orst("id_thesis")
			response.write "<td   valign=top>"&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
					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
	'����ô�ǹ���Ŵ���
							'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 "</td></tr>"
		end if
		
		ors_group.movenext
		loop
		end if
	orssg.movenext
	loop

end if
'response.write "</table>"
 'orsall1.movenext
 'loop
'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_eng.asp