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 width="892" align="left" valign="top"><div align="center">�š���ͺ QE �ͧ���Ե�����ѧ�֡�� ��� <b>�ͺ��ҹ QE</b> ����
<%
qe_year=request("id2")
qe_semeter=request("id")

%><br>������ � �ѹ��� <%=date%>
	
	  <table border="0" width="100%" >
       <%

%></div>
		  
        </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=#FFFFCC><strong>�ԧ����ҳ(�����)</td><td align=center bgcolor=#99FF00><strong>�š���ͺ</td>

<%
sqlstu1="select * from qe_regis2 where qe_result_semeter=1 or qe_result_semeter=5 order by id_stu"

'end if	
					set orsstu1=server.createobject("adodb.recordset")
					orsstu1.open sqlstu1,conn,1,3
					
'response.write sqlcourse
if not orsstu1.eof then
orsstu1.movefirst
a=0
do while not orsstu1.eof
a=a+1
bgcolor=a mod 2
	if bgcolor>0 then
		bg1="ffffff"
	else
		bg1="#E8E8E8"
	end if

sqlstug="select * from student where id_stu='"&orsstu1("id_stu")&"' and id_status_edu=1 order by id_stu"
set orsstug=server.createobject("adodb.recordset")
orsstug.open sqlstug,conn,1,3
if not orsstug.eof then
response.write "<tr bgcolor='"&bg1&"'><td>"&a&"</td>"
						response.write "<td>"&orsstug("id_stu")&"</td><td>[<a href=qe_regis.asp?id_stu="&orsstug("id_stu")&">"&orsstug("name_stu")&" "&orsstug("sur_stu")&"</a>]"
%>

<td >
          <%
		  sqlstug1="select * from student_group where id_stugroup='"&orsstug("id_stugroup")&"'"

set orsstug1=server.createobject("adodb.recordset")
orsstug1.open sqlstug1,conn,1,3

'response.write ors_group("id_curriculum")
'	id_curriculum=orsstug1("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=orsstug1("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 orsstug1("no_stugroup")
	%> 
          </td>  
        <%

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")
							'response.write orsqe2("qe_date")
							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

end if 'orsstug
		'�š���ͺ����ҹ�ͧ�������
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

%></table><br>
		</div>

</td>
  </tr>
  <tr> 
    <td colspan="3"></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: qe_pass.asp