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("idq")
qe_course=request("idc")
%>	��ª��͹��Ե���ŧ����¹�ͺ <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><strong>�����Ԫ� <%
	sqlcourse="select * from qe_course where qe_course='"&qe_course&"'"
	set orscourse=server.createobject("adodb.recordset")
	orscourse.open sqlcourse,conn,1,3
	if not orscourse.eof then
	
	response.write "[<a href=qe_regis_all.asp?qe_id="&qe_id&">"&orscourse("qe_cname")&"</a>]"

end if

%></strong>
      <br> 
	  <FORM name=form1 METHOD=POST ACTION="qe_result.asp">
	  
	  
	  <table border="0" width=70% >
        <tr bgcolor=#FFFFCC>
          <td><strong>�ӴѺ���</td>
          <td><div align=center><strong>����</td>
    <td><strong>����-ʡ��</td><td><strong>�š���ͺ</td><td><strong>Action</td></div>
		  
        </tr>
		
        </tr>

<% 
		sqlall="select * from qe_regis where qe_id='"&qe_id&"' and qe_course='"&qe_course&"' 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
i=0
		do while not orsall.eof
	a=a+1
	i=i+1
		bg2=a mod 2
		if bg2=0 then
		bg1="#E9E9E9"
		else
		bg1="#FFFFFF"
		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
									result=orsall("qe_result")
'	response.write "<td>"&orsall("qe_result")
	'				if result="F" then
	'				ch=""
	'				elseif result="P" then
	'				ch="checked"
	'				end if
					%>

<%
'<td align=center>
qesta=orsq("qe_status")
if qesta="1" then

''�֧��Ҥ�ṹ�͡���ʴ��� option''

%>
<td>   <SELECT NAME="qe_grade" >
			  <%
		   grade=orsall("qe_result")
		  sqlcr="select * from qe_grade"
		  set orscr=server.createobject("adodb.recordset")
		  orscr.open sqlcr,conn,1,3
		  if not orscr.eof then
		  orscr.movefirst
			do while not orscr.eof
			
			%>
			
              <option <%	
			  if orscr("qe_grade")=grade then 
			  %>
		value=<%=grade%><%=orsall("id_regis")%>
		selected
		<%else%> 
		value=<%=orscr("qe_grade")%>	<%=orsall("id_regis")%>
		<%end if%>> 
		<%=orscr("qe_qname")%> <%'=id_type_res%><%'=orsbt("id_type_res")%>	</option>
		<%
			orscr.movenext
			
			loop
		 		  end if
	else 
	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 align=center>"&orsg("qe_qname")
						end if
	'result=orsall("qe_result")
	'response.write "<td>"&orsall("qe_result")
				  end if 'qe_status=1
		  %></SELECT></td><td>
		  <%
' end of�֧��Ҥ�ṹ�͡���ʴ��� option%>
<%if orsq("qe_status")="1" then%>[<a href=qe_del_regis.asp?id=<%=orsall("id_regis")%>&id2=<%=qe_id%>&id3=<%=qe_course%>&id4=<%=2%> onclick="return confirm('�س��ͧ���ź?');">Del</a>]<%end if%>

<%
		orsall.movenext
		loop%>
	<INPUT TYPE="hidden" NAME="a" value=<%=a%>>	
<INPUT TYPE="hidden" NAME="qe_id" value=<%=qe_id%>>	
<INPUT TYPE="hidden" NAME="qe_course" value=<%=qe_course%>>	
<%if orsq("qe_status")="1" then%>
		<tr align=right><td colspan=4><input type="submit" name="Submit" value="Save">
		<%end if%>
				<%
		else
		response.write "<tr align=center><td colspan=4>No Student</td></tr>"

end if
	%>
<%
sqlgr="select * from qe_grade"
set orsgr=server.createobject("adodb.recordset")
orsgr.open sqlgr,conn,1,3

if not orsgr.eof then
orsgr.movefirst

do while not orsgr.eof
coun=0
sqlcountall="select * from qe_regis where qe_id='"&qe_id&"' and qe_result='"&orsgr("qe_grade")&"'"
set orscountall=server.createobject("adodb.recordset")
orscountall.open sqlcountall,conn,1,3

if not orscountall.eof then
			orscountall.movefirst
			
			do while not orscountall.eof 
			coun=coun+1
			
			response.write counl
			orscountall.movenext
			loop
			response.write "<tr><td colspan=5>"&orsgr("qe_qname")&"  �ӹǹ "&coun&" ��"
