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

<%
id_stugroup=request("id_stugroup")
curri=request("sg")
	tcurri=request("tsg")
  if curri="0" and tcurri="0" then '�Դ�Ҥ����á����բ��������� ���͡�ء�дѺ
			sql_group="select * from student_group order by id_curriculum desc, id_type_curri desc, id_begin_year"
	   elseif tcurri="0" then '���͡ 
			sql_group="select * from student_group where id_curriculum='"&curri&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
	   elseif curri="0" then '���͡ type_curri ���ҧ����
			sql_group="select * from student_group where id_type_curri ='"&tcurri&"'  order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'response.write sqlall
	   elseif curri <> "0" and tcurri <>"0" then '���͡����������ͧ���ҧ
			sql_group="select * from student_group where id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
	   else 
			response.write "Please Select Your Choice"
	  end if
   ' if curri="" and tcurri="" then
  'sql_group="select * from student_group where id_curriculum=2 and id_type_curri=7 order by id_curriculum desc, id_type_curri desc, id_begin_year"
  'end if

if id_stugroup<>"" then
	sql_group="select * from student_group where id_stugroup='"&id_stugroup&"' order by id_curriculum"
	end if
	'sql_group="select * from student_group where id_stugroup='"&id_stugroup&"' order by id_curriculum"
	'set ors_group=server.createobject("adodb.recordset")
	'ors_group.open sql_group,conn,1,3
	'if not ors_group.eof then
	'id_stugroup1=ors_group("id_stugroup")
	'response.write session("id_stu1")
'*****************************************************************
 ' if session("tb_preview") <> 1  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
 set ors_group=server.createobject("adodb.recordset")
	ors_group.open sql_group,conn,1,3
	sum1=0	
	scc=ors_group("selection_course_credit")
 curri=ors_group("id_curriculum")
 tcurri=ors_group("id_type_curri")
  response.write "<tr><td>[<a href=indexstudent.asp?curri="&curri&"&tcurri="&tcurri&">˹���á���Ե</a>]</td></tr>"

<tr>
<td width="892" align="left" valign="top">
	<div align="center"><font size=2><strong> 
      ��ª��͹��Ե������<br>
      <br> <table>
        <%
	'id_stugroup=request("id_stugroup")

