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">SWU</a> | <a href="http://bsri.swu.ac.th">BSRI</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">
  <tr> 
<%
'*****************************************************************

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

</tr>
  <tr> 
  <%
 ' sqlall="select * from student_group order by id_type_curri, id_begin_year"
 sqlall="select * from student_group order by id_type_curri desc, id_begin_year desc"
		set orsall=server.createobject("adodb.recordset")
		orsall.open  sqlall,Conn,1,3
		'response.write sql_all
		
  %>
       <td width="892" align="left" valign="top"><div align="center">���Ե<br>
	   <%if session("tb_edit")=2 then%>[ <a href="add_stu_form.asp">+���������Ź��Ե+</a>] [<a href="add_group_form.asp">���ҧ��蹹��Ե</a>]<%end if%><font size=2><strong><div align=center><br>[<a href=search_stu_form.asp>���Ң����Ź��Ե</a>][<a href=report_student.asp>��§ҹ����ǡѺ���Ե</a>]<br>
	<table align=center>
	<tr bgcolor="#CCCCCC"> 
    <td ><div align="center">�������</div></td>
    <td ><div align="center">��ѡ�ٵ�</div></td>
    <td  ><div align="center">Ẻ</div></td>
	    <td ><div align="center">��蹷��</div></td>
    <td ><div align="center">�ա���֡��</div></td>
  <td ><div align="center">���Ե������</div></td>

</tr>
    
	
	<tr><td align=center>
	<%
		if not orsall.eof then
		orsall.movefirst
		aa=0
		do while not orsall.eof
aa=aa+1
if aa mod 2 = 0 then
bg1="#EBEBEB"
else
bg1="#FFFFFF"
end if
		response.write "<tr bgcolor="&bg1&"><td>[<a href=detail_stugroup.asp?id_stugroup="&orsall("id_stugroup")&">"&orsall("id_stugroup")&"</a>]</td><td>"
		
		id_curriculum=orsall("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_sum")&"</td><td>"
sqlt="select * from type_curriculum where id_type_curri='"&orsall("id_type_curri")&"'"
		   set orst=server.createobject("adodb.recordset")
		   orst.open sqlt,conn,1,3
		   if not orst.eof then
		response.write orst("type_curri_th")&"</td>"
			end if
		'id_major=orsall("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>"
		sqlstu="select * from student where id_stugroup='"&orsall("id_stugroup")&"'"
set orsstu=server.createobject("adodb.recordset")
orsstu.open sqlstu,conn,1,3
a=0
if not orsstu.eof then
orsstu.movefirst
do while not orsstu.eof
a=a+1
orsstu.movenext
loop
end if
				response.write "<td>"&orsall("no_stugroup")&" </td><td> "&orsall("id_begin_year")&"/"&orsall("id_begin_semeter")&"</td>"
		response.write "<td align=center>[<a href=all_student.asp?id_stugroup="&orsall("id_stugroup")&">"&a&"</a>]  </td>"

'QE 
				'sqlqe="select * from student where id_stugroup='"&orsall("id_stugroup")&"'"
				'set orsqe=server.createobject("adodb.recordset")
				'orsqe.open sqlqe,conn,1,3
				'qe=0
				'								oral=0
				'				pro=0
				'				cc=0
				'response.write sqlqe
				'if not orsqe.eof then
				'	orsqe.movefirst
				'	do while not orsqe.eof
					'qe
											
					'						sqlcre="select * from qe_regis where id_stu='"&orsqe("id_stu")&"' and qe_result=1"
					'						set orscre=server.createobject("adodb.recordset")
					'						orscre.open sqlcre,conn,1,3
					'						cre=0
					'						    if not orscre.eof then
					'								orscre.movefirst
					'								do while not orscre.eof 
					'								    cre=cre+1
														'response.write "cre="&cre
					'									'response.write sqlcre
					'								orscre.movenext
					'								loop

'							end if
					'							if cre=3 then
					'								qe=qe+1
					'							end if
						'�ͺ�ҡ����

'			sqloral="select * from thesis where id_stu='"&orsqe("id_stu")&"'" 
						'		set orsoral=server.createobject("adodb.recordset")
						'		orsoral.open sqloral,conn,1,3

'		if not orsoral.eof then

'			orsoral.movefirst
						'			do while not orsoral.eof
						'				sqlpro="select * from thesis_test where id_thesis='"&orsoral("id_thesis")&"' and id_type_test='2'"
							'			set orspro=server.createobject("adodb.recordset")
							'			orspro.open sqlpro,conn,1,3
							'			if orspro.eof then
							'					sqlpro1="select * from thesis_test where id_thesis='"&orsoral("id_thesis")&"' and id_type_test='1'"
							'					set orspro1=server.createobject("adodb.recordset")
							'					orspro1.open sqlpro1,conn,1,3
							'					if not orspro1.eof then
							'					orspro1.movefirst
							'						do while not orspro1.eof
													'response.write orspro1("id_thesis")
							'							pro=pro+1
							'							orspro1.movenext
														
							'						loop
							'					else 												
													'response.write "cc"&cc
							'						cc=cc+1
							'					end if
							'			else 
							'					orspro.movefirst
							'					do while not orspro.eof
												'response.write sqlpro
							'						oral=oral+1
							'					orspro.movenext
							'					loop
								'		end if
								'	orsoral.movenext
								'	loop
								'else 
							'	cc=cc+1
							'	end if
						'orsqe.movenext
					'loop
'response.write "<td align=center>"&qe
'response.write "<td>"
'response.write "<td align=center>"&pro
'response.write "<td align=center>"&oral

'response.write "<td align=center>"&cc
		'		end if

'˹��¡Ե�ú
		'response.write "<td>"
		'�ͺ����ç
		'response.write "<td>"
		'�ͺ�ҡ����
	'	response.write "<td>"
		'�������Ǣ��
		'response.write "<td>"

'sqlstu="select * from student where id_stugroup='"&orsall("id_stugroup")&"'"
'set orsstu=server.createobject("adodb.recordset")
'orsstu.open sqlstu,conn,1,3
'a=0
'if not orsstu.eof then
'orsstu.movefirst
'do while not orsstu.eof
'a=a+1
'orsstu.movenext
'loop
'end if

'response.write "<td>[<a href=all_student.asp?id_stugroup="&orsall("id_stugroup")&">���Ե</a>]  "&a&"   ��</td></tr>"
		orsall.movenext
		loop
		end if
		conn.close
	%>
	</td></tr></table>
      </div></td>

</td>
    
        
        
  </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: report_student.asp.bak