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><strong>
<%
qe_id=request("qe_id")
%>	��ª��͹��Ե���ŧ����¹�ͺ[<a href=qe_index.asp>QE</a>]
</strong><%
sqlq="select * from qe where qe_id="&qe_id&""
set orsq=server.createobject("adodb.recordset")
		orsq.open sqlq,conn,1,3
		if not orsq.eof then
				response.write "<br>����ͺ���駷�� "&orsq("qe_num")&"/"&orsq("qe_numyear")& " �ѹ����ͺ "&orsq("qe_day")&"/"&orsq("qe_month")&"/"&orsq("qe_year")
		end if

%><br>
      <br> <table border="0" width=100% >
        <tr bgcolor=#FFFFCC>
          <td><strong>�ӴѺ���</td>
          <td><div align=center><strong>����</td>
    <td><strong>����-ʡ��</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>[<a href=qe_regis_byc.asp?idc="&orscourse("qe_course")&"&idq="&qe_id&">"&orscourse("qe_cname")&"</a>]</td>"
	orscourse.movenext
	loop
	end if

%></div>
		  
        </tr>

<%
		sqlall="select distinct id_stu from qe_regis where qe_id='"&qe_id&"' order by id_stu desc"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		if not orsall.eof then
		orsall.movefirst
		a=0

do while not orsall.eof
	a=a+1
	
	bgcolor=a mod 2
	if bgcolor>0 then
		bg1="ffffff"
	else
		bg1="#F2F2F2"
	end if
		response.write "<tr bgcolor='"&bg1&"'><td>"&a&"</td>"
					sqlstu="select * from student where id_stu='"&orsall("id_stu")&"'"
					set orsstu=server.createobject("adodb.recordset")
					orsstu.open sqlstu,conn,1,3
					
					if not orsstu.eof then
						response.write "<td>"&orsstu("id_stu")&"</td><td>[<a href=qe_regis.asp?id_stu="&orsall("id_stu")&">"&orsstu("name_stu")&" "&orsstu("sur_stu")&"</a>]"
					end if
					
					sqlc="select * from qe_regis where qe_id='"&qe_id&"' and id_stu='"&orsall("id_stu")&"' order by qe_course asc"
					set orsc=server.createobject("adodb.recordset")
					orsc.open sqlc,conn,1,3
					if not orsc.eof then
					orsc.movefirst
					do while not orsc.eof
					cid=orsc("qe_course")
					sqlcourse="select * from qe_course where qe_course='"&cid&"'"
					set orscourse=server.createobject("adodb.recordset")
					orscourse.open sqlcourse,conn,1,3
					if not orscourse.eof then
						sqlg="select * from qe_grade where qe_grade='"&orsc("qe_result")&"'"
						set orsg=server.createobject("adodb.recordset")
						orsg.open sqlg,conn,1,3
						if not orsg.eof then
						response.write "<td align=center>"&orsg("qe_qname")
						end if

end if
					orsc.movenext
					loop

end if
		orsall.movenext
		loop
		else
		response.write "<tr><td colspan=4>No Course Select</td></tr>"
		end if
	%>
      </table></div>
	
      </table>

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