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>

<%
		    			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 * from lecturer where id_status_lec=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
		cadmain=0
		cadsub=0
		fadmain2=0
		fadsub2=0
		coral=0
		cpro=0
		cnothesis=0
		response.write "<tr bgcolor="&bg1&"><td>"&a&"</td><td>"&orsall("name_lec")&"  "&orsall("sur_lec")&"</td>"
			'������Ѻ�ӹǹ���Ե55555555555555555
		sqladvi="select * from advisor_thesis where id_lecturer = '"&orsall("id_lecturer")&"' and id_thesis<>'-'"
		set orsadvi=server.createobject("adodb.recordset")
		orsadvi.open sqladvi,conn,1,3

if not orsadvi.eof then

orsadvi.movefirst
			do while not orsadvi.eof
					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 orsadvi("id_position_thesis")=1 then
												cadmain=cadmain+1
										elseif orsadvi("id_position_thesis")=2 then
												cadsub=cadsub+1
												'response.write orsstu("id_stu")&"����"&orsall("id_lecturer")&"<br>"
										else
												nothesis=nothesis+1
										end if
						'response.write "<td>"&orsadvi("id_thesis")
'����������ͺ ����ç���ͻҡ����
						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
											cpro=cpro+1
											'response.write "<td>"&orspro1("id_thesis")
										
										else
										cnothesis=cnothesis+1
										end if
								else coral=coral+1
								end if
							'end if
					end if 'end of if not orsstu
					
					'���������Ѻ���Ե������¹����������ѡ��������ҹ�鹨��
					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
										if orsadvi("id_position_thesis")=1 then
												fadmain2=fadmain2+1
										elseif orsadvi("id_position_thesis")=2 then
												fadsub2=fadsub2+1
												'response.write orsstu2("id_stu")&"<br>"
										else
												fnothesis2=nothesis2+1
										end if
						end if
					'�� ����Ѻ���Ե������¹����������ѡ������

orsadvi.movenext
			loop
		end if
			'��ش��ùѺ�ӹǹ���Ե
		allstu=cadmain+cadsub+fadmain2+fadsub2  '�ѡ���¹������
		allstu2=cadmain+cadsub
		if cadmain>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=main&sedu=cedu&id="&orsall("id_lecturer")&">"&cadmain&"</a></td>"
		else response.write "<td>"
		end if
		if cadsub>0 then
			response.write "<td align=center><a href=stat_pass_thesis.asp?sms=co&sedu=cedu&id="&orsall("id_lecturer")&">"&cadsub&"</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>"&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")&">"&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")&">"&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")&">"&cnothesis&"</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")&">"&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")&">"&fadsub2&"</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")&">"&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_backup.asp