File Manager

<%response.cachecontrol="private"%>
<!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">
      <table width="100%"  border="0" cellspacing="0" bordercolor="#FFFFCC" >

<%'id_stu=request("id_stu")
	id_s=request("ids")
	id=request("id")
id_thesis=request("id_thesis")
	%>

<tr><td colspan=2><a href=edit_thesis_stu_form.asp?id_stu=<%=id_s%>> ��ԭ�ҹԾ�������� </a>><a href=reserve_room_test_form.asp?id_stu=<%=id_s%>&id_thesis=<%=id_thesis%>> ����ͧ��ͧ�ͺ</a>>

<tr><td colspan=2><strong>
            <div align="center">
          
            <%
'*****************************************************************

sql="select * from thesis_test where id='"&id&"'"
	set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
				if not ors.eof then
							id_type_test=ors("id_type_test")
									sql1="select * from type_test_thesis where id_type_test='"&id_type_test&"'"
									set ors1=server.createobject("adodb.recordset")
									ors1.open sql1,conn,1,3
												if not ors1.eof then
														type_test=ors1("test_name")
														response.write "�ѹ�֡��С�������ͺ"&type_test&"<br>"
												end if
				response.write "<br><div align=left>Ǵ� "&ors("date1")&"/"&ors("month1")&"/"&ors("year1")
				id_room=ors("id_room")
						sqlro="select * from room where id_room='"&id_room&"'"
						set orsro=server.createobject("adodb.recordset")
						orsro.open sqlro,conn,1,3
							if not orsro.eof then
							response.write "<br><div align=left>��ͧ�ͺ   "&orsro("room")
							end if
				id_time=ors("id_time")
						sqlti="select * from time_test where id_time='"&id_time&"'"
						set orsti=server.createobject("adodb.recordset")
						orsti.open sqlti,conn,1,3
							if not orsti.eof then
							response.write "   ����    "&orsti("time_name")
							end if
				end if
				%>

<br>
			  <tr><td colspan=2>
<%

'if id_stu="" then
id_s=request("ids")
if id_s="" then
id_s=session("ids")
end if
'end if
session("ids")=id_stu
id_thesis=request("id_thesis")
sqls="select * from student where id_stu='"&id_s&"'"
	set orss=server.createobject("adodb.recordset")
	orss.open sqls,conn,1,3
'	response.write sqls
				if not orss.eof then
				'response.write "<a href=reserve_room_test_form.asp?id_thesis="&id_thesis&"&id_stu="&id_s&">"&orss("id_stu")&"</a> "
					response.write orss("id_stu")&" <a href=reserve_room_test_form.asp?id_thesis="&id_thesis&"&id_stu="&id_s&"><strong>"&orss("name_stu")&" "&orss("sur_stu")&"</strong> </a> "

set ors4=server.createobject("adodb.recordset")
									 sql4="select * from student_group where id_stugroup='"&orss("id_stugroup")&"'"
									 ors4.open sql4,Conn,1,3
									 if not ors4.eof then

sqlc="select * from curriculum where id_curriculum='"&ors4("id_curriculum")&"'"
									set orsc=server.createobject("adodb.recordset")
									orsc.open sqlc,conn,1,3
									if not orsc.eof then
										   sqlt="select * from type_curriculum where id_type_curri='"&ors4("id_type_curri")&"'"
										   set orst=server.createobject("adodb.recordset")
										   orst.open sqlt,conn,1,3
										   if not orst.eof then
										   'response.write ors4("id_stugroup")
									%>

<%  =orsc("curriculum_sum")%>Ẻ  <%=orst("type_curri_th")%> ��� <%=ors4("no_stugroup")%>
										<%
										end if
								end if
								end if

end if

%>
<tr><td colspan=2>
<%
'id_thesis=request("id_thesis")
'response.write "���ʷի��[<a href=reserve_room_test_form.asp?id_thesis="&id_thesis&"&id_stu=&"&id_stu&">"&id_stu&"</a>]"
%>
<form action="add_committee_thesis_stuadd.asp" method="post">
                      <table width="100%" border="0" cellspacing="0" bordercolor="#FFCCFF">
                        <tr> 
                          <td colspan="2"><table  border="0">
                         
 <%
 '��������ͺ   ੾�����˹�ҷ�����ͧ�����-->
 if id_stu=session("id_stu1") then%>
