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 '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%>
<table width="100%" border="0" cellspacing="0">

<tr>

<td width="892" align="left" valign="top"><div align="center"><strong>
	
      �����š���繼��Ǻ�����ԭ�ҹԾ���<br>
       <table border="0" width="100%">
<tr> 
    <td rowspan="4" bgcolor="#FFFFCC"><div align="center">���</div>
      <div align="center"></div>
      <div align="center"></div>
      <div align="center"></div></td>
    <td rowspan="4" bgcolor="#FFFFCC"><div align="center">����-ʡ��</div>
      <div align="center"></div>
      <div align="center"></div>
      <div align="center"></div></td>
    <td colspan="10" bgcolor="#FFFFCC"><div align="center">���Ե���ѧ�֡��</div></td>
    <td colspan="3" bgcolor="#E9E9E9"><div align="center">���Ե����稡���֡��</div>
      <div align="center"></div></td>
    <td   rowspan="4" bgcolor="#FFFFCC"><div align="center">���</div>
      <div align="center"></div>
      <div align="center"></div>
      <div align="center"></div></td>
  </tr>
  <tr> 
    <td colspan="8" bgcolor="#FFCCFF"><div align="center">�դ����</div></td>
    <td colspan="2" bgcolor="#CCCCFF"><div align="center">����դ����</div></td>
    <td  rowspan="3" bgcolor="#E9E9E9"><div align="center"></div>
      <div align="center"></div>
      <div align="center">��ѡ</div></td>
    <td  rowspan="3" bgcolor="#E9E9E9"><div align="center"></div>
      <div align="center"></div>
      <div align="center">����</div></td>
    <td  rowspan="3" bgcolor="#E9E9E9"><div align="center"></div>
      <div align="center"></div>
      <div align="center">���</div></td>
  </tr>
  <tr> 
    <td colspan="2" bgcolor="#FFFF99"><div align="center">�</div>
      <div align="center"></div></td>
    <td colspan="2" bgcolor="#FFCC99"><div align="center"></div>
      <div align="center">�͡</div></td>
    <td rowspan="2" bgcolor="#FFFFCC"><div align="center"></div>
      <div align="center">���(��ѡ)</div></td>
    <td rowspan="2" bgcolor="#CCFF99"><div align="center">oral</div></td>
    <td rowspan="2" bgcolor="#CCFF99"><div align="center">pro</div></td>
    <td rowspan="2" bgcolor="#CCFF99"><div align="center">����ͺ</div></td>
    <td rowspan="2" bgcolor="#9999FF"><div align="center"><font color="#FFFFFF">�</font></div></td>
    <td rowspan="2" bgcolor="#9999FF"><div align="center"><font color="#FFFFFF">�͡</font></div></td>
  </tr>
  <tr> 
    <td  bgcolor="#FFFF99"><div align="center">��ѡ</div></td>
    <td  bgcolor="#FFFF99"><div align="center">����</div></td>
    <td  bgcolor="#FFCC99"><div align="center">��ѡ</div></td>
    <td  bgcolor="#FFCC99"><div align="center">����</div></td>
	</br>
		  <%
		    			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>

