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
  tcurri=request("tsg")
    curri=request("sg")
  sms=request("sms")
	'sql="select * from student_group where id_stugroup='"&student_group&"'"
	'set ors=server.createobject("adodb.recordset")
	'ors.open sql,conn,1,3
		'if not ors.eof then
		'	tcurri=request("tcurri")
		'	curri=ors("curri")
		'end if
  response.write "<tr><td><a href=indexstudent.asp?curri="&curri&"&tcurri="&tcurri&">˹���á���Ե></a></td></tr>"
		
  %>
       <td width="892" align="left" valign="top"><div align="center">ʶԵԹ��Ե<br>

<%
	  if curri="0" and tcurri="0" then '�Դ�Ҥ����á����բ��������� ���͡�ء�дѺ
			sqlall="select * from student_group order by id_curriculum desc, id_type_curri desc, id_begin_year"
	   elseif tcurri="0" then '���͡ 
			sqlall="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 ���ҧ����
			sqlall="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 '���͡����������ͧ���ҧ
			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"
	   else 
			response.write "Please Select Your Choice"
	  end if
    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"
  end if%>

<%
'sqlall="select * from student_group where id_curriculum='"&sg&"' and id_type_curri='"&tsg&"' order by id_begin_year desc"
		set orsall=server.createobject("adodb.recordset")
		orsall.open  sqlall,Conn,1,3
		'response.write sqlall
		a1=0 'ʶҹй��Ե��診����֡��
		a3=0 '��診����֡��� � ������
	if not orsall.eof then

'response.write orsall("id_stugroup")
	id_curriculum=orsall("id_curriculum")
	
				 if sms="qe" then 
		 sms1="����ͺ��ҹ QE �ͧ"
	   elseif sms="oral" then 
	    sms1="����ҹ����ͺ Oral �ͧ"
	   elseif sms="pro"then 
	    sms1="����ҹ����ͺ Proposal �ͧ"
	   elseif sms="nothesis" then 
	    sms1="�������ͺ��Ǣ�� �ͧ"
	elseif sms="fedu" then 
	    sms1="��� ������֡�� �ͧ"
	elseif sms="cedu" then 
	    sms1="��� ���ѧ�֡�� �ͧ"
	elseif sms="oedu" then 
	    sms1="��� ʶҹ����  �ͧ"
	   else 
			response.write "Please Select Your Choice"
	  end if
%> <tr><td colspan=6 align=center><%=sms1%>

<%if sg=0 and tsg=0 and sms="nothesis" then 
response.write "���Ե������"
else%>
<tr ><td colspan=6>
��ѡ�ٵ� 
          <%
		 
		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=orsall("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")
	%>  �Ң� 
            <%
	id_major=orsall("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")
end if
		'response.write "�������"&orsall("id_stugroup")&"</a>]"
%></td></tr> 
  <%
if sms="qe" then
%>
<tr bgcolor="#CCCCCC">

</tr>
<%
else
%>
<tr bgcolor=#FFFFCC>
			<td><div align="center" >�ӴѺ���</div></td>
			  <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></tr> 
<%

end if
%>
<%
	 orsall.movefirst
	do while not orsall.eof
	student_group=orsall("id_stugroup")
	
%>

            <%
	'response.write orsall("no_stugroup")
	%>
<%
	 if sms="qe" then 
%>

    
    
<!-- 	<td ><div align="center" >�ӴѺ���</div></td>
	    <td ><div align="center" width=200%>���ʹ��Ե</div></td>
    <td><div align="center">����-ʡ��</div></td>
	 <td bgcolor=#CCFF99><div align="center">������</div>
  
	<td bgcolor=#CCFF99><div align="center">�ԧ����ҳ</div>
<td bgcolor=#CCFF99><div align="center">�ԧ�س�Ҿ</div>

