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">
  <tr> 
<%
'*****************************************************************

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

</tr>
  <tr> 
  <%
  			date1=datepart("d",date)
			month1=month(now())
			y=year(now())
			y=543+y

if date1=1 then
							date1="01" 
							elseif date1=2 then
							date1="02"
							elseif date1=3 then
							date1="03"
							elseif date1=4 then
							date1="04"
							elseif date1=5 then
							date1="05"
							elseif date1=6 then
							date1="06"
							elseif date1=7 then
							date1="07"
							elseif date1=8 then
							date1="08"
							elseif date1=9 then
							date1="09"
							end if
		if month1=1 then
							month1="01" 
							elseif month1=2 then
							month1="02"
							elseif month1=3 then
							month1="03"
							elseif month1=4 then
							month1="04"
							elseif month1=5 then
							month1="05"
							elseif month1=6 then
							month1="06"
							elseif month1=7 then
							month1="07"
							elseif month1=8 then
							month1="08"
							elseif month1=9 then
							month1="09"
							end if
			dcheck=y&""&month1&""&date1
  curri=request.form("curri")
  tcurri=request.form("tcurri")
  majorname=request.form("majorname")

' if curri="" or tcurri ="" then
	'		curri=request("curri")
			'tcurri=request("tcurri")
  'end If
  
	  if curri="0" and tcurri="0" And majorname="0" then '�Դ�Ҥ����á����բ��������� ���͡�ء�дѺ
			sqlall="select * from student_group order by id_curriculum desc, id_type_curri desc, id_begin_year"
		'ElseIf majorname=
	  
	   elseif curri="0" And tcurri<>"0" And majorname<>"0" then '���͡ �дѺ����Ң�
			sqlall="select * from student_group where id_type_curri ='"&tcurri&"' and id_major='"&majorname&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'Response.write "aaa1"
	   elseif tcurri="0" And curri<>"0" And majorname<>"0" then '���͡ ���͡�Ң���л��͡
			sqlall="select * from student_group where id_curriculum ='"&curri&"' and id_major='"&majorname&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'Response.write "aaa2"
	   elseif curri="0" And majorname="0" And tcurri<>"0" then '���͡ �дѺ
			sqlall="select * from student_group where id_type_curri ='"&tcurri&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'Response.write "aaa3"
	   elseif tcurri="0" and curri="0" And majorname<>"0" then '���͡ �Ң�
			sqlall="select * from student_group where id_major='"&majorname&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'Response.write "aaa4"
	   elseif tcurri<>"0" and curri<>"0" And majorname="0" then '���͡ �Ң�
			sqlall="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"
			'Response.write "aaa4"
	   elseif tcurri="0" And majorname="0" And curri<>"0" then '���͡ ���͡
			sqlall="select * from student_group where id_curriculum ='"&curri&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'Response.write "aaa5"
	   elseif curri <> "0" and tcurri <>"0" And majorname <> "0" then '���͡����������ͧ���ҧ
			sqlall="select * from student_group where id_curriculum='"&curri&"' and id_type_curri='"&tcurri&"' and id_major='"&majorname&"' order by id_curriculum desc, id_type_curri desc, id_begin_year"
			'Response.write "aaa6"
	   else 
			response.write "Please Select Your Choice"
	  end If
	 ' Response.write sqlall
    if curri="" and tcurri="" then
  sqlall="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"
  'sqlall="select * from student_group  order by id_curriculum desc, id_type_curri desc, id_begin_year"
  end if

set orsall=server.createobject("adodb.recordset")
		orsall.open  sqlall,Conn,1,3
		
  %>
       <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%>

[<a href=search_stu_form.asp>���Ң����Ź��Ե</a>]
	  
	<table align=center>
	<form name="form1" method="post" action="indexstudent.asp">
