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 colspan="3">
	<%if not orsnc.eof then%>
	
<%end if%>
 </td>
  </tr>
  <tr>

<%
'qe_schedule=request("id")
qe_semeter=request("id")
qe_year_edu=request("id2")

sqlall="select * from qe_schedule where qe_semeter='"&qe_semeter&"' and qe_year_edu='"&qe_year_edu&"' "
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		'response.write sqlall
		if not orsall.eof then
		orsall.movefirst
		a=0
		do while not orsall.eof
		a=a+1
		'qe_status=orsall("qe_status")
	
		bg2=a mod 2
		if bg2=0 then
		bg1="#E9E9E9"
		else
		bg1="#FFFFFF"
		end if
		'sqlt="select * from qe_type_test where id_type_test='"&id_type_test&"'"
						'set orst=server.createobject("adodb.recordset")
						'orst.open sqlt,conn,1,3
						'if not orst.eof then
					response.write "<tr bgcolor=#FFFFCC><td colspan=6>�Ҥ���¹��� "&orsall("qe_semeter")&"/"&orsall("qe_year_edu")
					'response.write "  "&orst("type_test")
					response.write " [<a href=qe_result_all.asp?id2="&orsall("qe_schedule")&">�š���ͺ</a>]"
						'end if
						%>
						<tr bgcolor=#FFCCFF align=center>
		
          <td><strong>���駷��</td><td><strong>��ҹ</td>
          
    <td><strong>���Եŧ����¹</td><td><div align=center><strong>�ѹ����ͺ</td><td><strong>ʶҹ�</td><td><strong>Action</td></div>
		  
        </tr>
						<%
		'response.write "<tr bgcolor=#FFFFCC>"
		'response.write "<td colspan=6>"&orsall("qe_schedule")&"/"&orsall("qe_year")&"</td></tr>"

sqlqe="select * from qe where qe_schedule='"&orsall("qe_schedule")&"' order by qe_course, qe_num"
				set orsqe=server.createobject("adodb.recordset")
				orsqe.open sqlqe,conn,1,3
						a=0
						if not orsqe.eof then
							orsqe.movefirst
							do while not orsqe.eof
												a=a+1
												if a mod 2 = 0 then
												bg1="#EBEBEB"
												else
												bg1="#ffffff"
												end if
										sqlqec="select * from qe_course where qe_course='"&orsqe("qe_course")&"'"
										set orsqec=server.createobject("adodb.recordset")
										orsqec.open sqlqec,conn,1,3
										
										if not orsqec.eof then
											 response.write "<tr bgcolor="&bg1&"><td>"&orsqe("qe_num")&"<td>"&orsqec("qe_cname")
										end if

sqlr="select * from qe_regis where  qe_id='"&orsqe("qe_id")&"'"
											set orsr=server.createobject("adodb.recordset")
											orsr.open sqlr,conn,1,3
											b=0
											if not orsr.eof then
												orsr.movefirst
												do while not orsr.eof

b=b+1
												orsr.movenext
												loop
											else
											'response.write "<td>-"
											end if
											response.write "<td align=center>[<a href=qe_regis_all.asp?id="&orsqe("qe_id")&"&id2="&orsqe("qe_schedule")&">"&b&"</a>]"
								response.write "<td>"&orsqe("qe_day")&"-"&orsqe("qe_month")&"-"&orsqe("qe_year")
								id_status=orsqe("qe_status")
								if id_status="1" then
									qe_status="<font color=#006600>���Թ����ͺ</font>"
									else
									qe_status="<font color=#660000>����ͺ�������</font>"
									end if
									
								response.write "<td>"&qe_status
response.write " <td>"
if not orsnc.eof then
									if id_status="1" then
									response.write "[<a href=qe_regis_result_score.asp?id="&orsqe("qe_id")&"&id2="&orsqe("qe_schedule")&">�ѹ�֡��ṹ</a>]"
									response.write "[<a href=qe_regis_result.asp?id="&orsqe("qe_id")&"&id2="&orsqe("qe_schedule")&">�ѹ�֡�š���ͺ</a>]"
									response.write "[<a href=qe_edit_status.asp?id="&orsqe("qe_id")&"&id2=0>Close</a>]"
									response.write "[<a href=qe_edit_form.asp?id="&orsqe("qe_id")&">Edit</a>]"
									else
									response.write "[<a href=qe_edit_status.asp?id="&orsqe("qe_id")&"&id2=1>Open</a>]"
									end if
								
								if b=0 then
									response.write " [<a href=qe_del.asp?id="&orsqe("qe_id")&">Del</a>]"
								end if
end if
							orsqe.movenext
							loop
						else response.write "<td><td colspan=5>Do not have QE test"
						end if

%>

<%
		response.write "</tr>"
		'end if
		orsall.movenext
		loop

else
		response.write "<tr><td colspan=4>No QE test</td></tr>"
		end if
	%>
	
	
      </table></div>
<%	'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
	'end if '���Է�
%>
    </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_schedule.asp