</tr> -->
	<tr><td align=center>
	<%
		'QE 
				sqlqe="select * from student where id_stugroup='"&student_group&"' and id_status_edu=1"
				set orsqe=server.createobject("adodb.recordset")
				orsqe.open sqlqe,conn,1,3
				qe=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
													orscre.movenext
													loop
												end if
												if cre=3 then
												response.write "<tr bgcolor="&bg1&"><td><td>"&orsqe("id_stu")&"</a>"
												response.write "<td>"&orsqe("name_stu")&" "&orsqe("sur_stu")
														sqlco="select * from qe_course"
														set orsco=server.createobject("adodb.recordset")
														orsco.open sqlco,conn,1,3
														if not orsco.eof then
															orsco.movefirst
																do while not orsco.eof
																		sqlqec="select * from qe where qe_course='"&orsco("qe_course")&"'"
																		set orsqec=server.createobject("adodb.recordset")
																		orsqec.open sqlqec,conn,1,3
																	nol=0
																		  if  not orsqec.eof then
																		  'response.write sqlqec
																				orsqec.movefirst
																				do while not orsqec.eof 
																					sqlreg="select * from qe_regis where id_stu='"&orsqe("id_stu")&"' and qe_id='"&orsqec("qe_id")&"' and qe_result=1"
																					set orsreg=server.createobject("adodb.recordset")
																					orsreg.open sqlreg,conn,1,3
																							if not orsreg.eof then
																									response.write	"<td>"&orsqec("qe_day")&"-"&orsqec("qe_month")&"-"&orsqec("qe_year")
																							'else response.write "<td>aa"
																							end if
																				orsqec.movenext
																				loop
																					
																		  end if
															orsco.movenext
															loop
														end if
												end if
						orsqe.movenext
					loop
				end if

end if
		
		
	%>
	</td></tr>
	<%	
	
	if sms="oral" or sms="pro" or sms="nothesis" then 
	'response.write "nothesis"
							'response.write "<tr><td>999"
				%>

'response.write "<tr><td>999"
				sqlstu="select * from student where id_stugroup='"&student_group&"' and id_status_edu=1"
				set orsstu=server.createobject("adodb.recordset")
				orsstu.open sqlstu,conn,1,3
				oral=0
				
			'	response.write sqlstu
				if not orsstu.eof then
					%>
		 
            <%
	'response.write orsall("no_stugroup")

%>

orsstu.movefirst
					do while not orsstu.eof
				
						'response.write "<tr><td>999"
														sqlstatus="select * from status_edu where id_status_edu='"&orsstu("id_status_edu")&"'"
														set orsstatus=server.createobject("adodb.recordset")
														orsstatus.open sqlstatus,conn,1,3
														if not orsstatus.eof then
														status_edu=orsstatus("status_edu")
														end if
						sqloral="select * from thesis where id_stu='"&orsstu("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<'"&dcheck&"'"
								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' 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
													if pro mod 2 = 0 then
													bgpro="#F0F0F0"
													else bgpro="ffffff"
													end if
													pro=pro+1
											    if sms="pro"	 then
													response.write "<tr bgcolor="&bgpro&"><td>"&pro&"<td>[<a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("id_stu")&"</a>]<td>"&orsstu("name_stu")&" "&orsstu("sur_stu")

response.write "<td>"&status_edu
													response.write "<td>"&orspro1("date1")&"-"&orspro1("month1")&"-"&orspro1("year1")
													'response.write "<tr><td>888"
												end if
													orspro1.movenext
												loop
										else 	
													if cc mod 2 = 0 then
													bgcc="#F0F0F0"
													else bgcc="ffffff"
													end if
														cc=cc+1
														if sms="nothesis" then
														'response.write "<tr><td>777"
														response.write "<tr bgcolor="&bgcc&"><td>"&cc&"<td>[<a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("id_stu")&"</a>]<td>"&orsstu("name_stu")&" "&orsstu("sur_stu")
														response.write "<td>"&status_edu
														sqld1="select * from thesis_test where id_thesis='"&orsoral("id_thesis")&"' and id_type_test='1' and dtest>"&int(dcheck)&""
														set orsd1=server.createobject("adodb.recordset")
														orsd1.open sqld1,conn,1,3
														if not orsd1.eof then
														orsd1.movefirst
														do while not orsd1.eof
														response.write "<td>"&orsd1("date1")&"-"&orsd1("month1")&"-"&orsd1("year1")
														orsd1.movenext
														loop
														else
														response.write "<td>-"
														end if
														end if

'response.write "cc"&cc
												
										end if
									else 
										orspro.movefirst
										do while not orspro.eof
												if oral mod 2 = 0 then
													bgoral="#F0F0F0"
													else bgoral="ffffff"
													end if
													oral=oral+1
													if sms="oral" then
														response.write "<tr bgcolor="&bgoral&"><td>"&oral&"<td>[<a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("id_stu")&"</a>]<td>"&orsstu("name_stu")&" "&orsstu("sur_stu")
														response.write "<td>"&status_edu
														response.write "<td>"&orspro("date1")&"-"&orspro("month1")&"-"&orspro("year1")
													end if
										orspro.movenext
										loop
									end if
							orsoral.movenext
							loop
						else 	
									if cc mod 2 = 0 then
									bgcc="#F0F0F0"
									else bgcc="ffffff"
									end if
										cc=cc+1
										if sms="nothesis" then
										response.write "<tr bgcolor="&bgcc&"><td>"&cc&"<td>[<a href=edit_thesis_stu_form.asp?id_stu="&orsstu("id_stu")&">"&orsstu("id_stu")&"</a>]<td>"&orsstu("name_stu")&" "&orsstu("sur_stu")
										response.write "<td>"&status_edu&"<td>-"
										end if

