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

%>
<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_id=request("id")
if qe_id = "" then
qe_id=request.form("qe_id")
end if

qe_schedule=request("id2")
if qe_schedule="" then
qe_schedule=request.form("qe_schedule")
end if

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
		%>	��ª��͹��Ե���ŧ����¹�ͺ[<a href=qe_schedule.asp?id=<%=orsq("qe_semeter")%>&id2=<%=orsq("qe_year_edu")%>>QE</a>]
<%
				sqlcourse="select * from qe where qe_id='"&qe_id&"'"

set orscourse=server.createobject("adodb.recordset")
				orscourse.open sqlcourse,conn,1,3
				if not orscourse.eof then
				'response.write orscourse("qe_status")
						
						'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 "<br><b>����ͺ���駷�� </b>"&orsq("qe_semeter")&"/"&orsq("qe_year_edu")& "<b> �ѹ����ͺ </b>"&orscourse("qe_day")&"/"&orscourse("qe_month")&"/"&orscourse("qe_year")
					'response.write " <B>����������ͺ </B>"&orst("type_test")
						'end if						
					sqlc1="select * from qe_course where qe_course='"&orscourse("qe_course")&"'"
					set orsc1=server.createobject("adodb.recordset")
					orsc1.open sqlc1,conn,1,3
					if not orsc1.eof then
							response.write "<b> ��ҹ</b> "&orsc1("qe_cname")
						end if
						response.write "<br>��ṹ��� "&orscourse("qe_score")
				end if
		end if
	  %><br>
      <br> 
	   
	  <table border="0" width=100% >
        <tr bgcolor=#FFFFCC>
          <td><strong>�ӴѺ���</td>
          <td><div align=center><strong>����</td>
    <td align=center><strong>����-ʡ��</td><td align=center><strong>��ṹ</td><td align=center><strong>�š���ͺ</td><%

%></div>
		  
        </tr>

<%
		sqlall="select * from qe_regis where qe_id='"&qe_id&"' order by id_stu asc"
		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
	'response.write sqlall
	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>]"
						
	'������֧�ô
	%>					
						
						<%
						sqlc2="select * from qe where qe_id='"&qe_id&"'"
					set orsc2=server.createobject("adodb.recordset")
					orsc2.open sqlc2,conn,1,3
					if not orsc2.eof then
							id_status=orsc2("qe_status")
							'response.write orsc2("qe_score")
					end if
					
			if id_status="1" then
			
'��Ǩ�ͺ���ʶҹС��͹حҵ���ô
						%> <FORM name="form1" METHOD="POST" ACTION="qe_result_score.asp"><td>
						
						<input name="qe_score" type="text" id="qe_score" onKeyPress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' size="5" maxlength="5" value=<%=orsall("qe_score")%>>
						<INPUT TYPE="hidden" NAME="id_regis" value=<%=orsall("id_regis")%>>	
						<INPUT TYPE="hidden" NAME="qe_id" value=<%=qe_id%>>	
		<INPUT TYPE="hidden" NAME="qe_schedule" value=<%=qe_schedule%>>	
		<input type="submit" name="Submit" value=">>">
		
</td></form>
						
						<td>
						
						<%
'����ô֧�ô
'else
'�������Ԫҹ��Դ������ô
			'response.write sqlg&"aa"
						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
								if orsall("qe_result")="2" then
								 fc="#CC0033"
								 elseif orsall("qe_result")="3" then
								 fc="#CC66FF"
								 elseif orsall("qe_result")="4" then
								 fc="#990000"
								 else fc="#66FF00"
								 end if
						response.write "<font color="&fc&">"&orsg("qe_qname")&"</font>"
						
						  end if
	end if '������Ԫҹ��Դ������ô
					end if
			response.write "<td>"

</tr>

<%
			'end if
			response.write "</td>"

orsall.movenext
		loop
		if id_status="1" then
		
		%>
		
		<%
	
		end if
		else
		response.write "<tr><td colspan=4>No Course Select</td></tr>"
		end if
		
		'������ª��͹��Ե
		%></table><br>
		</div>

</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_result_score.asp