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 '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%>
<table width="100%" border="0" cellspacing="0">

<tr>

<td width="892" align="left" valign="top"><div align="center"><font size=2>�š���ͺ <a href=qe_index.asp>QE</a> �ͧ���Ե�����ѧ�֡�� 
<%
qe_year=request("id2")
qe_semeter=request("id")

%><br>������ � �ѹ��� <%=date%>
	<form name="form1" method="post" action="qe_result_semeter_all.asp">
<tr bgcolor=#99FF00><td colspan=7 align=center>
			    ���͡������ <select name="tcurri">
				<option value=0>������</option>
<% 
			  set ors_tc=server.createobject("adodb.recordset")
	 sqlmark_tc="select * from type_curriculum where id_curriculum=2 and id_status<>0"
	 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>
	    
	  <table border="0" width="100%" >
       <%

%></div>
		  
        </tr>

<%
tcurri=request.form("tcurri")
'response.write tcurri
if tcurri=0 then
sqlstug="select * from student_group where id_curriculum=2 order by id_begin_year"
else  sqlstug="select * from student_group where id_curriculum=2 and id_type_curri='"&tcurri&"' order by id_begin_year"
end if
set orsstug=server.createobject("adodb.recordset")
orsstug.open sqlstug,conn,1,3
if tcurri<>"" then
if not orsstug.eof then
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
					
'response.write sqlcourse
if not orsstu1.eof then
%>
<tr bgcolor=#FFCC00>
          <td colspan=7><strong>��ѡ�ٵ� 
          <%
	'response.write ors_group("id_curriculum")
	id_curriculum=orsstug("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=orsstug("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 orsstug("no_stugroup")
	%> 
         
            <%
	id_major=orsstug("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> <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><td align=center bgcolor=#99FF00><strong>�š���ͺ</td><%
'response.write sqlstug
orsstu1.movefirst
a=0
do while not orsstu1.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>]"

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")&"' 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
'�š���ͺ����ҹ�ͧ�������
response.write "<td>"
	sqlchpass="select * from qe_regis2 where id_stu='"&orsstu1("id_stu")&"'"
	set orschpass=server.createobject("adodb.recordset")
	orschpass.open sqlchpass,conn,1,3
	if not orschpass.eof then
orschpass.movefirst
do while not orschpass.eof
		if orschpass("qe_result_semeter")=1 or orschpass("qe_result_semeter")=5 then
				sqlqes="select * from qe_schedule where qe_schedule='"&orschpass("qe_schedule")&"'"
				set orsqes=server.createobject("adodb.recordset")
				orsqes.open sqlqes,conn,1,3
				'response.write "55"
				if not orsqes.eof then
						sqlchgr2="select * from qe_grade where qe_grade='"&orschpass("qe_result_semeter")&"'"
						set orschgr2=server.createobject("adodb.recordset")
						orschgr2.open sqlchgr2,conn,1,3
						if not orschgr2.eof then
									response.write orschgr2("qe_qname")&"("&orsqes("qe_semeter")&"/"&orsqes("qe_year_edu")&")"
						end if
						
				end if
		end if
orschpass.movenext
loop
	end if
		'��ػ�š���ͺ
	orsstu1.movenext
	loop
	
end if	'orsstu1
orsstug.movenext
loop
end if 'orsstug
end if '�ҡ������Ѻ��һ������ͧ��ѡ�ٵ��� ������ͧ�ʴ�����
		%></table><br>
		</div>

</td>
  </tr>
  <tr> 
    <td colspan="3"></td>
  </tr>

</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_result_semeter_all.asp.bak