end if
					orsstu.movenext
					loop
					end if
	end if
	'������ͺ��ҹ Oral
	'response.write sms
	
	if sms="fedu" or sms="cedu" or sms="oedu" then
	'response.write sms
						
%>
			
<%
				if sms="fedu" then
					'response.write sms
					sqlstu1="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu=2"
					set orsstu1=server.createobject("adodb.recordset")
					orsstu1.open sqlstu1,conn,1,3
					'a1=0
					a2=0
					if not orsstu1.eof then
						sqlstatus="select * from status_edu where id_status_edu='"&orsstu1("id_status_edu")&"'"
						set orsstatus=server.createobject("adodb.recordset")
						orsstatus.open sqlstatus,conn,1,3
						if not orsstatus.eof then
						status_edu=orsstatus("status_edu")
						end if
							orsstu1.movefirst
							do while not orsstu1.eof
							a1=a1+1
							if a1 mod 2 = 0 then
							bga1="#F2F2F2"
							else bga1="ffffff"
							end if
								response.write "<tr bgcolor="&bga1&"><td>"&a1&"<td>[<a href=detail_stu.asp?id_stu="&orsstu1("id_stu")&">"&orsstu1("id_stu")&"</a>]<td>"&orsstu1("name_stu")&" "&orsstu1("sur_stu")
										response.write "<td>"&status_edu	&"<td>"&orsstu1("d_finish_edu")&"/"&orsstu1("m_finish_edu")&"/"&orsstu1("y_finish_edu")
							orsstu1.movenext
							loop
					end if
				end if
			if sms="cedu" then
						sqlstu2="select * from student where id_stugroup='"&orsall("id_stugroup")&"' and id_status_edu=1"
					set orsstu2=server.createobject("adodb.recordset")
					orsstu2.open sqlstu2,conn,1,3
					'a2=0
					if not orsstu2.eof then
														sqlstatus="select * from status_edu where id_status_edu='"&orsstu2("id_status_edu")&"'"
														set orsstatus=server.createobject("adodb.recordset")
														orsstatus.open sqlstatus,conn,1,3
														if not orsstatus.eof then
														status_edu=orsstatus("status_edu")
														end if
							orsstu2.movefirst
							do while not orsstu2.eof
							a2=a2+1
									if a2 mod 2 = 0 then
										bga2="#F2F2F2"
										else bga2="ffffff"
									end if
								response.write "<tr bgcolor="&bga2&"><td>"&a2&"<td>[<a href=detail_stu.asp?id_stu="&orsstu2("id_stu")&">"&orsstu2("id_stu")&"</a>]<td>"&orsstu2("name_stu")&" "&orsstu2("sur_stu")
										response.write "<td>"&status_edu	
	
							orsstu2.movenext
							loop
					end if
				end if
				if sms="oedu" then
						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
																			sqlstatus="select * from status_edu where id_status_edu='"&orsstu3("id_status_edu")&"'"
														set orsstatus=server.createobject("adodb.recordset")
														orsstatus.open sqlstatus,conn,1,3
														if not orsstatus.eof then
														status_edu=orsstatus("status_edu")
														end if
						orsstu3.movefirst
						do while not orsstu3.eof
						a3=a3+1
						if a3 mod 2 = 0 then
						bga3="#F2F2F2"
						else bga3="ffffff"
						end if

response.write "<tr bgcolor="&bga3&"><td>"&a3&"<td>[<a href=detail_stu.asp?id_stu="&orsstu3("id_stu")&">"&orsstu3("id_stu")&"</a>]<td>"&orsstu3("name_stu")&" "&orsstu3("sur_stu")
										response.write "<td>"&status_edu

orsstu3.movenext
						loop
					end if
				end if
	end if '�� ʶҹ� ������֡��
	 orsall.movenext
	 loop
	end if '�� orsall���Ե���蹹�������
	%>
	</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: stat_pass_all.asp