'response.write sql_group
	'response.write curri&""&tcurri
	if not ors_group.eof then
	ors_group.movefirst
	do while not ors_group.eof 
	
	%>
        <tr bgcolor=#FFCC00>
          <td colspan=11><strong>��ѡ�ٵ� 
          <%
	'response.write ors_group("id_curriculum")
	id_curriculum=ors_group("id_curriculum")
	'response.write 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")
	%>
          
            <%
	id_type_curriculum=ors_group("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 ors_tc("type_curri_th")
	%> 
          ��蹷�� 
            <%
	response.write ors_group("no_stugroup")
	%> 
         
            <%
	id_major=ors_group("id_major")
	set ors5=server.createobject("adodb.recordset")
	 sql5="select * from major where id_major='"&id_major&"'"
	 ors5.open sql5,Conn,1,3
	ors5.movefirst
		response.write ors5("major_th")
	%> </td>
        </tr>
        <%
		response.write "<tr><td colspan=11>�������[<a href=detail_stugroup.asp?id_stugroup="&ors_group("id_stugroup")&">"&ors_group("id_stugroup")&"</a>]"
		if session("tb_edit")=2 then
		response.write " [ <a href=add_stugroup_form.asp?id_stugroup="&ors_group("id_stugroup")&">�������Ե</a>]"
		end if
		response.write " [ <a href=plan_edu.asp?id_stugroup="&ors_group("id_stugroup")&">���Ѻ</a>]"
		'response.write " [ <a href=plan_edu.asp?id_stugroup="&ors_group("id_stugroup")&">���ŧ����¹</a>]"

response.write "</td></tr>"
		%>
		<tr bgcolor="#FFCCCC"> 
    <td width="3%" rowspan="2"><div align="center">���</div></td>
    <td width="7%" rowspan="2"><div align="center">����-ʡ��</div></td>
    
    <td width="15%" rowspan="2"><div align="center">������</div></td>
    
    <td width="14%" rowspan="2"><div align="center">ʶҹ�</div></td>
    <td width="13%" rowspan="2"><div align="center">Thesis</div></td>
    <td colspan="3"><div align="center">˹��¡Ե</div></td>
    <td width="9%" rowspan="2"><div align="center">QE</div></td>
    <td width="9%" rowspan="2"><div align="center">Comment</div></td>
  </tr>
  <tr> 
    <td width="11%" bgcolor="#FFFFCC"><div align="center">���Ѻ</div></td>
    <td width="6%" bgcolor="#FFFFCC"><div align="center">�ѧ�Ѻ</div></td>
    <td width="9%" bgcolor="#FFFFCC"><div align="center">���͡</div></td>
  </tr>
 
		<%
	id_stugroup=ors_group("id_stugroup")
	sqlall="select * from student where id_stugroup='"&id_stugroup&"' order by id_sgroup, id_status_edu, id_stu"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
			sum1=0
		if not orsall.eof then

orsall.movefirst
		do while not orsall.eof
		'2������Ѻ�ӹǹ˹��¡Ե�����Եŧ�й�
		'������礵��Ἱ�� ���㨵͹ŧ����¹���
		credit=0
		cs_real=0
		nocredit=0
		nocs_real=0
							sqlchcourse="select * from course_regis where  id_student='"&orsall("id_stu")&"'"
							'sqlchcourse="select * from course_regis where id_student='"&orsall("id_stu")&"'"
							set orschcourse=server.createobject("adodb.recordset")
							orschcourse.open sqlchcourse,conn,1,3
							if not orschcourse.eof then
								orschcourse.movefirst			
								do while not orschcourse.eof
								sql_planedu="select id_course from plan_edu where id_stugroup='"&id_stugroup&"' and id_course='"&orschcourse("id_course")&"'"
						set ors_planedu=server.createobject("adodb.recordset")
						ors_planedu.open sql_planedu,conn,1,3
						
					if  ors_planedu.eof then
	'				ors_planedu.movefirst
	'				do while not ors_planedu.eof

if orschcourse("grade")="2" or orschcourse("grade")="3" or orschcourse("grade")="4" then
												sqlcocourse="select credit_sum from course where id_course='"&orschcourse("id_course")&"'"
												set orscocourse=server.createobject("adodb.recordset")
												orscocourse.open sqlcocourse,conn,1,3
												if not orscocourse.eof then
														'response.write orschcourse("id_course")&"<br>"
														credit=credit+orscocourse("credit_sum")
												end if
										end if
				else '˹��¡Ե����纨�ԧ������Ѻ
						if orschcourse("grade")="2" or orschcourse("grade")="3" or orschcourse("grade")="4" then
												sqlcocourse="select credit_sum from course where id_course='"&ors_planedu("id_course")&"'"
												set orscocourse=server.createobject("adodb.recordset")
												orscocourse.open sqlcocourse,conn,1,3
												if not orscocourse.eof then
														'response.write orschcourse("id_course")&"<br>"
														cs_real=cs_real+orscocourse("credit_sum")
												end if
										end if
					
			end if
orschcourse.movenext
								loop
							end if

'2���Ѻ�ӹǹ˹��¡Ե
				 set ors3=server.createobject("adodb.recordset")
	 sql3="select * from status_edu where id_status_edu='"&orsall("id_status_edu")&"'"
	 ors3.open sql3,Conn,1,3
			if not ors3.eof then
			sum1=sum1+1
			
			if sum1 mod 2 = 0 then
			bg1="#EEEEEE"
			else
			bg1="ffffff"
			end if
		'ʶҹТͧ���Ե
		
		response.write "<tr bgcolor="&bg1&"><td>"&sum1&"</td><td>"&orsall("name_stu")&"  "&orsall("sur_stu")&"<br>[<a href=detail_stu.asp?id_stu="&orsall("id_stu")&">"&orsall("id_stu")&"</a>]"
If orsall("id_sgroup")>0 Then
		sqlsg6="select * from student_sgroup where id_sgroup="&orsall("id_sgroup")&""
		Set orssg6=server.createobject("adodb.recordset")
		orssg6.open sqlsg6,conn,1,3
		If Not orssg6.eof then
		
		Response.write "("&orssg6("sgroup_b")&")"
		End if
End if

Response.write "</td>"
		response.write "<td>"
		response.write orsall("tell_mobile")&"<br>"&orsall("tell_home")&"<br>"&orsall("email_stu")
		response.write "<td>"&ors3("status_edu")
			'sum2=sum2+1
		response.write "<br>"
		if session("tb_edit") = 2 then
		response.write "[<a href=edit_stu_form.asp?id_stu="&orsall("id_stu")&">Edit</a>]"
		end if
		
				'response.write "<tr colspan=4><td>��� ="&sum2
		response.write "<td>[<a href=edit_thesis_stu_form.asp?id_stu="&orsall("id_stu")&">thesis</a>]"
		'�Ѻ�ӹǹ˹��¡Ե������ ��Ǵ�ԪҺѧ�Ѻ ��� �Ԫ����͡
		sql_credit_total="select id_course from plan_edu where id_stugroup='"&id_stugroup&"'"
		set ors_credit_total=server.createobject("adodb.recordset")
		ors_credit_total.open sql_credit_total,conn,1,3
		cs=0
		
		if not ors_credit_total.eof then
		ors_credit_total.movefirst
		do while not ors_credit_total.eof
					sql_coursec="select credit_sum, id_course from course where id_course='"&ors_credit_total("id_course")&"'"
					set ors_coursec=server.createobject("adodb.recordset")
					ors_coursec.open sql_coursec,conn,1,3
					if not ors_coursec.eof then
						sql_ctype="select * from course_category where id_course='"&ors_coursec("id_course")&"' and id_category=1"
						set ors_ctype=server.createobject("adodb.recordset")
						ors_ctype.open sql_ctype,conn,1,3
						if not ors_ctype.eof then
						cs=cs+ors_coursec("credit_sum")
						end if
						sql_ctype3="select * from course_category where id_course='"&ors_coursec("id_course")&"' and id_category=3"
						set ors_ctype3=server.createobject("adodb.recordset")
						ors_ctype3.open sql_ctype3,conn,1,3
						if not ors_ctype3.eof then
						cs=cs+ors_coursec("credit_sum")
						end if
						sql_ctype5="select * from course_category where id_course='"&ors_coursec("id_course")&"' and id_category=5"
						set ors_ctype5=server.createobject("adodb.recordset")
						ors_ctype5.open sql_ctype5,conn,1,3
						if not ors_ctype5.eof then
						cs=cs+ors_coursec("credit_sum")
						end if
						'response.write ors_credit_total("id_course")
						
						'response.write ors_coursec("credit_sum")&"-"&ors_coursec("id_course")&"<br>"&cs
						'response.write cs&"-"
					'else '�Ԫ����͡ ��� �Ԫҷ��͡�˹�ͨҡ plan_edu
						
					end if
					
		ors_credit_total.movenext
		loop
		end if
		'response.write cs&"-"&scc
		total_credit=scc+cs
		if cs_real < cs then
		bg2="#009900"
		nocs_real=nocs_real+1
		else bg2="#660000"
		end if
		if credit < scc then
		bg3="#009900"
		nocredit=nocredit+1
		else bg3="#660000"
		end if
		'response.write total_credit&"-"
		if id_type_curriculum<>"4" then
		response.write "<td>[<a href=register_sche_indi.asp?id="&orsall("id_stu")&">"&cs&"+"&scc&"</a>]"
		response.write "<td ><font color="&bg2&">"&cs_real&"</font>"
		response.write "<td><font color="&bg3&">"&credit&"</font>"
		end if
		sqlqr2="select * from qe_regis where id_stu='"&orsall("id_stu")&"'"
								set orsqr2=server.createobject("adodb.recordset")
								orsqr2.open sqlqr2,conn,1,3
								if not orsqr2.eof then
									if orsqr2("qe_result")=1 or orsqr2("qe_result")=5 then
											qe="P"

else qe="-"
									end if
								end if
		if id_curriculum="2" then
		response.write "<td>[<a href=qe_regis.asp?id_stu="&orsall("id_stu")&">"&qe&"</a>]"
end if
			sqlc1="select * from student_comment where id_student='"&orsall("id_stu")&"'"
					set orsc1=server.createobject("adodb.recordset")
					orsc1.open sqlc1,conn,1,3
					'response.write sqlc
					a=0
					if not orsc1.eof then
							orsc1.movefirst
							do while not orsc1.eof
							a=a+1
							orsc1.movenext
							loop
					end if
		response.write "<td>[<a href=add_comment_stu_form.asp?id="&orsall("id_stu")&"&id_stugroup="&id_stugroup&">view</a>("&a&")]"
		response.write "</td>"
		end if
		'sum1=sum1+1
		orsall.movenext
		loop
		response.write "<tr bgcolor=#99FF00><td colspan=11>��� ="&sum1
		else

response.write "<tr><td>No Student</td></tr>"
		end if
		ors_group.movenext
		loop
		end if
		'end if
	%>
      </div>
  	  	    <%'	else '���Է�
'	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
'	end if '���Է�
%>

</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: all_student.asp