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">
<%
'*****************************************************************

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

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

%>
<br>
<a href=advisor_thesis.asp>˹���á��ä����ԭ�ҹԾ���></a>
<table width="100%" border="0" cellspacing="0">

<tr>

<%
		    			date1=datepart("d",date)
			month1=month(now())
			y=year(now())
			y=543+y

if date1=1 then
							date1="01" 
							elseif date1=2 then
							date1="02"
							elseif date1=3 then
							date1="03"
							elseif date1=4 then
							date1="04"
							elseif date1=5 then
							date1="05"
							elseif date1=6 then
							date1="06"
							elseif date1=7 then
							date1="07"
							elseif date1=8 then
							date1="08"
							elseif date1=9 then
							date1="09"
							end if
		if month1=1 then
							month1="01" 
							elseif month1=2 then
							month1="02"
							elseif month1=3 then
							month1="03"
							elseif month1=4 then
							month1="04"
							elseif month1=5 then
							month1="05"
							elseif month1=6 then
							month1="06"
							elseif month1=7 then
							month1="07"
							elseif month1=8 then
							month1="08"
							elseif month1=9 then
							month1="09"
							end if
			dcheck=y&""&month1&""&date1

' if session("tb_edit")=2 then
		
        '<td><div align=center><strong>����ѵ���ǹ���</td><td><strong>����ѵԡ���֡��<td><strong> ���˹觷ҧ������<td><strong> �ҹ�Ԩ��  %>
		<%'end if%>
        </tr>

id_lecturer=request("id")
		sms=request("sms")
		sedu=request("sedu")
		lev=request("lev")
		if lev="m" then
		id_curriculum=1
		curri_name="�.�"
		elseif lev="p" then
		id_curriculum=2
		curri_name="�.�͡"
		end if
		if sms="main" then
				sqladvi="select * from advisor_thesis where id_lecturer = '"&id_lecturer&"' and id_position_thesis=1 and command_no<>''"
				posi="<b>���˹� ����֡�� </b>��ѡ"
			elseif sms="co" then
				sqladvi="select * from advisor_thesis where id_lecturer = '"&id_lecturer&"' and id_position_thesis=2 and command_no<>''"
				posi="<b>���˹� ����֡��</b> ����"
			elseif sms="oral" or sms="pro" or sms="other" or sms="innormal"then
				'sqlthesistest="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='2' and dtest<="&int(dcheck)&""
				sqladvi="select * from advisor_thesis where id_lecturer = '"&id_lecturer&"' "
					if sms="oral" then
						prog="���Ե���Ǻ�����ӡ���ͺ�ҡ����"
					elseif sms="pro" then
						prog="���Ե���Ǻ�����ӡ���ͺ����ç"
					else prog="���Ե���Ǻ������ѧ�������Թ����ͺ"
					end if
				
			else a=b
			end if
		
		if sedu="cedu" then
		sedun="���ѧ�֡��"
		else sedun="����稡���֡��" 
		end if
'response.write id_lecturer
		sqlall="select * from lecturer where id_lecturer='"&id_lecturer&"'"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3

if not orsall.eof then
		response.write "<tr><td colspan=6>"&orsall("name_lec")&"  "&orsall("sur_lec")&" " &posi&" "&prog&" <b>ʶҹТͧ���Ե </b>"&sedun&" <b>�дѺ </b>" &curri_name
		end if
		%>
		<tr bgcolor="#FFccCC"><td><div align="center"><strong>���</td>
<td><div align="center"><strong>����-ʡ�Ź��Ե
<td><div align="center"><strong>���˹�
<td><div align="center"><strong>�Ţ�������
<td><div align="center"><strong>ʶҹ�
<td><div align="center"><strong>�ѹ����ͺ <br>����ç</td>
<td><div align="center"><strong>�ѹ����ͺ<br>�ҡ����</td></tr>
		<%
		'orsall.movefirst
		'do while not orsall.eof
					
		
		
			'������Ѻ�ӹǹ���Ե55555555555555555

'sqladvi="select * from advisor_thesis where id_lecturer = '"&id_lecturer&"'"
		set orsadvi=server.createobject("adodb.recordset")
		orsadvi.open sqladvi,conn,1,3
  a=0
		if not orsadvi.eof then
	
			orsadvi.movefirst
			do while not orsadvi.eof
							    sqlpo="select * from position_advice where id_position='"&orsadvi("id_position_thesis")&"'"
										set orspo=server.createobject("adodb.recordset")
										orspo.open sqlpo,conn,1,3
										if not orspo.eof then
											'response.write "<td>"&orspo("position_advice")
											position_advice=orspo("position_advice")
										end if