<tr bgcolor=#FFFFCC><td colspan=9 align=left>���͡�Ң��Ԫ� <select name="majorname" style="font-size=16px">
<option value=0>������</option>
<% 
	 set ors_m=server.createobject("adodb.recordset")
	 sqlmark_m="select * from major where own=1"
	 ors_m.open sqlmark_m,Conn,1,3
	ors_m.movefirst
	do while not ors_m.eof
			response.write "<option value="&ors_m("id_major")&">"&ors_m("major_name")&" </option>"
		ors_m.movenext
		loop
		%>
			  </select>
			 <br> ���͡�дѺ����֡�� <select name="curri" style="font-size=16px">
<option value=0>������</option>
<% 
	 set ors_o=server.createobject("adodb.recordset")
	 sqlmark_o="select * from curriculum where owner=1"
	 ors_o.open sqlmark_o,Conn,1,3
	ors_o.movefirst
	do while not ors_o.eof
			response.write "<option value="&ors_o("id_curriculum")&">"&ors_o("curriculum_full")&" </option>"
		ors_o.movenext
		loop
		%>
			  </select>
			  
			    <br>���͡������ <select name="tcurri"style="font-size=16px">
				<option value=0>������</option>
<% 
			  set ors_tc=server.createobject("adodb.recordset")
	 sqlmark_tc="select * from type_curriculum"
	 ors_tc.open sqlmark_tc,Conn,1,3
	ors_tc.movefirst
	do while not ors_tc.eof
		response.write "<option value="&ors_tc("id_type_curri")&">"&ors_tc("type_curri_th")&" </option>"
		ors_tc.movenext
		loop
		%>
			  </select>
			  <input type="submit" name="Submit" value="Go!" >
            </tr>
</form>
	<tr bgcolor="#CCCCCC"> 
   
    
    
	    <td ><div align="center" width=200%>��ѡ�ٵ�/���</div></td>
    <td><div align="center">�Ң�</div></td>
	<td><div align="center">�ա���֡��</div></td>
	 <td ><div align="center">���Ե������</div>
	
   
	<td bgcolor=#CCFF99><div align="center">������֡��</div>
<td bgcolor=#CCFF99><div align="center">���ѧ�֡��</div>
<td bgcolor=#CCFF99><div align="center">��� �</div>
<td bgcolor=#FFCCFF><div align="center">��ҹ QE</div>
	<td bgcolor=#FFFFCC><div align="center">��ҹ Oral</div>
	<td bgcolor=#FFFFCC><div align="center">��ҹ Prop</div>
	<td bgcolor=#FFFFCC><div align="center">����ա���ͺ</div>
  </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>"
		response.write "[<a href=detail_stugroup.asp?id_stugroup="&orsall("id_stugroup")&">"
		
		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")
		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")
			end if
		
		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
	a1=0
	a2=0
	sqlstu2="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu=2"
					set orsstu2=server.createobject("adodb.recordset")
					orsstu2.open sqlstu2,conn,1,3
					
					if not orsstu2.eof then
							orsstu2.movefirst
							do while not orsstu2.eof
							a2=a2+1
										
							orsstu2.movenext
							loop
					end if
	sqlstu1="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu=1"
					set orsstu1=server.createobject("adodb.recordset")
					orsstu1.open sqlstu1,conn,1,3
					
					if not orsstu1.eof then
							orsstu1.movefirst
							do while not orsstu1.eof
							a1=a1+1
								'Response.write "a1="&a1		
							orsstu1.movenext
							loop
					end if

sqlstu3="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu<>1 and id_status_edu<>2"
					set orsstu3=server.createobject("adodb.recordset")
					orsstu3.open sqlstu3,conn,1,3
					a3=0
					if not orsstu3.eof then
						orsstu3.movefirst
						do while not orsstu3.eof
						a3=a3+1
						orsstu3.movenext
						
						loop
					end If
					'Response.write "a3="&a3
			orsstu.movenext
			loop
			end if

response.write " #"&orsall("no_stugroup")&" </a>]</td>"
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_name")&"</td>"

