File Manager

<%response.cachecontrol="private"%>
<!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")="thesis"
%>

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

%>
<br><a href=advisor_thesis.asp>��äǺ�����ԭ�ҹԾ���></a>
<table border="1" cellspacing="0" bordercolor="#FFffcc" align=center width=100% ><tr><td>
<table align=center width=100%>
<tr><td colspan=8><strong><div align=center>��������´����繼��Ǻ�����ԭ�ҹԾ���</strong><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

id_lecturer=request("id_lecturer")
if id_lecturer="" then
id_lecturer=session("id_lecturer1")
end if
sedu=request("sms")
'sqlstug="select * from student_group order by id_curriculum desc, 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
if sedu="cedu" then
	sql_="select * from student where id_status_edu=1  order by id_stugroup"
elseif sedu="fedu" then
	sql_="select * from student where id_status_edu=2  order by id_stugroup"
else
	'sql_="select * from student order by id_status_edu asc, id_stu desc"
	sql_="select * from student order by id_stugroup"
end if

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 orsall("name_lec")&"  "&orsall("sur_lec")
		'response.write sql_
		end if
%>

<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>
<%
'sql_="select * from student order by id_status_edu asc, id_stu desc"
		set ors_=server.createobject("adodb.recordset")
		ors_.open sql_,conn,1,3
		if not ors_.eof then
			ors_.movefirst
			a=0
			do while not ors_.eof

sqlstatus="select * from status_edu where id_status_edu='"&ors_("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")
				end if
					
				'sqlstu="select * from thesis where id_stu='"&ors_("id_stu")&"'"
				'set orsstu=server.createobject("adodb.recordset")
						'orsstu.open sqlstu,conn,1,3
				'if not orsstu.eof then
				
					'sqlthesis="select * from advisor_thesis where id_lecturer='"&id_lecturer&"' and id_stu='"&ors_("id_stu")&"' "
					sqlthesis="select * from advisor_thesis where id_lecturer='"&id_lecturer&"' and id_stu='"&ors_("id_stu")&"' and command_no<>'' "
					set orsthesis=server.createobject("adodb.recordset")
					orsthesis.open sqlthesis,conn,1,3
						if not orsthesis.eof then
						orsthesis.movefirst
						do while not orsthesis.eof
					a=a+1
					if a mod 2 = 0 then
					bg1="#EFEFEF"
					else
					bg1="#FDFDFD"
					end if

sqlpo="select * from position_advice where id_position='"&orsthesis("id_position_thesis")&"'"
										set orspo=server.createobject("adodb.recordset")
										orspo.open sqlpo,conn,1,3
										if not orspo.eof then
											response.write "<tr bgcolor="&bg1&"><td>"&a&"</td><td>[<a href=edit_thesis_stu_form.asp?id_stu="&orsthesis("id_stu")&">"&ors_("name_stu")&" "&ors_("sur_stu")&"</a>]"

Response.write "<td>"		
id_stugroup=ors_("id_stugroup")
			  sql_all="select * from student_group where id_stugroup='"&ors_("id_stugroup")&"' "
		set ors_all=server.createobject("adodb.recordset")
		ors_all.open  sql_all,Conn,1,3
		if not ors_all.eof then
		response.write ""
			sql_curri="select * from curriculum where id_curriculum='"&ors_all("id_curriculum")&"'"
			set ors_curri=server.createobject("adodb.recordset")
			ors_curri.open sql_curri,conn,1,3
				if not ors_curri.eof then
					id_curriculum=ors_all("id_curriculum")
				response.write  ors_curri("curriculum_sum")&" "
				end If
			id_major=ors_all("id_major")
				sql_major="select * from major  where id_major='"&id_major&"'"
				set ors_major=server.createobject("adodb.recordset")
					ors_major.open sql_major,conn,1,3
					if not ors_major.eof then
						response.write "("&ors_major("major_name")&") "
					end if
			sqlt="select * from type_curriculum where id_type_curri='"&ors_all("id_type_curri")&"'"
		   set orst=server.createobject("adodb.recordset")
		   orst.open sqlt,conn,1,3
				if not orst.eof Then
				id_type_curri=orst("id_type_curri")
				response.write orst("type_curri_th")
				end if
					'response.write  "  ���  "&ors_all("no_stugroup")&"&#160;"
				
		end if
		Response.write "</td>"
	'����駤����
 sqlfile="select cid,id_stu,cfile from commando where id_stu='"&ors_("id_stu")&"' and id_type_command='1'"
		set orsfile=server.createobject("adodb.recordset")
		orsfile.open sqlfile,conn,1,3
		if not orsfile.eof then
			if orsfile("cfile")="0" Then
			
				else
	response.write "<td>[<a href=command/"&orsfile("cfile")&">"&orsthesis("command_no")&"</a>]"
				end If
		Else
		response.write "<td align=right>"&orsthesis("command_no")
			end if
								
	'������駤����
											