if sedu="cedu" then
					
					sqlstu="select * from student where id_stu='"&orsadvi("id_stu")&"' and id_status_edu=1"
					set orsstu=server.createobject("adodb.recordset")
					orsstu.open sqlstu,conn,1,3
					if not orsstu.eof then
					if id_curriculum="" then
					sqlstug="select * from student_group where id_stugroup='"&orsstu("id_stugroup")&"'"
					else
						sqlstug="select * from student_group where id_stugroup='"&orsstu("id_stugroup")&"' and id_curriculum='"&id_curriculum&"'"
					end if
						set orsstug=server.createobject("adodb.recordset")
						orsstug.open sqlstug,conn,1,3
						'response.write sqlstug
						if not orsstug.eof then
						'response.write 
						'������ � �ش ��� ��� ��䧴� ------------------------------6.47 25-11-2557 response.write sms&"sms2"
'����������ͺ ����ç���ͻҡ����
					'response.write "<tr bgcolor="&bg1&"><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>"
								sqlstatus="select * from status_edu where id_status_edu='"&orsstu("id_status_edu")&"'"
								set orsstatus=server.createobject("adodb.recordset")
								orsstatus.open sqlstatus,conn,1,3
								if not orsstatus.eof then
											status_edu=orsstatus("status_edu")
									'response.write "<td>"&orsstatus("status_edu")
								end if
								
			if sms="main" or sms="co" then '�ͧ 2 colum �á ���˹�� advisor_thesis.asp
						a=a+1
			if a mod 2 =0 then
			bg1="#F0F0F0"
			else
			bg1="#FBFBFB"
			end if
				response.write "<tr bgcolor="&bg1&" ><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>"
				response.write "<td >"&position_advice
				response.write "<td align=center>"&orsadvi("command_no")
				response.write "<td>"&status_edu
response.write "<td>"
					sqlthe1="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='1' "
						set orsthe1=server.createobject("adodb.recordset")
						orsthe1.open sqlthe1,conn,1,3

if not orsthe1.eof Then
						orsthe1.movefirst

Do While Not orsthe1.eof
								if orsthe1("dtest")>dcheck then
								fc="#009900"
								else
								fc="#330000"
								end If
								If orsthe1("id_result")="0" Then
																
								result_n="����ҹ"
								Else result_n="��ҹ"
							End if
					response.write "<font color="&fc&">"&orsthe1("date1")&"-"&orsthe1("month1")&"-"&orsthe1("year1")&"</font>("&result_n&")<br>"
						orsthe1.movenext
						Loop
						
						else response.write "<td>"
						
					end If
						
						
					sqlthe2="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='2' "
						set orsthe2=server.createobject("adodb.recordset")
						orsthe2.open sqlthe2,conn,1,3

if not orsthe2.eof then
						if orsthe2("dtest")>dcheck then
						fc="#009900"
						result_n="�ͼš���ͺ"
						else
						fc="#330000"
						end If
						If orsthe2("id_result")="0" Then
						result_n="����ҹ"
						Else 
						'result_n="��ҹ"
						End if
							response.write "<td><font color="&fc&">"&orsthe2("date1")&"-"&orsthe2("month1")&"-"&orsthe2("year1")&"</font>("&result_n&")"
						else response.write "<td>"
						end if
				end if 'sms="main" or sms="co"
'********************
if sms="oral" or sms="pro"	or sms="other" then