Response.write "<td align=center> "&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>] "
		if a2>0 then
		response.write "</td>"
		Response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=fedu>"&a2&"</a>]</td>"
		else response.write "<td>"
		end If
		
		if a1>0 Then
		response.write "</td>"
		response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=cedu>"&a1&"</a>]</td>"
		
				else response.write "<td>"
		end if	
		if a3 > 0 then
		'Response.write "<td>"&a3
			response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=oedu>"&a3&"</a>]"
		Response.write "</td>"
		else response.write "<td>"
		end if

'QE 
				sqlqe="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu=1"
				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
							'Response.write "eeee"
					if not orscre.eof then
					orscre.movefirst
					do while not orscre.eof 
						cre=cre+1
						'response.write "cregggggg="&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' and dtest<="&int(dcheck)&""
				set orspro=server.createobject("adodb.recordset")
				orspro.open sqlpro,conn,1,3
									'	response.write sqlpro
				if orspro.eof then
					sqlpro1="select * from thesis_test where id_thesis='"&orsoral("id_thesis")&"' and id_type_test='1' and dtest<="&int(dcheck)&""
					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
				'response.write "<td>"&orspro("dtest")&"<"&dcheck
				oral=oral+1
				orspro.movenext
				loop
				end if
					orsoral.movenext
				loop
				else 
				cc=cc+1
				end if
			orsqe.movenext
		loop
					if qe>0 then
response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=qe>"&qe&"</a>]"
					else  response.write "<td>"
					end if
					if oral>0 then
response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=oral>"&oral&"</a>]"
					else  response.write "<td>"
					end if
					if pro>0 then
response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=pro>"&pro&"</a>]"
					else  response.write "<td>"
					end if
					if cc>0 then
response.write "<td align=right>[<a href=stat_pass.asp?sg="&orsall("id_stugroup")&"&sms=nothesis>"&cc&"</a>]"
					else  response.write "<td>"
					end if
		else response.write "<td><td><td><td>"
		end if
		qe1=qe1+qe
		oral1=oral1+oral
		pro1=pro1+pro
		cc1=cc1+cc
		aa1=aa1+a1
		aa2=aa2+a2
		aa3=aa3+a3
		a11=a11+a
		a1=0
		a2=0
		orsall.movenext
		loop

'response.write "<tr><td colspan=9 align=center>Please Select Data"
		end if
		response.write "<tr bgcolor=#FFFF99>"
		response.write "<td colspan=3 align=right>���"
		response.write "<td align=right >"
		response.write "[<a href=all_student.asp?sg="&curri&"&tsg="&tcurri&">"&a11&"</a>]"

'response.write "<td align=right bgcolor=#CCFF99>"&aa2
		'response.write "<td align=right bgcolor=#CCFF99>"&aa1
		'response.write "<td align=right bgcolor=#CCFF99>"&aa3
		'response.write "<td align=right bgcolor=#FFCCFF>"&qe1
		'response.write "<td align=right bgcolor=#FFFFCC>"&oral1
		'response.write "<td align=right bgcolor=#FFFFCC>"&pro1
		'response.write "<td align=right bgcolor=#FFFFCC>"&cc1
		'response.write "[<a href=stat_pass_total.asp?sg="&orsall("id_stugroup")&"&sms=alledu>"&a11&"</a>]"
		response.write "<td align=right bgcolor=#CCFF99>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=fedu&sedu=2>"&aa2&"</a>]"
		response.write "<td align=right bgcolor=#CCFF99>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=cedu&sedu=1>"&aa1&"</a>]"
		response.write "<td align=right bgcolor=#CCFF99>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=oedu>"&aa3&"</a>]"
		response.write "<td align=right bgcolor=#FFCCFF>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=qe>"&qe1&"</a>]"
		response.write "<td align=right bgcolor=#FFFFCC>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=oral>"&oral1&"</a>]"
		response.write "<td align=right bgcolor=#FFFFCC>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=pro>"&pro1&"</a>]"
		response.write "<td align=right bgcolor=#FFFFCC>[<a href=stat_pass_all.asp?sg="&curri&"&tsg="&tcurri&"&sms=nothesis>"&cc1&"</a>]"
		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: indexstudent.asp.bak