File Manager

<%
		  pern=session("username")
		  per="2"
		  tb="qe"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
		  %>
<!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_schedule=request("id2")

sqlq="select * from qe_schedule where qe_schedule='"&qe_schedule&"'"
set orsq=server.createobject("adodb.recordset")
		orsq.open sqlq,conn,1,3
		if not orsq.eof then
		year_edu=orsq("year_edu")
		%>	��ª��͹��Ե���ŧ����¹�ͺ[<a href=qe_schedule.asp?id=<%=orsq("qe_semeter")%>&id2=<%=orsq("qe_year_edu")%>>QE</a>]
<%
					response.write "<br><b>����ͺ���駷�� </b>"&orsq("qe_semeter")&"/"&orsq("qe_year_edu")
		end if
	  %><br>
      <br> 
	    
	  <table border="0" width=100% >
        <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><%

%></div>
		  
        </tr>

<%
'sqlstu1="select * from student where id_status_edu=1"
sqlstu1="select * from qe_regis2 where qe_schedule='"&qe_schedule&"'"
					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
	'response.write sqlstu1
	bgcolor=a mod 2
	if bgcolor>0 then
		bg1="ffffff"
	else
		bg1="#F2F2F2"
	end if
sqlstu="select * from student where id_stu='"&orsstu1("id_stu")&"'"
set orsstu=server.createobject("adodb.recordset")
orsstu.open sqlstu,conn,1,3
if not orsstu.eof then
response.write "<tr bgcolor='"&bg1&"'><td>"&a&"</td>"
								response.write "<td>"&orsstu("id_stu")&"</td><td>[<a href=qe_regis.asp?id_stu="&orsstu("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>]"

sqlcourse1="select * from qe_course"
set orscourse1=server.createobject("adodb.recordset")
orscourse1.open sqlcourse1,conn,1,3
if not orscourse1.eof then
orscourse1.movefirst

do while not orscourse1.eof  
test2=0
response.write "<td>"
'��÷Ѵ��ҹ��ҧ������з�����ǹ�����ͺ
sqlqe="select * from qe where qe_course='"&orscourse1("qe_course")&"' and qe_schedule='"&qe_schedule&"' order by qe_num "

'������� �������Ԫ� ���Դ����ͺ�ѹ���� ǹ����ͺ����Դ�ͺ
set orsqe=server.createobject("adodb.recordset")
orsqe.open sqlqe,conn,1,3
'response.write sqlqe&"<br>"
	if not orsqe.eof then
	orsqe.movefirst
	bpass=0
	do while not orsqe.eof
	bpass=bpass+1
	'response.write sqlqe
sqlqr4="select * from qe_regis where qe_id='"&orsqe("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' and qe_result=4"
									set orsqr4=server.createobject("adodb.recordset")
									orsqr4.open sqlqr4,conn,1,3
		if not orsqr4.eof then

response.write "<font color=#CC00FF>�ͺ����</font><br>"
	
else
		sqlqr="select * from qe_regis where qe_id='"&orsqe("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' and qe_result=1 "
			set orsqr=server.createobject("adodb.recordset")
			orsqr.open sqlqr,conn,1,3
			if not orsqr.eof then 
									response.write "<font color=#669900>��ҹ</font>"
			else	'orsqr 
				sqlqr5="select * from qe_regis where qe_id='"&orsqe("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' and qe_result=5 "
				set orsqr5=server.createobject("adodb.recordset")
				orsqr5.open sqlqr5,conn,1,3
				if not orsqr5.eof then 
				response.write "<font color=#CC00FF>��ҹ**</font>"

else
								  
				sqlqr2="select * from qe_regis where qe_id='"&orsqe("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' and qe_result=2 "
				set orsqr2=server.createobject("adodb.recordset")
				orsqr2.open sqlqr2,conn,1,3
				if not orsqr2.eof then 
				response.write "<font color=#FF0000>����ҹ</font>"
				else
				sqlqr3="select * from qe_regis where qe_id='"&orsqe("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' and qe_result=3 "
				set orsqr3=server.createobject("adodb.recordset")
				orsqr3.open sqlqr3,conn,1,3
				if not orsqr3.eof then 
				response.write "<font color=#DDDDD9>�Ҵ�ͺ</font>"
				else
					sqlqr0="select * from qe_regis where qe_id='"&orsqe("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' and qe_result=0 "
					set orsqr0=server.createobject("adodb.recordset")
					orsqr0.open sqlqr0,conn,1,3
					if not orsqr0.eof then 
					response.write "<font color=#DDDDD9>-</font>"
					else
															'�Ҩҡ ����ͺ�Ҥ����� ������ʴ���� �ʴ�੾�м�ҹ �Ѻ��ҹẺ�����͹�
					sqloth="select * from qe_schedule where year_edu<'"&year_edu&"'"
						set orsoth=server.createobject("adodb.recordset")
						orsoth.open sqloth,conn,1,3
						if not orsoth.eof then
						orsoth.movefirst
						do while not orsoth.eof
														
						sqloth1="select * from qe where qe_schedule='"&orsoth("qe_schedule")&"' and qe_course='"&orscourse1("qe_course")&"'"
						set orsoth1=server.createobject("adodb.recordset")
						orsoth1.open sqloth1,conn,1,3
						'response.write orsqe("qe_id")&"<br>"
						if not orsoth1.eof then
																		
						orsoth1.movefirst
						do while not orsoth1.eof
						sqloth2="select * from qe_regis where qe_id='"&orsoth1("qe_id")&"' and id_stu='"&orsstu1("id_stu")&"' "
						set orsoth2=server.createobject("adodb.recordset")
						orsoth2.open sqloth2,conn,1,3
						'response.write sqloth2&"<br>"
						if not orsoth2.eof then
							if orsoth2("qe_result")=1 or orsoth2("qe_result")=5 then
							if bpass=1 then
							sqlgr1="select * from qe_grade where qe_grade='"&orsoth2("qe_result")&"'"
							set orsgr1=server.createobject("adodb.recordset")
							orsgr1.open sqlgr1,conn,1,3
							if not orsgr1.eof then
							response.write orsgr1("qe_qname")'&orsoth2("id_regis")&" "&
							response.write "("&orsoth("qe_semeter")&"/"&orsoth("qe_year_edu")&")"
							end if
							end if
							end if
						end if
					orsoth1.movenext
					loop
					end if
					orsoth.movenext
					loop
				end if '���Ҩҡ ����ͺ�Ҥ����� ������ʴ���� �ʴ�੾�м�ҹ �Ѻ��ҹẺ�����͹�
				end if
				end if
				end if
				end if
		end if	'orsqr 
end if 'orsqr4

orsqe.movenext
		loop
		'else
'response.write "<td>NT"
				
		end if 'orsqe �Ԫҹ��������Դ�������
		orscourse1.movenext
		loop
else

end if 'orscourse1

else

end if 'orsstu
			if orsq("qe_schedule_status")="1" and not orsnc.eof then
		'	if not orsnc.eof then
				
'��Ǩ�ͺ���ʶҹС��͹حҵ���ô
						%>
						 <%'=orsstu1("qe_score")%>
						<td>
						<FORM name="form2" METHOD="POST" ACTION="qe_result_schedule.asp">
						<SELECT NAME="qe_grade" >
			  <%
		   grade=orsstu1("qe_result_semeter")
		  sqlcr="select * from qe_grade"
		  set orscr=server.createobject("adodb.recordset")
		  orscr.open sqlcr,conn,1,3
		  if not orscr.eof then
		  orscr.movefirst
			do while not orscr.eof
			
			%>
			
              <option <%	
			  if orscr("qe_grade")=grade then 
			  %>
		value=<%=grade%><%=orsstu1("id_stu")%>
		selected
		<%else%> 
		value=<%=orscr("qe_grade")%>	<%=orsstu1("id_stu")%>
		<%end if%>> 
		<%=orscr("qe_qname")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			
			loop
		 		  end if
				' end if 'if not orsnc.eof
'����ô֧�ô
else
'�������Ԫҹ��Դ������ô
			response.write "<td>"
						sqlg="select * from qe_grade where qe_grade='"&orsstu1("qe_result_semeter")&"'"
						set orsg=server.createobject("adodb.recordset")
						orsg.open sqlg,conn,1,3
						  if not orsg.eof then
								if orsstu1("qe_result_semeter")="2" then
								 fc="#CC0033"
								 elseif orsstu1("qe_result_semeter")="3" then
								 fc="#CC66FF"
								 elseif orsstu1("qe_result_semeter")="4" then
								 fc="#990000"
								 else fc="#66FF00"
								 end if
						response.write "<font color="&fc&">"&orsg("qe_qname")&"</font>"
						  end if
	end if '������Ԫҹ��Դ������ô

orsstu1.movenext
	loop
		if orsq("qe_schedule_status")="1" then
			if not orsnc.eof then
		%>
		
		<INPUT TYPE="hidden" NAME="qe_schedule" value=<%=qe_schedule%>>	
		<tr align=right><td colspan=5><input type="submit" name="Submit" value="�ѹ�֡�š���ͺ">
		<%end if%>
		</form>
		<%
		end if
end if	'orsstu1
		%></table><br>
		<TABLE >

</table></div>
	</table>

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