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

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

<tr>

<td width="892" align="left" valign="top"><div align="center"><font size=2><strong>
<%
id_stu=request("id_stu")		
if id_stu="" then
id_stu=request("id")
end if
sqls="select * from student where id_stu='"&id_stu&"'"
set orss=server.createobject("adodb.recordset")
		orss.open sqls,conn,1,3
		if not orss.eof then

%>	
      �����š���ͺ <a href=qe_index.asp>QE</a> �ͧ </strong><%
	  response.write orss("name_stu")&"  "&orss("sur_stu")
	  else 
	  response.write "Id Student "&id_stu&" Not match"
	  end if
	  %><br>
      <br> <table border="0" width=90% >
        <tr bgcolor=#FFFFCC>
         <td><strong>���駷���ͺ</td> <td><strong>�ա���֡��</td>   <td><div align=center><strong>��ҹ</td><td><strong>���駷���ͺ�������</td>
          
    <td><strong>�ѹ����ͺ</td><td><strong>�š���ͺ</td><td><strong>Action</td></div>
		  
        </tr>
		  
        </tr>

<%
		sqlall="select * from qe_regis where id_stu='"&id_stu&"' "
		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
		if a mod 2 = 0 then
		bg1="#EEEEEE"
		else
		bg1="#FFFFFF"
		end if
				sqlq="select * from qe where qe_id='"&orsall("qe_id")&"'"
				set orsq=server.createobject("adodb.recordset")
				orsq.open sqlq,conn,1,3
					if not orsq.eof then
					qe_day=orsq("qe_day")
					qe_month=orsq("qe_month")
					qe_year=orsq("qe_year")
					qe_num=orsq("qe_num")
									sqlc="select * from qe_course where qe_course='"&orsq("qe_course")&"'"
									set orsc=server.createobject("adodb.recordset")
									orsc.open sqlc,conn,1,3
										if not orsc.eof then
										coursen=orsc("qe_cname")
										end if
				end if
				sqlq="select * from qe_schedule where qe_schedule='"&orsq("qe_schedule")&"'"
			set orsq=server.createobject("adodb.recordset")
			orsq.open sqlq,conn,1,3
			if not orsq.eof then
				
						'sqlt="select * from qe_type_test where id_type_test='"&orsq("id_type_test")&"'"
						'set orst=server.createobject("adodb.recordset")
						'orst.open sqlt,conn,1,3
						'if not orst.eof then
					response.write "<tr bgcolor="&bg1&" align=center><td>"&a&"<td>"&orsq("qe_semeter")&"/"&orsq("qe_year_edu")
					'response.write "<td>"&orsall("qe_id")

'end if

end if

'response.write "<td align=center>[<a href=qe_detail.asp?id="&orsall("qe_id")&">"&orsall("qe_id")&"</a>]</td><td>"&coursen&"</td><td>"&qe_day&"-"&qe_month&"-"&qe_year&" </td><td>"&orsall("qe_date")&"</td>"
		response.write "<td >"&coursen&"</td><td>"&qe_num&"</td><td>"&qe_day&"-"&qe_month&"-"&qe_year&" </td>"'<td>"&orsall("qe_date")&"</td>"
sqlg="select * from qe_grade where qe_grade='"&orsall("qe_result")&"'"
						set orsg=server.createobject("adodb.recordset")
						orsg.open sqlg,conn,1,3
						if not orsg.eof then
		response.write "<td>"&orsg("qe_qname")&"</td>"
						end if
		
		
		if not orsnc.eof then%><td>[<a href=qe_del_regis.asp?id=<%=orsall("id_regis")%>&id2=<%=id_stu%> onclick="return confirm('�س��ͧ���ź?');">Del</a>]

<%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>
<br><br>
<strong>
	<%
	id_status=orss("id_status_edu")
	if id_status="1" then
	%>
    <div align=center> ����ͺ QE �����ѧ�Դ�ͺ����ѧ�ͺ����ҹ</div><table border="0" align=center width=80%>
        <tr bgcolor=#CC99FF align=center>
          <td><strong>��ҹ</td><td><strong>�ա���֡��</td>
          <td><div align=center><strong>�ѹ����ͺ</td>
    <td><strong>ʶҹ�</td><td><strong>Action</td></div>
		  
        </tr>

<%

sqlall="select * from qe where qe_status= 1 and qe_num=1 order by qe_date desc "
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		i=0
		if not orsall.eof then
		orsall.movefirst
		do while not orsall.eof
		
		qe_status=orsall("qe_status")
		if qe_status="1" then
		qe_status="���ѧ���Թ����ͺ"
		else
		qe_status="����ͺ�������"
		end if
		' �ʴ�੾������Ԫҷ���ѧ�ͺ����ҹ
		sqlch="select * from qe_regis where id_stu ='"&id_stu&"' and qe_id='"&orsall("qe_id")&"' "
		set orsch=server.createobject("adodb.recordset")
		orsch.open sqlch,conn,1,3
		if  orsch.eof then
		i=i+1
		if i mod 2 = 0 then
		bg1="#EFEFEF"
		else
		bg1="#FFFFFF"
		end if		
		sqlc="select * from qe_course where qe_course='"&orsall("qe_course")&"'"
		set orsc=server.createobject("adodb.recordset")
		orsc.open sqlc,conn,1,3
		 if not orsc.eof then
				response.write "<tr bgcolor="&bg1&"><td>"&orsc("qe_cname")
		 end if
			sqlq="select * from qe_schedule where qe_schedule='"&orsall("qe_schedule")&"'"
			set orsq=server.createobject("adodb.recordset")
			orsq.open sqlq,conn,1,3
			if not orsq.eof then
				
						'sqlt="select * from qe_type_test where id_type_test='"&orsq("id_type_test")&"'"
						'set orst=server.createobject("adodb.recordset")
						'orst.open sqlt,conn,1,3
						'if not orst.eof then
					response.write "<td>"&orsq("qe_semeter")&"/"&orsq("qe_year_edu")& "<td> "&orsall("qe_day")&"/"&orsall("qe_month")&"/"&orsall("qe_year")
					'response.write "<td>"&orst("type_test")&
					response.write "<td>"&qe_status&""

'end if

end if
		'response.write "<tr><td>[<a href=qe_detail.asp?id="&orsall("qe_id")&">"&orsall("qe_id")&"</a>]</td><td>"&orsall("qe_semeter")&"/"&orsall("qe_year")&"</td><td>"&orsall("qe_day")&"-"&orsall("qe_month")&"-"&orsall("qe_year")&"    </td><td>"&qe_status&"</td><td>"
	if not orsnc.eof then	%>
		<FORM METHOD="POST" ACTION="qe_regis_add.asp">
		<INPUT TYPE="hidden" NAME="id_stu" value=<%=id_stu%>>
		<INPUT TYPE="hidden" NAME="qe_id" value=<%=orsall("qe_id")%>>
		<td><input type="submit" name="Submit" value="ŧ����¹"></td>
		</FORM>
		<%end if%>
</tr>
			
			<%
		response.write "</tr>"
		'else 'response.write "<tr><td colspan=6>�ͺ��ҹ���Ǩ��"
		end if
		'response.write ""
		orsall.movenext
		loop
		else
		response.write "<tr><td colspan=4>No QE test</td></tr>"
		end if
	%>
      </table>
<%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_regis.asp.bak