<tr> 
                                <td colspan="4" bgcolor="#e0a8fd"><div align="left"><strong>��С�������ͺ<%=type_test%></div></td>
                              </tr>
                                  <tr> 
							    <td ><div align="center"><strong></strong>�ӴѺ���</div></td>
                                <td ><div align="center"><strong></strong>���˹�</div></td>
                                <td ><div align="left"><strong>����-ʡ��(����)</strong></div></td>
								<td ><div align="left"><strong>����-ʡ��(��¹͡)</strong></div></td>
                              </tr>
                              <tr> 
							  <%
							  sqla="select * from committee_thesis where id_thesis='"&id_thesis&"' and id='"&id&"' order by id_num"
							  set orsa=server.createobject("adodb.recordset")
							  orsa.open sqla,conn,1,3
									  if not orsa.eof then
									  orsa.movefirst
										
									  do while not orsa.eof
									  response.write "<tr><td>"&orsa("id_num")
									  sqlp="select * from position_thesis where id_position_thesis='"&orsa("id_position_thesis")&"'"
									  set orsp=server.createobject("adodb.recordset")
									  orsp.open sqlp,conn,1,3
															  
													if not orsp.eof then
													 response.write "<td>"&orsp("position_thesis")
													end if
	sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
		set orsl=server.createobject("adodb.recordset")
			orsl.open sqll,conn,1,3
			if not orsl.eof then
			response.write "<td>"&orsl("name_lec")&"  "&orsl("sur_lec")
					if id_stu=session("id_stu1") then
%>
			[<a href=del_committee_thesis.asp?id_lecturer=<%=orsa("id_lecturer")&"&id_thesis="&id_thesis&"&id_stu="&id_stu&"&id="&id&"&idn="&orsa("id_num")%> 
			onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
																				
			<%end if
				end if
				response.write "<td >"&orsa("oral_out")
				idn=orsa("id_num")
				orsa.movenext
				loop
				else
				response.write "<tr><td colspan=4>No Committee</tr>"
				 idn=0
									  end if
							  end if '�ͧ������੾�����˹�ҷ���
'							  response.write "<tr><td>a<td>a"
' ����Ѻ���Ե/�ͧ��ͧ�ͺ����ç/�ҡ����

'����Ѻ���Ե
							  %>

<tr><td colspan=4><%'if not orsnc.eof then%><form action="add_committee_thesis.asp" method="post"><table width="100%" border="0">
  <tr>
    <td width="11%" colspan=4>
	<%
	if idn=0 then
	idn=1
	else idn=idn+1 end if
	
	%>
	<INPUT TYPE="text" size= "1" NAME="id_num" value=<%=idn%> readonly>��������ӴѺ���
	<select name="id_position_thesisc">
	<% sqlpo="select * from position_thesis"
			set orspo=server.createobject("adodb.recordset")
			orspo.open sqlpo,conn,1,3
			if not orspo.eof then
			orspo.movefirst
			do while not orspo.eof
               response.write "<option value="&orspo("id_position_thesis")&">"&orspo("position_thesis")&"</option>"
				orspo.movenext
				loop
			end if
	%>
                                    </select>
    <select name="id_lecturerc">
	<%
	sqlle="select * from lecturer where statusdel=1 order by name_lec"
			set orsle=server.createobject("adodb.recordset")
			orsle.open sqlle,conn,1,3
			if not orsle.eof then
			orsle.movefirst
			do while not orsle.eof
    response.write "<option value="&orsle("id_lecturer")&">"&orsle("name_lec")&"  "&orsle("sur_lec")&"</option>"
									  orsle.movenext
									  loop
			end if
	%>
	
	</select>
  <INPUT TYPE="text" NAME="oral_out" value="-" onFocus="clearText(this)">
  <input type="hidden" name="id" value=<%=id%>>
  <input type="hidden" name="id_stuc" value=<%=id_stu%>>
    <input type="hidden" name="id_thesisc" value=<%=id_thesis%>>
	<input type="hidden" name="idsc" value=<%=ids%>>
  <input type="submit" name="Submit" value="Add"></td></tr>

</table>
</form><%response.write "[<a href=print_thesis_test.asp?id="&id&" target=_blank>Print</a>]"%><%'response.write id&"end if"%>
</td></tr>

</tr>
                            </table></td>
                        </tr>
                      </table>

<%
			  
			  'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է�
	'end if '���Է�

%>
            </div></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: add_committee_thesis_form.asp