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")="course"
%>

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

<td width="892" align="left" valign="top" ><div align="center"><font size=2><strong>
	<%if session("tb_edit") = 2 then%>[<a href=detail_course_lec.asp>�ʴ������Ǵ����</a>][<a href=detail_cnorepeat.asp>�ʴ������ǧ�ա���֡��</a>]<%end if%><br>�ʴ�����Ԫҷ���Դ�͹����лա���֡�� <br><br>
	<table border=0>
	<%	
	response.write "<FORM METHOD=POST ACTION=detail_course_year.asp >"
	%>
	<tr> 
              <td colspan=2>�ա���֡��
			  <select name="id_academic_year" style="font-size=16px">
<% 
sqlyear="select distinct id_academic_year from course_schedule order by id_academic_year desc"
set orsyear=server.createobject("adodb.recordset")
orsyear.open sqlyear,conn,1,3
if not orsyear.eof then
	orsyear.movefirst
	do while not orsyear.eof
			response.write "<option value="&orsyear("id_academic_year")&">"&orsyear("id_academic_year")
			response.write "</option>"
	orsyear.movenext
	loop
end if

</select>�Ҥ
<select name="id_academic_semeter" style="font-size=16px">
<% 
			  set ors_=server.createobject("adodb.recordset")
	 sqlmark_="select * from academic_semeter"
	 ors_.open sqlmark_,Conn,1,3
	ors_.movefirst
	do while not ors_.eof
		response.write "<option value="&ors_("id_academic_semeter")&">"&ors_("academic_semeter")&"</option>"
		ors_.movenext
		loop
		%>
			  </select>
	  <input type="submit" name="Submit" value="Submit" style="font-size=16px">
            </td>
			<%response.write "</tr>"
	response.write "</FORM>"
response.write "<tr bgcolor=#CFCFCF><td>����Ԫ�<td>�ӹǹ���Ե���ŧ����¹<td>ʶҹкѹ�֡�ô"
id_academic_semeter=request.form("id_academic_semeter")
id_academic_year=request.form("id_academic_year")
	sqlall="select * from course_schedule where id_academic_semeter='"&id_academic_semeter&"' and id_academic_year='"&id_academic_year&"'"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		
		if not orsall.eof then
		do while not orsall.eof

response.write "<tr bgcolor=#FFFFCC><td colspan=3><strong>"&orsall("id_academic_semeter")&"/"&orsall("id_academic_year")

'��ǵ��ҧ����繢ͧ���Ե����˹
	sql_stu="select * from student_group where id_stugroup='"&orsall("id_stugroup")&"'"
	set ors_stu=server.createobject("adodb.recordset")
	ors_stu.open sql_stu,conn,1,3
		if not ors_stu.eof then
					ors_stu.movefirst
					do while not ors_stu.eof

response.write " �дѺ  "
		
					id_curriculum=ors_stu("id_curriculum")
					sql_curri="select * from curriculum where id_curriculum='"&id_curriculum&"'"
					set ors_curri=server.createobject("adodb.recordset")
					ors_curri.open sql_curri,conn,1,3
					response.write  ors_curri("curriculum_full")
					
					'response.write "<td>Ẻ</td><td>"
					id_type_curr=ors_stu("id_type_curri")
					
					set ors_tc=server.createobject("adodb.recordset")
					sqlmark_tc="select * from type_curriculum where id_type_curri='"&id_type_curr&"'"
					ors_tc.open sqlmark_tc,Conn,1,3

response.write ors_tc("type_curri_th")&"  ���  "&ors_stu("no_stugroup")&"</td></tr>"
					
					
					ors_stu.movenext
			loop

end if
'

sqlcs="select * from course_schedule where id_schedule='"&orsall("id_schedule")&"'"
			set orscs=server.createobject("adodb.recordset")
			orscs.open sqlcs,conn,1,3
			if not orscs.eof then
			orscs.movefirst
			do while not orscs.eof
				sqlcs1="select * from course_schedule1 where id_schedule='"&orscs("id_schedule")&"'"
				set orscs1=server.createobject("adodb.recordset")
				orscs1.open sqlcs1,conn,1,3
				 i=0
					if not orscs1.eof then
							orscs1.movefirst
							do while not orscs1.eof
									i=i+1
									if i mod 2 = 0 then
									bg1="#EEEEEE"
									else
									bg1="ffffff"
									end if
										sqlc="select * from course where id_course='"&orscs1("id_course")&"'"
										set orsc=server.createobject("adodb.recordset")
										orsc.open sqlc,conn,1,3
										if not orsc.eof then
										response.write "<tr bgcolor="&bg1&"><td>"&orsc("id_course_th")&" "&orsc("course_th")&"</td>"
												sqlcr="select * from course_regis where id_course='"&orscs1("id_course")&"' and id_schedule='"&orscs1("id_schedule")&"'"	
												set orscr=server.createobject("adodb.recordset")
												orscr.open sqlcr,conn,1,3
												'response.write "<td>"&num_stu&"</tr>"
												num_stu=0
												'response.write "<td>"&sqlcr
													if not orscr.eof then
															orscr.movefirst
															do while not orscr.eof
																num_stu=num_stu+1
																
															orscr.movenext
															loop
															
													end if

response.write "<td align=center>[<a href=register_sche.asp?id_schedule="&orscs1("id_schedule")&"&id_course="&orscs1("id_course")&">"&num_stu&"</a>]"
											if orscs1("id_status")="0" then
									response.write "<td align=center>�Դ"
										end if
										response.write "</tr>"
										end if

orscs1.movenext
							loop
					end if
			orscs.movenext
			loop
			end if
orsall.movenext
loop
else
response.write "<tr><td colspan=4>��س����͡�Ҥ����֡��</td></td>"
end if
	%>

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