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">
<table width="100%" border="0" cellspacing="0">
<%
'*****************************************************************

session("tb_name")="course"
%>

<%
'*****************************************************************
  if session("tb_preview") <> 1  or session("id_lecturer1") = id_lecturer then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
id_course=request("id_course")
'if id_stugroup="" or id_academic_year="" or id_academic_semeter="" then
id_schedule=request("id_schedule")
%>
<tr> 
   
    <td width="892" align="left" valign="top"><div align="center">
		[<a href="add_schedule1.asp?id_schedule=<%=id_schedule%>">���ҧ���¹</a>]
		<%if session("tb_edit")=2 then%>

<%end if%><br><strong>���Ե���ŧ����¹���¹�������Ԫ�<br><br>
	<table align=center border=0>
	<tr>
<%
'id_stugroup=request.form("id_stugroup") '���١����
'id_academic_year=request.form("id_academic_year")
'id_academic_semeter=request.form("id_academic_semeter")

'else
'id_schedule=id_stugroup+id_academic_year+id_academic_semeter

'end if
'session("id_schedule")=id_schedule
sql_check="select * from course_schedule where id_schedule='"&id_schedule&"'"
set ors_check=server.createobject("adodb.recordset")
ors_check.open sql_check,conn,1,3
';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if not ors_check.eof then
'response.write "�����ū������"
'�ʴ���ǵ��ҧ���¹
'��������Ե
	sql_stu="select * from student_group where id_stugroup='"&ors_check("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 "<tr><td>���ҧ���¹ - �ͺ  �дѺ  "
		
					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")&"</td><td>"

id_major=ors_stu("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
					response.write ors_major("major_th")&"</td>"

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><td>�Ҥ���¹���  "&ors_check("id_academic_semeter")&"  (�Ҥ"
					sql_end="select * from academic_semeter where id_academic_semeter ='"&ors_check("id_academic_semeter")&"'"
					set ors_end=server.createobject("adodb.recordset")
					ors_end.open sql_end,conn,1,3
					response.write ors_end("academic_semeter")&")</td><td>�ա���֡��  "
					response.write ors_check("id_academic_year")&"</td></tr>"
					ors_stu.movenext
			loop

end if
		response.write "</table></table>"

'����ش�ʴ���ǵ��ҧ���¹

response.write "<table border=0>"	
						'response.write "<tr><td colspan=5><div align=center><strong>����Ԫҷ�����͡�������</td></tr>"

sql_check_2="select * from course_schedule2 where id_schedule='"&id_schedule&"' and id_course='"&id_course&"' order by id asc"
		set ors_check_2=server.createobject("adodb.recordset")
		ors_check_2.open sql_check_2,conn,1,3
		'response.write sql_check_2
				if not ors_check_2.eof then
					ors_check_2.movefirst
				
					'do while not ors_check_2.eof
									sql_course="select * from course where id_course='"&ors_check_2("id_course")&"'"
					   set ors_course=server.createobject("adodb.recordset")
					   ors_course.open sql_course,conn,1,3
									if not ors_course.eof then

'ors_course.movefirst
									'do while not ors_course.eof
									response.write "<tr bgcolor=#FFFFCC>"
									response.write  "<td><strong>"&ors_course("id_course_th")&"</td>"
									response.write "<td><strong>"&ors_course("course_th")&"</td>"
									response.write "<td><strong>"&ors_course("credit")&"</td>"
									end if
sql_cs1="select * from course_schedule1 where id_schedule='"&id_schedule&"' and id_course='"&id_course&"'"
		set ors_cs1=server.createobject("adodb.recordset")
		ors_cs1.open sql_cs1,conn,1,3
		'response.write sql_check_2
				if not ors_cs1.eof then
				id_status=ors_cs1("id_status")
				response.write "<td>"
				if session("tb_edit")=2 then
					if ors_cs1("id_status")="1" then
					  
						response.write "[<a href=close_course.asp?ids="&id_schedule&"&sts=0&idc="&id_course&">�Դ�ѹ�֡�ô</a>]"
					else 
						response.write "[<a href=close_course.asp?ids="&id_schedule&"&sts=1&idc="&id_course&">�Դ�ѹ�֡�ô</a>]"
					end if
				end if 'session("tb_edit")=2 then
				end if
				if session("tb_edit")=2 then
						response.write "[<a href=add_grade_form.asp?id_schedule="&id_schedule&"&id_course="&ors_course("id_course")&">�š�����¹</a>]"
						response.write "</td></tr>"
					end if 'session("tb_edit")=2 then			
					sql_de="select * from course_schedule3 where id_schedule='"&id_schedule&"' and id_course='"&id_course&"'"
							
									set ors_de =server.createobject("adodb.recordset")
									ors_de.open sql_de,conn,1,3
									if not ors_de.eof then
									response.write "<tr><td colspan=3>��ͧ�ͺ "&ors_de("room_test")&" ��ͧ���¹ "&ors_de("room_learn")&" �ѹ "&ors_de("id_date")&" �������¹ "&ors_de("time_learn")&" �͹ "&ors_de("sec_tion")&"�ӡѴ �����������¹ "&ors_de("stu_learn")
									end if
									response.write "</td>"
									
					do while not ors_check_2.eof
					
									sql_lec="select * from lecturer where id_lecturer='"&ors_check_2("id_lecturer")&"' "
									set ors_lec=server.createobject("adodb.recordset")
									ors_lec.open sql_lec,conn,1,3
									'response.write sql_lec
													if not ors_lec.eof then
													ors_lec.movefirst
														do while not ors_lec.eof
														response.write "<tr><td></td><td>����͹   "&ors_lec("name_lec")&"   "&ors_lec("sur_lec")&"</td>"
														response.write "</tr>"
													
														ors_lec.movenext
														loop
													else 	
								
									response.write "<tr><td colspan=2> Lecturer Not Match or Delete</td></tr>"
									end if									
								
									ors_check_2.movenext
									loop
									end if
 
					response.write "</table>"
					end if 'ors_check
				'	if session("tb_edit")=2 then'�����������͡����Ԫ�

response.write "<table border=0 width = 550>"
response.write "<tr bgcolor=#FFCCCC><td colspan=5><div align=center><strong>��ª��͹��Ե���ŧ����¹</strong></div></td></tr>"
response.write "<tr bgcolor=#FFCCFF align=center><td>�ӴѺ���</td><td>���ʻ�Шӵ��</td><td>����-ʡ��</td><td colspan=2>Action</td></tr>"
		sql_regis="select * from course_regis where id_schedule='"&id_schedule&"' and id_course='"&id_course&"'"
		set ors_regis=server.createobject("adodb.recordset")
		ors_regis.open sql_regis,conn,1,3
			if not ors_regis.eof then
				ors_regis.movefirst
				a=0
					do while not ors_regis.eof
					a=a+1
					li=a mod 2
											if li=0 then
											bgc="#EBEBEB"
											else
											bgc="#FDFDFD"
											end if
						
							response.write "<form name=frm2 method=post action=del_regis.asp>"	
						response.write "<tr bgcolor="&bgc&"><td>"&a
						id_student= ors_regis("id_student")
								sql_stu1="select * from student where id_stu='"&id_student&"'"
								set ors_stu1=server.createobject("adodb.recordset")
								ors_stu1.open sql_stu1,conn,1,3
								if not ors_stu1.eof then
									response.write "<td>"&ors_stu1("id_stu")&"<td>[<a href=detail_stu.asp?id_stu="&ors_stu1("id_stu")&">"&ors_stu1("name_stu")&" "&ors_stu1("sur_stu")&"</a>]"
								end if

if id_status="1" then
								response.write "<input type=hidden name=id_student value="&ors_regis("id_student")&">"
								response.write "<input type=hidden name=id_course value="&ors_regis("id_course")&">"
								response.write "<input type=hidden name=id_schedule value="&ors_regis("id_schedule")&">"
								response.write "<td><input type=submit name=Submit value=�͹ style=font-size=16px></td>"
								response.write "</form>"		
								else 
								sqlgrade="select * from grade where id_grade='"&ors_regis("grade")&"'"
								set orsgrade=server.createobject("adodb.recordset")
								orsgrade.open sqlgrade,conn,1,3
											if not orsgrade.eof then
											response.write "<td align=center>"&orsgrade("ngrade")
											end if
							
								
								end if

response.write "</tr>"
				'		response.write "<tr bgcolor=#EAEAEA><td><td><td><td colspan=2>"
				ors_regis.movenext
				loop
				
			else 
				response.write "<tr ><td colspan=4><div align=center>No Register</div></td></tr>"
			end if

response.write "</table>"
	response.write "<table border=0 width= 500><tr bgcolor=#FFCC99><td colspan=4><div align=center><strong> ��ª��͹��Ե���蹷�����ŧ����¹</td></tr>"
	response.write "<tr bgcolor=#FFCCFF align=center><td>�ӴѺ���</td><td>���ʻ�Шӵ��</td><td>����-ʡ��</td><td>Action</td></tr>"
'----------------------------------------------------
status_edu=1
	sql_sgroup="select * from student where id_stugroup='"&ors_check("id_stugroup")&"' and id_status_edu='"&status_edu&"'"
					   set ors_sgroup=server.createobject("adodb.recordset")
					   ors_sgroup.open sql_sgroup,conn,1,3
					  ' response.write sql_sgroup
									if not ors_sgroup.eof then
			%>
				<%	
                      ' response.write "<tr><td>���͡���͹��Ե<select name=id_student  >"
response.write ""
noo=0
									ors_sgroup.movefirst
									do while not ors_sgroup.eof
							sql_a="select * from course_regis where id_student='"&ors_sgroup("id_stu")&"' and id_schedule='"&id_schedule&"' and id_course='"&id_course&"'"
									set ors_a=server.createobject("adodb.recordset")
									ors_a.open sql_a,conn,1,3
									
												if  ors_a.eof then
											noo=noo+1
											li=noo mod 2
											if li=0 then
											bgc="#EBEBEB"
											else
											bgc="#FDFDFD"
											end if
												response.write "<form name=frm1 method=post action=add_stu_sche.asp>"

'				response.write "<option value="&ors_sgroup("id_stu")&">"&ors_sgroup("name_stu")&" "&ors_sgroup("sur_stu")&"</option>"
											response.write "<tr bgcolor="&bgc&"><td>"&noo&"<td>"&ors_sgroup("id_stu")&"</td><td>[<a href=detail_stu.asp?id_stu="&ors_sgroup("id_stu")&">"&ors_sgroup("name_stu")&" "&ors_sgroup("sur_stu")&"</a>]</td>"
											if id_status="1" then
											response.write "<input type=hidden name=id_student value="&ors_sgroup("id_stu")&">"
											response.write "<input type=hidden name=id_course value="&id_course&">"
											response.write "<input type=hidden name=id_schedule value="&id_schedule&">"
											response.write "<input type=hidden name=id value=2>"
											response.write "<td><input type=submit name=Submit value=ŧ����¹ style=font-size=16px></td></tr>"
											
											response.write "</form>"

end if
											end if
									ors_sgroup.movenext
								loop
response.write "</table>"						
else 
					response.write "<tr><td colspan=6> Dont have student</td></tr></table>"
					end if
%>
</td></tr>
	
	  <%
	  else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
	response.write "</table>"
	
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: register_sche.asp