end if
orsgr.movenext
loop
end if
%>

</table>
	  </FORM></div>
	
      </table>
	  <%if orsq("qe_status")="1" then%>
<br><div align=center><strong>���Ҫ��͹��Ե���ŧ����¹�ͺ QE</strong>
        <form name="form2" method="post" action="qe_regis_byc.asp">
          Keyword
                <input type="text" name="keyword1">
        ���Ҩҡ
        <select name="type_search" id="type_search">
          <option value="1">����</option>
          <option value="2">ʡ��</option>
		  <option value="3">����</option>
        </select> 
		<input name="idc" type="hidden" value=<%=qe_course%>>
		<input name="idq" type="hidden" value=<%=qe_id%>>
        <input name="submit" type="submit" id="submit" value="Go">
        </form>
<%end if 'ʶҹТͧ����ͺ�١�Դ�����%>
</div>
<div align=center><strong>
        <p><%
		search_name=request.form("keyword1")
		type_search=request.form("type_search")
		'response.write orsq("qe_status")
		if type_search<>""  then
%>
<p>�š�ä��ҹ��Ե���ŧ����¹�ͺ QE</p></strong>
<TABLE>
<%
		'idc=request.form("idc")
		'idq=request.form("idq")
		if type_search="2" then
					sqlname="select * from student where sur_stu like '%"&search_name&"%' and id_status_edu=1 "
					'response.write sqlname
					set orsname=server.CreateObject("adodb.recordset")
					orsname.open sqlname,conn,1,3
					
		elseif type_search="1" then
					sqlname="select * from student where name_stu like '%"&search_name&"%' and id_status_edu=1"
					'response.write sqlname
					set orsname=server.CreateObject("adodb.recordset")
					orsname.open sqlname,conn,1,3
		elseif type_search="3" then
					sqlname="select * from student where id_stu like '%"&search_name&"%' and id_status_edu=1"
					'response.write sqlname
					set orsname=server.CreateObject("adodb.recordset")
					orsname.open sqlname,conn,1,3
		end if
		if not orsname.eof then
					%>

<%
orsname.movefirst
do while not orsname.eof 
		
			response.write "<tr>"
			response.write "<td>"
			response.write "[<a href=detail_stu.asp?id_stu="&orsname("id_stu")&">"&orsname("id_stu")&"</a>]"
			response.write "<td>"
			response.write orsname("name_stu")&" "&orsname("sur_stu")
			response.write "<td>"
			'response.write orsname("id_stugroup")
			'�������������´���
			 sql_all="select * from student_group where id_stugroup='"&orsname("id_stugroup")&"' "
		set ors_all=server.createobject("adodb.recordset")
		ors_all.open  sql_all,Conn,1,3
		if not ors_all.eof then
		'response.write ""

sql_curri="select * from curriculum where id_curriculum='"&ors_all("id_curriculum")&"'"
		set ors_curri=server.createobject("adodb.recordset")
		ors_curri.open sql_curri,conn,1,3
		if not ors_curri.eof then
		response.write  ors_curri("curriculum_full")&" "
		end if
sqlt="select * from type_curriculum where id_type_curri='"&ors_all("id_type_curri")&"'"
		   set orst=server.createobject("adodb.recordset")
		   orst.open sqlt,conn,1,3
		   if not orst.eof then
		response.write orst("type_curri_th")
			end if
		response.write  "  ��� "&ors_all("no_stugroup")
		
		end if
		%><td>
<FORM METHOD=POST ACTION="qe_regis_add.asp">
<INPUT TYPE="hidden" NAME="id_stu" value=<%=orsname("id_stu")%>>
		<INPUT TYPE="hidden" NAME="qe_id" value=<%=qe_id%>>
		<INPUT TYPE="hidden" NAME="qe_course" value=<%=qe_course%>>
		<INPUT TYPE="hidden" NAME="checkfw" value=<%=2%>>
				<input name="submit" type="submit" id="submit" value="Regis"></td></tr>
</FORM>
		<%
			orsname.movenext
			loop
		else
					response.write "<tr><td colspan=6>��辺�����ŷ�����<br>"&search_name
					
		end if
		
		response.write "</TABLE>"
		end if 'if search_name=""
		%>
</div>
    </td>
  </tr>
  <tr> 
    <td colspan="3"></td>
  </tr>

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