File Manager

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

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<link href="bsri2006.css" rel="stylesheet" type="text/css">
<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
  <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" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> 
        |<a href="chaPW.asp"><strong>Change 
        Password</strong></a>|<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    <td width="20%" align="left" valign="top" bgcolor="#FFCCCC"></td>
    <td width="77%" align="left" valign="top">
	   <table width="100%" border="0" cellspacing="1">

<%
'*****************************************************************

session("tb_name")="thesis"
%>

<%
'*****************************************************************
  if session("tb_preview") <> 1 or session("id_lecturer1") = id_lecturer then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%><tr><td>[<a href=http://bsris.swu.ac.th/thesis_progress.asp>��§ҹ��������˹��</a>][<a href=http://bsris.swu.ac.th/list_status_stu.asp?c1=1&t1=2>Thesis�¡����дѺ</a>]

<tr> 
        <td width="892" align="left" valign="top"><div align="center">
		<br><strong>��������´��ԭ�ҹԾ�����Ե</strong><br>�ͧ<br>
           
            <table align=center width=100% border=0 cellspacing=0>
			
			<form name="form1" method="post" action="index_thesis.asp">
<tr bgcolor=#FFFFCC><td colspan=7 align=left>���͡�Ң��Ԫ� <select name="majorname" style="font-size=16px">
<option value=0>������</option>
<% 
	 set ors_m=server.createobject("adodb.recordset")
	 sqlmark_m="select * from major where own=1"
	 ors_m.open sqlmark_m,Conn,1,3
	ors_m.movefirst
	do while not ors_m.eof
			response.write "<option value="&ors_m("id_major")&">"&ors_m("major_name")&" </option>"
		ors_m.movenext
		loop
		%>
			  </select>�дѺ <select name="curri">
<option value=0>������</option>
<% 
	 set ors_o=server.createobject("adodb.recordset")
	 sqlmark_o="select * from curriculum where owner=1"
	 ors_o.open sqlmark_o,Conn,1,3
	ors_o.movefirst
	do while not ors_o.eof
			response.write "<option value="&ors_o("id_curriculum")&">"&ors_o("curriculum_full")&" </option>"
		ors_o.movenext
		loop

%>
			  </select>
			    Ẻ<select name="tcurri">
				<option value=0>������</option>
<% 
			  set ors_tc=server.createobject("adodb.recordset")
	 sqlmark_tc="select * from type_curriculum"
	 ors_tc.open sqlmark_tc,Conn,1,3
	ors_tc.movefirst
	do while not ors_tc.eof
		response.write "<option value="&ors_tc("id_type_curri")&">"&ors_tc("type_curri_th")&" </option>"
		ors_tc.movenext
		loop
		
		%>
			  </select>
	����ͺ <select name="type_test">
<option value=0>������</option>
<option value=00>����ա���ͺ</option>
<% 
	 set orstt=server.createobject("adodb.recordset")
	 sqltt="select * from type_test_thesis"
	 orstt.open sqltt,Conn,1,3
	orstt.movefirst
	do while not orstt.eof
			response.write "<option value="&orstt("id_type_test")&">"&orstt("test_name")&" </option>"
		orstt.movenext
		loop

%>
			  </select>
	 
			<input type="submit" name="Submit" value="Go!" >
            </td></tr>
</form>

</tr>
                <%
				curri=request.form("curri")
				tcurri=request.form("tcurri")
				type_test=request.form("type_test")
				m_test=request.form("m_test")
				y_test=request.form("y_test")
				major=request.form("majorname")
		
	'	if curri="" and tcurri="" and type_test="" and m_test="" and y_test ="" then
	'if curri="" and tcurri="" and type_test="" And major="" then
	'If aa=0 then
	'		response.write "<tr><td colspan=6>Please select Query"
	'		sms="Please select Query"
	'Else
	
		'if major="0" and curri="0" And tcurri="0" Then ''1
		'	sqlall="select * from student_group order by id_begin_year" 	
		'	sms="���Ե�ء�дѺ"
		'elseif major="0" and type_test="0" And tcurri="0" then '������к��дѺ��͡2
		'	sqlall="select * from student_group where id_curriculum='"&curri&"' order by id_begin_year"	
		'	sms="���͡��ѡ�ٵ�"
		'elseif curri="0" and type_test="0" And tcurri="0" then '������к��дѺ��͡3
		'	sqlall="select * from student_group where id_major='"&major&"' order by id_begin_year"	
		'	sms="���͡�Ң�"
		'elseif type_test="0" And tcurri="0" then '������к��дѺ��͡4
		'	sqlall="select * from student_group where id_major='"&major&"' and id_curriculum='"&curri&"' order by id_begin_year"	
		'	sms="���͡�Ң������ѡ�ٵ�"
		'elseif major="0" And curri="0"  then '������к��дѺ��͡5
		'	sqlall="select * from student_group where id_type_test='"&type_test&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
		'	sms="���͡Ẻ�Ѻ����������ͺ"
		'elseif major="0" And tcurri="0"  then '������к��дѺ��͡6
		'	sqlall="select * from student_group where id_type_test='"&type_test&"' and id_curriculum='"&curri&"' order by id_begin_year "	
		'	sms="���͡����������ͺ�����ѡ�ٵ�"
		'elseif major="0" And type_test="0"  then '������к��дѺ��͡7
		'	sqlall="select * from student_group where id_type_curri='"&tcurri&"' and id_curriculum='"&curri&"' order by id_begin_year "	
		'	sms="���͡Ẻ�����ѡ�ٵ�"
		'elseif curri="0" And tcurri="0"  then '������к��дѺ��͡8
		'	sqlall="select * from student_group where id_major='"&major&"' and id_type_test='"&type_test&"' order by id_begin_year "	
		'	sms="���͡�Ң���л���������ͺ"
		'elseif curri="0" And type_test="0"  then '������к��дѺ��͡9
		'	sqlall="select * from student_group where id_major='"&major&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
		'	sms="���͡�Ң����Ẻ"
		'elseif major="0" And type_test="0"  then '������к��дѺ��͡10
		'	sqlall="select * from student_group where id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
		'	sms="���͡��ѡ�ٵ����Ẻ"
		'elseif type_test="0"  then '������к��дѺ��͡11
		'	sqlall="select * from student_group where id_major='"&major&"' and id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
		'	sms="���͡��ѡ�ٵ����Ẻ����Ң�"
		'elseif type_test="0"  then '������к��дѺ��͡12
		'	sqlall="select * from student_group where id_major='"&major&"' and id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
		'	sms="���͡��ѡ�ٵ���л���������ͺ����Ң�"
		'elseif major="0"  then '������к��дѺ��͡13
		'	sqlall="select * from student_group where id_type_curri='"&tcurri&"' and id_curriculum='"&curri&"' and id_type_test='"&type_test&"' order by id_begin_year "	
		'	sms="���͡��ѡ�ٵ���л���������ͺ���Ẻ"
		'else
		'	sqlall="select * from student_group" 
			'where id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' and id_major='"&major&"' order by id_begin_year "	
		'sms="�ء�дѺ �ءẺ"
	
		'End If
		
if curri="" and tcurri="" and type_test="" And major="" then
			response.write "<tr><td colspan=6>Please select Query"
			sms="Please select Query"
			else
		 if major="0" and curri="0" And tcurri="0" Then ''1
			sqlall="select * from student_group order by id_begin_year " 	
			sms="���Ե�ء�дѺ"
		elseif major="0" and type_test="0" And tcurri="0" then '������к��дѺ��͡2
			sqlall="select * from student_group where id_curriculum='"&curri&"' order by id_begin_year"	
			sms="���͡��ѡ�ٵ�"
		elseif curri="0" and type_test="0" And tcurri="0" then '������к��дѺ��͡3
			sqlall="select * from student_group where id_major='"&major&"' order by id_begin_year"	
			sms="���͡�Ң�"
		elseif type_test="0" And tcurri="0" then '������к��дѺ��͡4
			sqlall="select * from student_group where id_major='"&major&"' and id_curriculum='"&curri&"' order by id_begin_year"	
			sms="���͡�Ң������ѡ�ٵ�"
		elseif major="0" And curri="0"  then '������к��дѺ��͡5
			sqlall="select * from student_group where id_type_test='"&type_test&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
			sms="���͡Ẻ�Ѻ����������ͺ"
		elseif major="0" And tcurri="0"  then '������к��дѺ��͡6
			sqlall="select * from student_group where id_type_test='"&type_test&"' and id_curriculum='"&curri&"' order by id_begin_year "	
			sms="���͡����������ͺ�����ѡ�ٵ�"
		elseif major="0" And type_test="0"  then '������к��дѺ��͡7
			sqlall="select * from student_group where id_type_curri='"&tcurri&"' and id_curriculum='"&curri&"' order by id_begin_year "	
			sms="���͡Ẻ�����ѡ�ٵ�"
		elseif curri="0" And tcurri="0"  then '������к��дѺ��͡8
			sqlall="select * from student_group where id_major='"&major&"' and id_type_test='"&type_test&"' order by id_begin_year "	
			sms="���͡�Ң���л���������ͺ"
		elseif curri="0" And type_test="0"  then '������к��дѺ��͡9
			sqlall="select * from student_group where id_major='"&major&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
			sms="���͡�Ң����Ẻ"
		elseif major="0" And type_test="0"  then '������к��дѺ��͡10
			sqlall="select * from student_group where id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
			sms="���͡��ѡ�ٵ����Ẻ"
		elseif type_test="0"  then '������к��дѺ��͡11
			sqlall="select * from student_group where id_major='"&major&"' and id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
			sms="���͡��ѡ�ٵ����Ẻ����Ң�"
		elseif type_test="0"  then '������к��дѺ��͡12
			sqlall="select * from student_group where id_major='"&major&"' and id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
			sms="���͡��ѡ�ٵ���л���������ͺ����Ң�"
		elseif major="0"  then '������к��дѺ��͡13
			sqlall="select * from student_group where id_type_curri='"&tcurri&"' and id_curriculum='"&curri&"' and id_type_test='"&type_test&"' order by id_begin_year "	
			sms="���͡��ѡ�ٵ���л���������ͺ���Ẻ"
		elseif curri<>"0" and tcurri<>"0" And major<>"0" then
			sqlall="select * from student_group where id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"'and id_major='"&major&"' and id_type_curri='"&tcurri&"' order by id_begin_year "	
		sms="�ء�дѺ �ءẺ"
		end if
	if type_test="0" then
		sms2="����к�"
	elseif type_test ="1"   then
		sms2="�ͺ����ç"
	elseif type_test ="2" then
		sms2="�ͺ�ҡ����"
	else sms2="����ա���ͺ"
	end If
sql_maj1="select * from major where id_major='"&major&"'"
Set ors_maj1=server.createobject("adodb.recordset")
ors_maj1.open sql_maj1,conn,1,3
	If Not ors_maj1.eof Then
		major_name=ors_maj1("major_name")
	Else major_name="����к�"
	End if
sqlcurri="select * from curriculum where id_curriculum='"&curri&"'"
set orscurri=server.createobject("adodb.recordset")
orscurri.open sqlcurri,conn,1,3
	if not orscurri.eof then
		curri_name=orscurri("curriculum_sum")
		else curri_name="����к�"
	end if
	sqltcurri="select * from type_curriculum where id_type_curri='"&tcurri&"'"
set orstcurri=server.createobject("adodb.recordset")
orstcurri.open sqltcurri,conn,1,3
	if not orstcurri.eof then
		tcurri_name=orstcurri("type_curri_th")
		sqlcurri="select * from curriculum where id_curriculum='"&orstcurri("id_curriculum")&"'"

set orscurri=server.createobject("adodb.recordset")
orscurri.open sqlcurri,conn,1,3
	if not orscurri.eof then
		curri_name=orscurri("curriculum_sum")
		else curri_name="Ẻ ����к�"
	end if
	else tcurri_name=" ����к�"
	end if
sqltypetest="select * from type_test_thesis where id_type_test='"&type_test&"'"
set orstypetest=server.createobject("adodb.recordset")
orstypetest.open sqltypetest,conn,1,3
	if not orstypetest.eof then
		sms2=orstypetest("test_name")
	end if
	response.write "<b>�Ң�</b>"&major_name&" <b>�дѺ �.</b>"&curri_name&" "&tcurri_name&" <b>����������ͺ </b>" &sms2
set orsall=server.createobject("adodb.recordset")
orsall.open sqlall,conn,1,3
a=0
if not orsall.eof then
orsall.movefirst
do while not orsall.eof	
'response.write sqlall
	
				sqlstu="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu=1"
				set orsstu=server.createobject("adodb.recordset")
				orsstu.open sqlstu,conn,1,3

if not orsstu.eof then
					orsstu.movefirst
				
					'response.write sqlstu
					do while not orsstu.eof
						'''''''''''''''222222222222222222222

sqlthesis="select * from thesis where id_stu='"&orsstu("id_stu")&"'"
	set orsthesis=server.createobject("adodb.recordset")
	orsthesis.open sqlthesis,conn,1,3
	if not orsthesis.eof then
		orsthesis.movefirst
		do while not orsthesis.eof
			if type_test="0" then
			sql5="select * from thesis_test  where id_thesis='"&orsthesis("id_thesis")&"'"
									'response.write "0"
			elseif type_test ="1" or type_test ="2" then
		sql5="select * from thesis_test where id_type_test='"&type_test&"' and id_thesis='"&orsthesis("id_thesis")&"'"
									'response.write "1 or 2"
			else
			sql5="select * from thesis_test where id_type_test='1' and id_type_test='2'"
									'response.write "1 and 2"
	end if
			set ors5=server.createobject("adodb.recordset")
			ors5.open sql5,conn,1,3
	if not ors5.eof then
		a=a+1
		if a mod 2=0 then
			bg="#d4d5d7"
		else bg="#ffffff"
		end if
	response.write "<tr bgcolor="&bg&"><td>"&a'&""&bg1
	response.write "<td><div align=left>[<a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&"  "&orsstu("sur_stu")&"</a>]</td>"
	response.write "<td><div align=center>"&orsall("id_begin_year")
	sqlro="select * from advisor_thesis where id_stu='"&orsstu("id_stu")&"' order by id_num"
	set orsro=server.createobject("adodb.recordset")
	orsro.open sqlro,conn,1,3
		b=0
	if not orsro.eof then
		orsro.movefirst
		do while not orsro.eof

response.write "<td>"
			sqll="select * from lecturer where id_lecturer='"&orsro("id_lecturer")&"'"
		set orsl=server.createobject("adodb.recordset")
			orsl.open sqll,conn,1,3
		if not orsl.eof then
			orsl.movefirst
			do while not orsl.eof
			if orsl("id_lecturer")="000" then
			response.write orsro("advisor_out")&"</a><br>"
			else
				response.write "<a href=detail_advisor_thesis.asp?id_lecturer="&orsl("id_lecturer")&">"&orsl("name_lec")&"  "&orsl("sur_lec")&"</a><br></td>"
			end if
				orsl.movenext
			loop
		else response.write "<td>-</td>"
		end if
			sql55="select * from thesis_test where id_thesis='"&orsthesis("id_thesis")&"' and id_type_test=1"
			set ors55=server.createobject("adodb.recordset")
			ors55.open sql55,conn,1,3
		if not ors55.eof then
			response.write "<td><div align=center>"&ors55("date1")&"-"&ors55("month1")&"-"&ors55("year1")&"</td>"
		else response.write "<td>-</td>"
		end if
			sql6="select * from thesis_test where id_thesis='"&orsthesis("id_thesis")&"' and id_type_test=2"
			set ors6=server.createobject("adodb.recordset")
			ors6.open sql6,conn,1,3
			if not ors6.eof then
				response.write "<td><div align=center>"&ors6("date1")&"-"&ors6("month1")&"-"&ors6("year1")&"</td>"
			else response.write "<td>-</td>"
			end if

b=b+1						
		if b>0 then
			response.write "<tr bgcolor="&bg&"><td></td><td></td><td></td>"
		end if	
	orsro.movenext
	loop
	else response.write "<td>-</td>"

end if	
								
'���¾�����ѹ����ͺ ����Ҿ������͹ѡ���¹��͹��
					
					'else response.write "<td>5-</td>"
					end if
	orsthesis.movenext
	loop
	else '�������ա���ͺ thesis ��������ʴ��ç���
	if type_test="00" then
		a=a+1
	if a mod 2=0 then
		bg="#d4d5d7"
	else bg="#ffffff"
	end if
		response.write "<tr bgcolor="&bg&"><td>"&a&"</td>"'&""&bg1
												
		response.write "<td><div align=left>[<a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&"  "&orsstu("sur_stu")&"</a>]</td>"
												
		response.write "<td><div align=center>"&orsall("id_begin_year")&"</td>"
		response.write "<td></td><td></td>"
	end if
	end if

'2222222222222222222222
	orsstu.movenext
	loop
	end if
orsall.movenext
loop
end if
conn.close

'else
'response.write "No Curriculum"
end if
%>
              </tr>
            
          </div></td>
       
      </tr></table>

<%	else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է���
	end if '���Է�

%>
</table>
	</td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th 
      tel.02-649-5000 ext 17600</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: index_thesis.asp.bak