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>
<%
id_stu=request.form("id_stu")		
qe_id=request.form("qe_id")
if id_stu="" and qe_id="" then
id_stu=request("id_stu")		
qe_id=request("qe_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 "<a href=qe_regis.asp?id_stu="&id_stu&">"&orss("name_stu")&"  "&orss("sur_stu")&"</a>"
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

sqlqs="select * from qe_schedule where qe_schedule='"&orsq("qe_schedule")&"'"
					set orsqs=server.createobject("adodb.recordset")
					orsqs.open sqlqs,conn,1,3
					if not orsqs.eof then
				
						sqlt="select * from qe_type_test where id_type_test='"&orsqs("id_type_test")&"'"
						set orst=server.createobject("adodb.recordset")
						orst.open sqlt,conn,1,3
						if not orst.eof then
					response.write "�ա���֡��"&orsqs("qe_semeter")&"/"&orsqs("qe_year")
					response.write "����������ͺ "&orst("type_test")
					end if

response.write " �ѹ����ͺ "&orsq("qe_day")&"/"&orsq("qe_month")&"/"&orsq("qe_year")
		end if
	  else 
	  response.write "Id Student "&id_stu&" Not match"
	  end if
	  %><br>
      <br> <table border="0" width=80% >
        <tr bgcolor=#FFFFCC>
          <td><strong>���ʡ���ͺ</td>
          <td><div align=center><strong>�Ԫҷ���ͺ</td>
    <td align=center><strong>�ѹ����ͺ</td><td align=center><strong>�ѹ�����Ѥ�</td><td><strong>�š���ͺ</td><td><strong>Action</td></div>
		  
        </tr>
		
        </tr>

<%
		sqlall="select * from qe_regis where id_stu='"&id_stu&"' and qe_id='"&qe_id&"' order by qe_id desc"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		if not orsall.eof then
		orsall.movefirst
		do while not orsall.eof
		
			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
				coursen=orsc("qe_cname")
				end if
		response.write "<tr><td align=center>"&orsall("qe_id")&"</td><td>"&coursen&"</td><td>"&orsq("qe_day")&"-"&orsq("qe_month")&"-"&orsq("qe_year")&"    </td><td>"&orsall("qe_date")&"</td><td align=center>"&orsall("qe_result")&"</td>"
		%><td>[<a href=qe_del_regis.asp?id=<%=orsall("id_regis")%>&ids=<%=orsall("id_stu")%> onclick="return confirm('�س��ͧ���ź?');">Del</a>]

<%
		response.write "</tr>"
		'end if
		orsall.movenext
		loop
		else
		response.write "<tr><td colspan=4>No Course Select</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 align=center><td>
<FORM METHOD="POST" ACTION="qe_regis_add.asp">
		<SELECT NAME="qe_course">

<%
		sqlall="select * from qe_course"
		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
	qe_course=orsall("qe_course")
				sqlcheck="select * from qe_regis where id_stu='"&id_stu&"' and qe_id='"&qe_id&"' and qe_course='"&qe_course&"' "
					set orscheck =server.createobject("adodb.recordset")
					orscheck.open sqlcheck,conn,1,3
					'response.write sqlcheck
						if  orscheck.eof then
								sqlcp="select * from qe_regis where id_stu='"&id_stu&"' and qe_course='"&qe_course&"' and qe_result='P'"
								set orscp=server.createobject("adodb.recordset")
								orscp.open sqlcp,conn,1,3
									if  orscp.eof then
'	qe_course=orscheck("qe_course")

%>
		<option value=<%=orsall("qe_course")%>><%=orsall("qe_cname")%>
		</option>

<% 
		end if 'orscp ������ʴ�����Ԫҷ���ͺ��ҹ����
		else
		a=a+1
		end if
		'response.write "</tr>"
		'end if
		orsall.movenext
		loop
		
		end if%>

if a=3 then
%>
	<option>All Courses are selected </option>
	</select></form>
	<%
	else
%>

</SELECT>
		<INPUT TYPE="hidden" NAME="id_stu" value=<%=id_stu%>>
		<INPUT TYPE="hidden" NAME="qe_id" value=<%=qe_id%>>

<input type="submit" name="Submit" value="Regis">
		<%
'response.write "aaaaa= "&a

end if
	%>
		
		</FORM>
<%%>
			
		
      </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_form.asp.bak