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

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

<%
'*****************************************************************
'  if session("tb_preview") <> 1 or session("id_lecturer1") = id_lecturer then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%>
<br><a href=qe_index.asp>˹���á QE></a><br>
<table width="100%" border="0" cellspacing="0">
 <tr>

<td colspan=6 width="892" align="left" valign="top"><div align="center">���Ե����ͺ��� QE <b>��ҹẺ�����͹�</b>   �ͧ���Ե�����ѧ�֡�� 
<br>������ � �ѹ��� <%=date%>
</tr> <tr bgcolor=#E5E5E5>
          <td><strong>���</td>
          <td><div align=center><strong>����</td>
    <td align=center><strong>����-ʡ��</td><td align=center bgcolor=#FFFFCC><strong>������(�ǤԴ)</td><td align=center bgcolor=#FFFFCC><strong>�ԧ�س�Ҿ(�Ը��Ԩ��)</td><td align=center bgcolor=#FFFFCC><strong>�ԧ����ҳ(�����)</td>
<%
sqlstug="select * from student_group where id_curriculum=2 order by id_begin_year"
set orsstug=server.createobject("adodb.recordset")
orsstug.open sqlstug,conn,1,3
if not orsstug.eof then
a=0		
orsstug.movefirst
	
do while not orsstug.eof

sqlstu1="select * from student where id_status_edu=1 and id_stugroup='"&orsstug("id_stugroup")&"'"
					set orsstu1=server.createobject("adodb.recordset")
					orsstu1.open sqlstu1,conn,1,3
					if not orsstu1.eof then
					orsstu1.movefirst
		
					do while not orsstu1.eof

'���  qe_regis2 ��Ҽ�ҹ��� ���  5 
					   sqlchpass="select * from qe_regis2 where id_stu='"&orsstu1("id_stu")&"' and qe_result_semeter=5"
	set orschpass=server.createobject("adodb.recordset")
	orschpass.open sqlchpass,conn,1,3
	if  not orschpass.eof then '�������� ��� �ѧ����ҹ ����礵������� ��ҹẺ�����͹����

orschpass.movefirst 
do while not orschpass.eof
		
							a=a+1
bgcolor=a mod 2
	if bgcolor>0 then
		bg1="ffffff"
	else
		bg1="#DADADA"
	end if
			response.write "<tr bgcolor='"&bg1&"'><td>"&a&"</td>"
			response.write "<td>"&orsstu1("id_stu")&"</td><td>[<a href=qe_regis.asp?id_stu="&orsstu1("id_stu")&">"&orsstu1("name_stu")&" "&orsstu1("sur_stu")&"</a>]"
			'response.write orschpass("qe_schedule")

sqlcourse="select * from qe_course order by qe_course"
				set orscourse=server.createobject("adodb.recordset")
				orscourse.open sqlcourse,conn,1,3
				if not orscourse.eof then
				orscourse.movefirst
				do while not orscourse.eof
				response.write "<td>"
					'sqlqe2="select * from qe where qe_course='"&orscourse("qe_course")&"' and  qe_schedule='"&qe_schedule&"' "
					sqlqe2="select * from qe where qe_course='"&orscourse("qe_course")&"' order by qe_date asc"
					
					set orsqe2=server.createobject("adodb.recordset")
							orsqe2.open sqlqe2,conn,1,3
							if not orsqe2.eof then 
							  
							orsqe2.movefirst
							do while not orsqe2.eof
							qe_day=orsqe2("qe_day")
							qe_month=orsqe2("qe_month")
							qe_year=orsqe2("qe_year")
							sqlqe="select * from qe_schedule where qe_schedule='"&orsqe2("qe_schedule")&"' "
											  set orsqe=server.createobject("adodb.recordset")
											 orsqe.open sqlqe,conn,1,3
											'response.write sqlqe
												if not orsqe.eof then
												qe_semeter=orsqe("qe_semeter")
												qe_year_edu=orsqe("qe_year_edu")

end if
						'	response.write orscourse("qe_course")
								sqlqr="select * from qe_regis where id_stu='"&orsstu1("id_stu")&"' and qe_id='"&orsqe2("qe_id")&"' and qe_result=4"
								set orsqr=server.createobject("adodb.recordset")
								orsqr.open sqlqr,conn,1,3
								if not orsqr.eof then '�������ռš���ͺẺ �ͺ���� �����깫�š���ͺ�� ����������仴�㹡���ͺ���駶Ѵ�
									response.write "<font color=#CC00FF>�ͺ����"
									response.write "("&orsqe("qe_semeter")&"/"&orsqe("qe_year_edu")&")</font><br>"
								else
								
				'qe_num=orsqe2("qe_num")-1
					sqlqr2="select * from qe_regis where id_stu='"&orsstu1("id_stu")&"' and qe_id='"&orsqe2("qe_id")&"' "
								set orsqr2=server.createobject("adodb.recordset")
								orsqr2.open sqlqr2,conn,1,3
								if not orsqr2.eof then
									sqlg="select * from qe_grade where qe_grade='"&orsqr2("qe_result")&"'"
									set orsg=server.createobject("adodb.recordset")
									orsg.open sqlg,conn,1,3
									  if not orsg.eof then
											if orsqr2("qe_result")="2" then
											 fc="#CC0033"
											elseif orsqr2("qe_result")="1" then
											 fc="##669900"
											 elseif orsqr2("qe_result")="3" then
											 fc="#CC66FF"
											 elseif orsqr2("qe_result")="4" then
											 fc="#990000"
											else fc="#D8D8CF"
											 end if
											 
											response.write "<font color="&fc&">"&orsg("qe_qname")
											response.write "("&qe_semeter&"/"&qe_year_edu&")</font><br>"
											'response.write orsqr2("id_regis")
											'response.write orsqr("qe_result")
																				
									end if 'orsg
									else
									
									'response.write "n11r"'&orsqe2("qe_id")
								end if 'orsqr2
					end if	'orsqr
						orsqe2.movenext
					loop			
					else
					'response.write "<td>Nr"

end if 'orsqe2

orscourse.movenext
				loop

end if  'ors_course
		'end if 'if orschpass=0
		'end if 'orschpass2
orschpass.movenext
loop
	end if 'orschapss

orsstu1.movenext
					loop
					end if
orsstug.movenext
loop
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: qe_cpass.asp.bak