'�����ʴ��Ҩ������¹͡
If id_lecturer="000" Then
%>
<td><div>
<%
	Response.write orsthesis("advisor_out")
End if
'	id_type_curriculum=orsstug("id_type_curri")
	'set ors_tc=server.createobject("adodb.recordset")
'	 sqlmark_tc="select * from type_curriculum where id_type_curri='"&id_type_curriculum&"'"
'	 ors_tc.open sqlmark_tc,Conn,1,3
'		response.write "<td>"&ors_tc("type_curri_th")
	 
         
           
'	response.write  "��蹷�� "&orsstug("no_stugroup")

response.write "<td>"&orspo("position_advice")&"<td>"&status_edu
								sqldate="select * from thesis_test where id_thesis='"&orsthesis("id_thesis")&"' and id_type_test='1'"
								set orsdate=server.createobject("adodb.recordset")
								orsdate.open sqldate,conn,1,3
								if not orsdate.eof then
										'orsdate.movefirst
										'do while not orsdate.eof
										orsdate.movelast
										if int(orsdate("dtest"))>int(dcheck) then
										fcolor="#009900"
										else
										fcolor=""
										end if
	'����駤�����ͺ����ç
 sqlfile1="select cid,id_stu,cfile from commando where id_stu='"&ors_("id_stu")&"' and id_type_command='2'"
		set orsfile1=server.createobject("adodb.recordset")
		orsfile1.open sqlfile1,conn,1,3
		if not orsfile1.eof then
			if orsfile1("cfile")="0" Then
			
				else
	response.write "<td>[<a href=command/"&orsfile1("cfile")&">"&orsdate("date1")&"-"&orsdate("month1")&"-"&orsdate("year1")&"</a>]"
				end If
		Else
		response.write "<td><font color="&fcolor&">"&orsdate("date1")&"-"&orsdate("month1")&"-"&orsdate("year1")&"</font>"
			end if
								
	'������駤����										
			'response.write "<td><font color="&fcolor&">"&orsdate("date1")&"-"&orsdate("month1")&"-"&orsdate("year1")&"</font>"'&orsdate("dtest")&""&int(dcheck)

'orsdate.movenext
										'loop
										else response.write "<td>-"
								end if
						sqldate2="select * from thesis_test where id_thesis='"&orsthesis("id_thesis")&"' and id_type_test='2'"
						set orsdate2=server.createobject("adodb.recordset")
						orsdate2.open sqldate2,conn,1,3
						if not orsdate2.eof then
								orsdate2.movefirst
								do while not orsdate2.eof
									if int(orsdate2("dtest"))>int(dcheck) then
										fcolor="#009900"
									else
										fcolor=""
									end If
	'����駤�����ͺ�ҡ����
 sqlfile1="select cid,id_stu,cfile from commando where id_stu='"&ors_("id_stu")&"' and id_type_command='3'"
		set orsfile1=server.createobject("adodb.recordset")
		orsfile1.open sqlfile1,conn,1,3
		if not orsfile1.eof then
			if orsfile1("cfile")="0" Then
			
				else
	response.write "<td>[<a href=command/"&orsfile1("cfile")&">"&orsdate2("date1")&"-"&orsdate2("month1")&"-"&orsdate2("year1")&"</a>]"
				end If
		Else
		response.write "<td><font color="&fcolor&">"&orsdate2("date1")&"-"&orsdate2("month1")&"-"&orsdate2("year1")&"</font>"
			end if
								
	'������駤����
			'response.write "<td><font color="&fcolor&">"&orsdate2("date1")&"-"&orsdate2("month1")&"-"&orsdate2("year1")&"</font>"
								orsdate2.movenext
								loop
						else response.write "<td>-"
						end if

end if
							'end if 'orsstu
		orsthesis.movenext
		loop
		end if			
	'end if orsstu

ors_.movenext
loop
else
response.write "<tr><td colspan=4><div align=center>No Student Advisor"
end if
'orsstug.movenext
'loop
'end if
response.write "<tr><td colspan=6>�����˵� ����ѡ�������� ���¶֧ �ѧ���֧��˹��ͺ"
%>

</td></tr></table></table>
<%	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="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: detail_advisor_thesis.asp.bak