<%sqlall="select id_lecturer,name_lec,sur_lec from lecturer where id_status_lec=1 and id_statusdel='1' order by name_lec "
		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
		a=a+1
		if a mod 2 = 0 then
		bg1="#EBEBEB"
		else
		bg1="#ffffff"
		end if
		cadmainm=0
		cadmainp=0
		cadsubm=0
		cadsubp=0
	
		fadmain2=0
		fadsub2=0
		fallstu=0
		coral=0
		innormalm=0
		innormalp=0
		cpro=0
	
		cnothesis=0
	
		innormal=0
		response.write "<tr bgcolor="&bg1&"><td>"&a&"</td><td>"&orsall("name_lec")&"  "&orsall("sur_lec")&"</td>"
			'������Ѻ�ӹǹ���Ե55555555555555555
		
			sqlcurri1="select id_curriculum from curriculum where owner=1"
			set orscurri1=server.createobject("adodb.recordset")
			orscurri1.open sqlcurri1,conn,1,3
			if not orscurri1.eof then
			orscurri1.movefirst
			do while not orscurri1.eof
			'response.write orscurri1("id_curriculum")&"<br>"
			   sqlstug="select id_curriculum,id_stugroup from student_group where id_curriculum='"&orscurri1("id_curriculum")&"' order by id_begin_year"
			   set orsstug=server.createobject("adodb.recordset")
			   orsstug.open sqlstug,conn,1,3
				if not orsstug.eof then
				orsstug.movefirst
				do while not orsstug.eof
				'response.write orsstug("id_stugroup")&"<br>"
					sqlstu="select id_stu,id_stugroup from student where id_stugroup='"&orsstug("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
					do while not orsstu.eof
					sqladvi="select id_lecturer,id_stu,command_no,id_position_thesis,id_thesis from advisor_thesis where id_lecturer = '"&orsall("id_lecturer")&"' and id_stu='"&orsstu("id_stu")&"' "
					'0 ���¶֧ �ǡ����ѧ������Ţ������� ����ѧ��������ʷի�� ��� �����ҡѺ 0 ��� �դ�������� �Ҩ���ѧ�ͺ��������ͺ����
					set orsadvi=server.createobject("adodb.recordset")
					orsadvi.open sqladvi,conn,1,3
					if not orsadvi.eof then
						'orsadvi.movefirst
						'do while not orsadvi.eof
						
										if orsadvi("command_no")="" and orscurri1("id_curriculum")=1 then
											innormalm=innormalm+1 '������ ��¡ѹ�ҡ����������Ţ������� �
										elseif orsadvi("command_no")="" and orscurri1("id_curriculum")=2 then
											innormalp=innormalp+1 '������ ��¡ѹ�ҡ����������Ţ������� �͡
										elseif orscurri1("id_curriculum")=1 and orsadvi("id_position_thesis")=1 then
											cadmainm=cadmainm+1
										elseif orscurri1("id_curriculum")=1 and orsadvi("id_position_thesis")=2 then
											cadsubm=cadsubm+1
										elseif orscurri1("id_curriculum")=2 and orsadvi("id_position_thesis")=1 then
											cadmainp=cadmainp+1
										elseif orscurri1("id_curriculum")=2 and orsadvi("id_position_thesis")=2 then
											cadsubp=cadsubp+1
										
										elseif orsadvi("id_thesis")="-" then
											nothesis=nothesis+1
										end if
'response.write innormalm&"aa"
						'response.write "<td>"&orsadvi("id_thesis")
'����������ͺ ����ç���ͻҡ����
						sqlthesistest="select id_thesis 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 id_thesis 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
											cpro=cpro+1
											'response.write orspro1("id_thesis")&"pro" &orsall("id_lecturer")&"<br>"
										
										else

sqlnotest="select id_stu,id_lecturer from advisor_thesis where id_stu='"&orsstu("id_stu")&"' and id_lecturer='"&orsadvi("id_lecturer")&"' and command_no<>''"
										set orsnotest=server.createobject("adodb.recordset")
										orsnotest.open sqlnotest,conn,1,3
											if not orsnotest.eof then
											'response.write orsstu("id_stu")&"<br>"&orsadvi("id_lecturer")
											cnothesis=cnothesis+1
											end if
										'response.write orsthesistest("id_thesis")&"nothesis<br>"
										end if
								else coral=coral+1
								end if
							'end if
					end if 'end of if not orsstu
					
						'orsadvi.movenext
						orsstu.movenext
						loop
						end if
					orsstug.movenext
					loop
					end if
			orscurri1.movenext
			loop
			end if
								'���������Ѻ���Ե������¹����������ѡ��������ҹ�鹨��
					sqlstu2="select id_stu from student where id_status_edu=2"
					set orsstu2=server.createobject("adodb.recordset")
					orsstu2.open sqlstu2,conn,1,3
				
					if not orsstu2.eof then
							orsstu2.movefirst
							do while not orsstu2.eof
							sqladvi2="select id_position_thesis from advisor_thesis where id_stu='"&orsstu2("id_stu")&"' and id_lecturer='"&orsall("id_lecturer")&"' "
							set orsadvi2=server.createobject("adodb.recordset")
							orsadvi2.open sqladvi2,conn,1,3
							
							if not orsadvi2.eof then
							'response.write sqladvi2
								'orsadvi2.movefirst
								'do while not orsadvi2.eof
										if orsadvi2("id_position_thesis")=1 then
												fadmain2=fadmain2+1
										elseif orsadvi2("id_position_thesis")=2 then
												fadsub2=fadsub2+1
												'response.write orsstu2("id_stu")&"<br>"
										else
												fnothesis2=nothesis2+1
										end if
								'orsadvi2.movenext
								'loop
						end if
						orsstu2.movenext
						loop
			end if
					'�� ����Ѻ���Ե������¹����������ѡ������

'��ش��ùѺ�ӹǹ���Ե
		allstu=cadmainm+cadmainp+cadsubm+cadsubp+fadmain2+fadsub2   '�ѡ���¹������
		'allstu2=cadmainm+cadsubm+cadmainp+cadsubp
		allstu2=cadmainm+cadmainp
		fallstu=fadmain2+fadsub2
		if cadmainm>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=main&sedu=cedu&id="&orsall("id_lecturer")&"&lev=m>"&cadmainm&"</a></td>"
		else response.write "<td>"
		end if
	if cadsubm>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=co&sedu=cedu&id="&orsall("id_lecturer")&"&lev=m target=_blank>"&cadsubm&"</a></td>"
		else response.write "<td>"
		end if		
		if cadmainp>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=main&sedu=cedu&id="&orsall("id_lecturer")&"&lev=p target=_blank>"&cadmainp&"</a></td>"
		else response.write "<td>"
		end if
		
		if cadsubp>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=co&sedu=cedu&id="&orsall("id_lecturer")&"&lev=p target=_blank>"&cadsubp&"</a></td>"
		else response.write "<td>"
		end if
		if allstu2>0 then
			response.write "<td align=center>[<a href=detail_advisor_thesis.asp?id_lecturer="&orsall("id_lecturer")&"&sms=cedu target=_blank>"&allstu2&"</a>]</td>"
		else response.write "<td>"
		end if
		if coral>0 then
			response.write "<td align=center><font color=#009900><a href=stat_pass_thesis.asp?sms=oral&sedu=cedu&id="&orsall("id_lecturer")&" target=_blank>"&coral&"</a></font></td>"
		else response.write "<td>"
		end if
		if cpro>0 then
			response.write "<td align=center><font color=#009900><a href=stat_pass_thesis.asp?sms=pro&sedu=cedu&id="&orsall("id_lecturer")&" target=_blank>"&cpro&"</a></font></td>"
		else response.write "<td>"
		end if
		
		if cnothesis>0 then
			response.write "<td align=center><font color=#009900><a href=stat_pass_thesis.asp?sms=other&sedu=cedu&id="&orsall("id_lecturer")&" target=_blank>"&cnothesis&"</a></font></td>"
		else response.write "<td>"
		end if
		if innormalm>0 then
			response.write "<td align=center><font color=#009900><a href=stat_pass_thesis.asp?sms=innormal&sedu=cedu&id="&orsall("id_lecturer")&"&lev=m target=_blank>"&innormalm&"</a></font></td>"
		else response.write "<td>"
		end if
		if innormalp>0 then
			response.write "<td align=center><font color=#009900><a href=stat_pass_thesis.asp?sms=innormal&sedu=cedu&id="&orsall("id_lecturer")&"&lev=p target=_blank>"&innormalp&"</a></font></td>"
		else response.write "<td>"
		end if
		if fadmain2>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=main&sedu=fedu&id="&orsall("id_lecturer")&" target=_blank>"&fadmain2&"</a></td>"
		else response.write "<td>"
		end if
		
		if fadsub2>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=co&sedu=fedu&id="&orsall("id_lecturer")&" target=_blank>"&fadsub2&"</a></td>"
		else response.write "<td>"
		end if
			if fallstu>0 then
			response.write "<td align=center>[<a href=detail_advisor_thesis.asp?sms=fedu&id_lecturer="&orsall("id_lecturer")&" target=_blank>"&fallstu&"</a>]</td>"
		else response.write "<td>"
		end if
		if allstu>0 then
			response.write "<td align=center>[<a href=detail_advisor_thesis.asp?id_lecturer="&orsall("id_lecturer")&" target=_blank>"&allstu&"</a>]</td>"
		else response.write "<td>"
		end if

'�Ѻ�ӹǹ���Ե�����ѧ���¹������ʹ�ǫ��ͧ�Ҩ�����ҹ���ա�褹�������� �����ҧ ����ç�ҡ����

response.write "</tr>"
		'end if
		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: advisor_thesis.asp.bak