sqlthesistest="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='2' and dtest<="&int(dcheck)&""
						set orsthesistest=server.createobject("adodb.recordset")
						orsthesistest.open sqlthesistest,conn,1,3
	if  orsthesistest.eof then
				sqlpro1="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='1' and dtest<="&int(dcheck)&""
				set orspro1=server.createobject("adodb.recordset")
				orspro1.open sqlpro1,conn,1,3
					if not orspro1.eof then
						orspro1.movefirst
						if sms="pro" Then '����� �ҡ��ҹ�ͺ proposal
								a=a+1
								if a mod 2 =0 then
									bg1="#F0F0F0"
								else
									bg1="#FBFBFB"
							end if
					response.write "<tr bgcolor="&bg1&"><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>"
					response.write "<td>"&position_advice
					response.write "<td>"&orsadvi("command_no")
					response.write "<td>"&status_edu
					response.write "<td>"
								if orspro1("dtest")>dcheck then
									fc="#009900"
									result_n="�ͼš���ͺ"
								else
									fc="#330000"
								end If
					'orspro1.movelast
					
					Do While Not orspro1.eof
						If orspro1("id_result")="0" Then
							result_n="����ҹ"
							Else 
							'result_n="��ҹ"
						End If
						response.write "<font color="&fc&">"&orspro1("date1")&"-"&orspro1("month1")&"-"&orspro1("year1")&"</font>("&result_n&")<br>"
					orspro1.movenext
					loop
											' '�ç������� �ա���ͺ�� ���ѹ������ͺ�����Թ�ѹ������к� ����ѧ���֧�ѹ�ͺ ����ҡ�����ࡳ���� ���ѹ�������� �����ҧ id_type_test ����ա �ͺ�֧
				sqlnottodate="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test=2"
				set orsnottodate=server.createobject("adodb.recordset")
				orsnottodate.open sqlnottodate,conn,1,3
								if not orsnottodate.eof then
									if orsnottodate("dtest")>dcheck then
									fc="#009900"
									result_n="�ͼš���ͺ"
									else
									fc="#330000"
									end If
									If orsnottodate("id_result")="0" Then
									result_n="����ҹ"
									Else 
									'result_n=""
									End if
								response.write "<td><font color="&fc&">"&orsnottodate("date1")&"-"&orsnottodate("month1")&"-"&orsnottodate("year1")&"</font>("&result_n&")<br>"
								else
								response.write "<td>-"
								end if

end if 'sms=pro '���ç����͹����ա���ͺ��ҹ proposal ����

else 'orspro1 �������ա���ͺ����ç��лҡ����
							cnothesis=cnothesis+1
							'sqlproo="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='1' and dtest>"&int(dcheck)&""
							sqlproo="select * from advisor_thesis where id_stu='"&orsstu("id_stu")&"' and id_lecturer ='"&id_lecturer&"' and command_no<>''"
							set orsproo=server.createobject("adodb.recordset")
								orsproo.open sqlproo,conn,1,3
						
						if not orsproo.eof then
							if sms="other" then
								a=a+1
								if a mod 2 =0 then
								bg1="#F0F0F0"
								else
								bg1="#FBFBFB"
								end if
						response.write "<tr bgcolor="&bg1&"><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>"
						response.write "<td>"&position_advice
						response.write "<td>"&orsproo("command_no")
						response.write "<td>"&status_edu
						
									'	if orsproo("dtest")>dcheck then
										'		fc="#009900"
										'else
									'			fc="#330000"
									'	end if
											response.write "<td>-"
											'Response.write "<font color="&fc&">"&orsproo("date1")&"-"&orsproo("month1")&"-"&orsproo("year1")&"</font>"
											response.write "<td>-"
							end if 'sms=other
						end if
					end If 'orsthesistest.eof
		else coral=coral+1
										if sms="oral" then
											a=a+1
											if a mod 2 =0 then
											bg1="#F0F0F0"
											else
											bg1="#FBFBFB"
											end if
							response.write "<tr bgcolor="&bg1&"><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>"
										response.write "<td>"&position_advice
										response.write "<td>"&orsadvi("command_no")
										response.write "<td>"&status_edu
										if orsthesistest("dtest")>dcheck then
												fc="#009900"
										result_n="�ͼš���ͺ"
										else
												fc="#330000"
										end If
										If orsthesistest("id_result")="0" Then
										result_n="����ҹ"
										Else 
										'result_n=""
										End if
											'response.write "<td><td><font color="&fc&">"&orsthesistest("date1")&"-"&orsthesistest("month1")&"-"&orsthesistest("year1")&"</font>("&result_n&")"
											'response.write "<td>"
									end if 'sms=oral
	end If 'if not orsproo.eof then
end if 
'******************************						
						
	'sms="oral" or sms="pro"	or sms="other" 
