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  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%>
<tr> 
    <td width="892" align="left" valign="top"><div align="center">
	[ <a href="index_schedule.asp">�����ŵ��ҧ���¹</a>]
	<%if session("tb_edit")=2 then%>
	
	
	<%end if%><br><strong>���͡����Ԫ�ŧ���ҧ���¹<br><br>
	<table align=center border=0>
	<tr>
<%
id_schedule=request("id_schedule")
id_stugroup=request.form("id_stugroup")
id_academic_year=request.form("id_academic_year")
id_academic_semeter=request.form("id_academic_semeter")
id_course=request("id_course")
'year_edu=request.form("year_edu")
if id_stugroup="" or id_academic_year="" or id_academic_semeter="" then
id_schedule=request("id_schedule")
else
id_schedule=id_stugroup+id_academic_year+id_academic_semeter

end if
session("id_schedule")=id_schedule
'response.write 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>"
					'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 "<td>"&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")&"("&ors_stu("year_edu")&")"&"�Ҥ���¹���  "&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>"
		
'�ա���֡��
'����ش�ʴ���ǵ��ҧ���¹
'response.write "<tr ><td colspan=6>"
						response.write "<table border=0>"	
						response.write "<tr><td colspan=5><div align=center><strong>����Ԫҷ���Դ�͹</td></tr>"
						sql_course="select * from 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
		sql_check_2="select * from course_schedule2 where id_schedule='"&id_schedule&"'and id_course='"&ors_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
		
				if not ors_check_2.eof then
					'ors_check_2.movefirst
							sqlcs1="select * from course_schedule1 where id_schedule='"&id_schedule&"' and id_course='"&ors_course("id_course")&"'"
							set orscs1=server.createobject("adodb.recordset")
							orscs1.open sqlcs1,conn,1,3
								if not orscs1.eof then
								id_status=orscs1("id_status")
								end if			
									if id_status=0 then
									bg1="#FF66CC"
									elseif id_status=1 then
									bg1="#FFFFCC"
									end if
									
									'response.write sql_check_2
									response.write "<tr bgcolor="&bg1&">"
									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></tr>"
									sql_de="select * from course_schedule3 where id_schedule='"&id_schedule&"' and id_course='"&ors_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>"
									'�Ѻ�ӹǹ��ŧ����¹
									sql_counts="select * from course_regis where id_course='"&ors_course("id_course")&"'and id_schedule='"&id_schedule&"'"
									set ors_counts=server.createobject("adodb.recordset")
									ors_counts.open sql_counts,conn,1,3
													
													ab=0
													if not ors_counts.eof then
													ors_counts.movefirst
													do while not ors_counts.eof 
													ab=ab+1
													ors_counts.movenext
													loop
													end if
									'�Ѻ�ô����͡����
									sql_countg="select * from course_regis where id_course='"&ors_course("id_course")&"'and id_schedule='"&id_schedule&"' and grade<>1"
									set ors_countg=server.createobject("adodb.recordset")
									ors_countg.open sql_countg,conn,1,3
													ag=0
													if not ors_countg.eof then
													
													ors_countg.movefirst
													do while not ors_countg.eof
													ag=ag+1
													ors_countg.movenext
													loop
													end if
									if session("tb_edit")=2 then
									response.write "<td>[<a href=detail_course_schedule.asp?id_schedule="&id_schedule&"&id_course="&ors_course("id_course")&">��������´</a>]</td><td>[<a href=register_sche.asp?id_schedule="&id_schedule&"&id_course="&ors_course("id_course")&">��ª��͹��Ե</a>("&ab&")][<a href=add_grade_form.asp?id_schedule="&id_schedule&"&id_course="&ors_course("id_course")&">�ѹ�֡�ô</a>("&ag&")]</td>"
									response.write "</tr>"
									end if
					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
									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>"
									if session("tb_edit")=2 then
									response.write "<td>"
									%>[<a href=del_course_schedule.asp?id_schedule=<%=id_schedule%>&id_course=<%=ors_check_2("id_course")%>&id_lecturer=<%=ors_check_2("id_lecturer")%> onclick="return confirm('Are you sure');">ź</a>]
									<%

'response.write "<td>[<a href=del_course_schedule.asp?id_schedule="&id_schedule&"&id_course_eng="&ors_check_2("id_course_eng")&"&id_lecturer="&ors_check_2("id_lecturer")&">ź</a>]"
									end if
									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
						ors_course.movenext
						loop
				end if
					response.write "</table><br><table border=0>"
					%>
					<%if session("tb_edit")=2 then%>
					<form name="frm1" method="post" action="add_course_lec_sche.asp">
				<%				
						sql_stu1="select * from student_group where id_stugroup='"&ors_check("id_stugroup")&"'"
	set ors_stu1=server.createobject("adodb.recordset")
	ors_stu1.open sql_stu1,conn,1,3
		if not ors_stu1.eof then
		year_edu=ors_stu1("year_edu")
		end if
		'response.write sql_stu1
				'	if session("tb_edit")=2 then'�����������͡����Ԫ�
	response.write "<tr><td colspan=3><div align=center><strong> ���͡����Ԫ�</td></tr>"
