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"><font size=2><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 * 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
		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 * 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 * 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 * 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 * 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
						
					end if 'end of orsadvi
					
						'orsadvi.movenext
						orsstu.movenext
						loop
						end if
					orsstug.movenext
					loop
					end if
			orscurri1.movenext
			loop
			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: loop_advisor_thesis.asp