if sms="innormal" then
						sqlinn="select * from advisor_thesis where id_stu='"&orsstu("id_stu")&"' and id_lecturer ='"&id_lecturer&"' and command_no=''"
						set orsinn=server.createobject("adodb.recordset")
								orsinn.open sqlinn,conn,1,3
						
								if not orsinn.eof then
											a=a+1
			if a mod 2 =0 then
			bg1="#F0F0F0"
			else
			bg1="#FBFBFB"
			end if
							response.write "<tr bgcolor="&bg1&"><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>"
										response.write "<td>"&position_advice
										response.write "<td>"&orsadvi("command_no")
										response.write "<td>"&status_edu
								end if
					end if 'sms=innormal
					 end if 'end of if not orsstu
					 end if 'orsstug
					end if '�� �ѡ���¹�����ѧ���¹

'���������Ѻ���Ե������¹����������ѡ��������ҹ�鹨��
	if sedu="fedu" then

sqlstu2="select * from student where id_stu='"&orsadvi("id_stu")&"' and id_status_edu=2"
					set orsstu2=server.createobject("adodb.recordset")
					orsstu2.open sqlstu2,conn,1,3
					if not orsstu2.eof then
						sqlstug2="select * from student_group where id_stugroup='"&orsstu2("id_stugroup")&"' "
						set orsstug2=server.createobject("adodb.recordset")
						orsstug2.open sqlstug2,conn,1,3
						if not orsstug2.eof then
								sqlstatus="select * from status_edu where id_status_edu='"&orsstu2("id_status_edu")&"'"
								set orsstatus=server.createobject("adodb.recordset")
								orsstatus.open sqlstatus,conn,1,3
								if not orsstatus.eof then
											status_edu=orsstatus("status_edu")
									'response.write "<td>"&orsstatus("status_edu")
								end if

a=a+1
							if a mod 2 =0 then
							bg1="#F0F0F0"
							else
							bg1="#FBFBFB"
							end if
								
										response.write "<tr bgcolor="&bg1&"><td>"&a&"<td><a href=edit_thesis_stu_form.asp?id_stu="&orsstu2("id_stu")&">"&orsstu2("name_stu")&" "&orsstu2("sur_stu")&"</a>"
										response.write "<td>"&position_advice
										response.write "<td>"&orsadvi("command_no")
										response.write "<td>"&status_edu
							response.write "<td>"
								sqlprof="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='1' "
									set orsprof=server.createobject("adodb.recordset")
									orsprof.open sqlprof,conn,1,3
										if not orsprof.eof Then
										orsprof.movefirst
										Do While Not orsprof.eof
										if orsprof("dtest")>dcheck then
									fc="#009900"
									result_n="�ͼš���ͺ"
							else
									fc="#330000"
							end If
							If orsprof("id_result")="0" Then
																
								result_n="����ҹ"
								Else 
								'result_n=""
							End if
		response.write "<font color="&fc&">"&orsprof("date1")&"-"&orsprof("month1")&"-"&orsprof("year1")&"</font>("&result_n&")"
										orsprof.movenext
										loop
										else response.write "<td>-"
										end if
								sqloralf="select * from thesis_test where id_thesis='"&orsadvi("id_thesis")&"' and id_type_test='2' "
									set orsoralf=server.createobject("adodb.recordset")
									orsoralf.open sqloralf,conn,1,3
										if not orsoralf.eof then
											if orsoralf("dtest")>dcheck then
									fc="#009900"
									result_n="�ͼš���ͺ"
							else
									fc="#330000"
							end If
							If orsoralf("id_result")="0" Then
																
								result_n="����ҹ"
								Else 
								'result_n=""
							End if
											response.write "<td><font color="&fc&">"&orsoralf("date1")&"-"&orsoralf("month1")&"-"&orsoralf("year1")&"</font>("&result_n&")"
											else response.write "<td>-"
										end if
					 end if 'orsstug2.eof
end if 'orstu2
					end if ' if sedu="fedu"
					'�� ����Ѻ���Ե������¹����������ѡ������

orsadvi.movenext
			loop
		end if
			'��ش��ùѺ�ӹǹ���Ե

response.write "</tr>"
	
		'orsall.movenext
		'loop
		'else
		'response.write "<tr><td colspan=4>No Lecturer</td></tr>"
		'end if
	%>
      </table></div>
<%	else 
'���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
	response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
	end if '���Է�
%>
    </td>
  </tr>
  <tr> 
    <td colspan="3"></td>
  </tr>
</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: stat_pass_thesis.asp