'----------------------------------------------------
		sql_course="select * from course where year_edu='"&ors_stu1("year_edu")&"'"
					   set ors_course=server.createobject("adodb.recordset")
					   ors_course.open sql_course,conn,1,3
					  ' response.write sql_course
									if not ors_course.eof then
                       response.write "<tr><td>���͡����Ԫ�<select name=id_course>"

ors_course.movefirst
									do while not ors_course.eof

response.write "<option value="&ors_course("id_course")&">"&ors_course("id_course_th")&" "&ors_course("course_th")&"</option>"

'	end if
						ors_course.movenext
						loop
                       response.write "</select>"

else 
					response.write "<tr><td colspan=6> Course Not Match or Delete</td></tr>"
					end if
			'sql_lec="select * from lecturer where statusdel= '1' order by name_lec"
			sql_lec="select * from lecturer  order by name_lec"
			set ors_lec=server.createobject("adodb.recordset")
			ors_lec.open sql_lec,conn,1,3
			      if not ors_lec.eof then
				  response.write "<tr><td>���͡�Ҩ�������͹<select name=id_lecturer>"
				  ors_lec.movefirst
				  do while  not ors_lec.eof
				  response.write "<option value="&ors_lec("id_lecturer")&">"&ors_lec("name_lec")&"    "&ors_lec("sur_lec")&"</option>"
				  ors_lec.movenext
				  loop
				  response.write "</select></td></tr>"
				  else
				  response.write "<tr><td>No Lecturer</td></tr>"
				  end if

response.write "<tr><td><input type=submit name=Submit value=Submit ></td></tr>"
							response.write "</form>"
end if  'session("tb_edit")=2 then

else
'response.write "�ѹ�֡��"
  sqldata="insert into course_schedule(id_stugroup,id_academic_year,id_academic_semeter,id_schedule)  values('"&id_stugroup&"','"&id_academic_year&"','"&id_academic_semeter&"','"&id_schedule&"')"
 set orsdata = Server.CreateObject("adodb.recordset")
 orsdata.open sqldata,conn,1,3
sql_stu="select * from student_group where id_stugroup='"&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")&"</td><td>�Ҥ���¹���  "&id_academic_semeter&"  (�Ҥ"
					sql_end="select * from academic_semeter where id_academic_semeter ='"&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 id_academic_year&"</td></tr>"
					ors_stu.movenext
			loop

end if
		response.write "</table>"
%>
		<%if session("tb_edit")=2 then%>
<form name="frm1" method="post" action="add_course_lec_sche.asp">
<%
	'sql_stu2="select * from student_group where id_stugroup='"&ors_check("id_stugroup")&"'"
	sql_stu2="select * from student_group where id_stugroup='"&id_stugroup&"'"
	set ors_stu2=server.createobject("adodb.recordset")
	ors_stu2.open sql_stu2,conn,1,3
		if not ors_stu2.eof then
		year_edu=ors_stu2("year_edu")
		end if
		'response.write sql_stu2
		response.write "<table border=0>"	
						response.write "<tr><td colspan=5><div align=center><strong>����Ԫҷ�����͡�������</td></tr>"
 '����ش��ǵ��ҧ
						sql_course="select * from course where year_edu='"&year_edu&"'"
					   set ors_course=server.createobject("adodb.recordset")
					   ors_course.open sql_course,conn,1,3
									if not ors_course.eof then
                       response.write "<tr><td>"&year_edu&"���͡����Ԫ�<select name=id_course >"

ors_course.movefirst
									do while not ors_course.eof

response.write "<option value="&ors_course("id_course")&">"&ors_course("id_course_th")&" "&ors_course("course_th")&" "&ors_course("year_edu")&"</option>"

'	end if
						ors_course.movenext
						loop
                       response.write "</select>"

else 
					response "<tr><td colspan=6> Course Not Match or Delete</td></tr>"
					end if
			sql_lec="select * from lecturer"
			set ors_lec=server.createobject("adodb.recordset")
			ors_lec.open sql_lec,conn,1,3
			      if not ors_lec.eof then
				  response.write "<tr><td>���͡�Ҩ�������͹<select name=id_lecturer>"
				  ors_lec.movefirst
				  do while  not ors_lec.eof
				  response.write "<option value="&ors_lec("id_lecturer")&">"&ors_lec("name_lec")&"    "&ors_lec("sur_lec")&"</option>"
				  ors_lec.movenext
				  loop
				  response.write "</select></td></tr>"
				  else
				  response.write "<tr><td>No Lecturer</td></tr>"
				  end if

response.write "<tr><td><input type=submit name=Submit value=Submit ></td></tr>"
							response.write "</form>"
	end if 'session("tb_edit")=2 then

end if
%>

</td>
</table>	
	  <%

else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
response.write "<meta http-equiv=refresh content =4;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: add_schedule1.asp.bak