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">

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="1">
  <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">SWU</a> | <a href="http://bsri.swu.ac.th">BSRI</a> 
        |<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    
    <td width="77%" align="left" valign="top">
<table width="100%" border="0" cellspacing="0">
  <tr> 	
	<%
id=request("id")
		sqlall="select * from lecturer where id_lecturer="&id&""
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		if not orsall.eof then

'if session("tb_preview") <> 1 or session("id_lecturer1") = orsall("id_lecturer") then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
 %>
 <td width="892" align="left" valign="top" ><div align="center"><font size=2>

<br>

<table border=0>
	<%
	response.write "<tr><td>"&orsall("name_lec")&" "&orsall("sur_lec")
	%>

</table></div></td>
				<table border=0 cellspacing=0 width="100%">
				
<%
				'������ʴ��ҹ�Ԩ�·����ѧ���Թ��
				response.write "<tr><td bgcolor=#FFFFCC><div align=center><strong>�ҹ�Ԩ�·����Թ����������"%>
				<table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC"  >
          <tr>
            <td><div align="center">�ӴѺ���</div></td>
            <td><div align="center" width="20%">���ͧҹ�Ԩ��</div></td>
            <td><div align="center">ʶҹ�Ҿ㹡�÷��Ԩ��</div></td>
            <td><div align="center">�շ������</div></td>
            <td><div align="center">Download</div></td>
					
          </tr>

<%
		   sqlin="select * from cowork_res where id_lecturer='"&id&"'"
		  set orsin=server.createobject("adodb.recordset")
		  orsin.open sqlin,conn,1,3
		  if not orsin.eof then' '������鹡�����͡�ѡ�Ԩ�·���ռŧҹ�Ԩ��
					orsin.movefirst
					noo=1
					do while not orsin.eof
		  id_stat_res="5"

sqlall="select * from research where id_status_res='"&id_stat_res&"' and id_contact='"&orsin("id_contact")&"'"
												  set orsall=server.CreateObject("adodb.recordset")
												  orsall.open sqlall,conn,1,3
												  if not orsall.eof then
												  
												  orsall.movelast
														do while not orsall.eof
														
															 response.write "<tr><td>"&noo
															 
															 response.write "<td>"&orsall("research_t")&"["&orsall("id_research")&"]</td>"
															 response.write "<td>"
															  '���������ʴ��ѡ�Ԩ��
															 ' id=orsall("id_contact")
													' sqlall1="select * from cowork_res where id_contact='"&id&"' order by id_level"
										'	set orsall1=server.CreateObject("adodb.recordset")
										'	orsall1.open sqlall1,conn,1,3
											'		if not orsall1.eof then
													
											'  orsall1.movefirst
											'	do while not orsall1.eof
											'  response.write orsall1("id_level")&"."
											  'response.Write "<td>"	
														'sqlch="select * from lecturer where id_lecturer='"&orsall1("id_lecturer")&"'"
														sqlch="select * from lecturer where id_lecturer='"&orsin("id_lecturer")&"'"
														set orsch=server.CreateObject("adodb.recordset")
														orsch.open sqlch,conn,1,3
															if not orsch.eof then
																'	response.Write orsch("name_lec")&" "&orsch("sur_lec")

else
																sqlch2="select * from other_lec where id_other_lec='"&orsall1("id_lecturer")&"'"
																set orsch2=server.CreateObject("adodb.recordset")
																orsch2.open sqlch2,conn,1,3
																	if not orsch2.eof then
																		'response.Write orsch2("firstname")&" "&orsch2("lastname")
																	end if
															end if
											 ' response.Write orsall1("id_lecturer")
											'  response.Write "=>"	
														'sqlp="select * from position_res where id_position_res='"&orsall1("id_position_res")&"'"
														sqlp="select * from position_res where id_position_res='"&orsin("id_position_res")&"'"
														set orsp=server.CreateObject("adodb.recordset")
														orsp.open sqlp,conn,1,3
															if not orsp.eof then
																	response.write orsp("position_res")
															end if
											 ' response.Write orsall1("id_position_res")
											  'response.Write "<td>"
											  response.Write "<br>"
											' orsall1.movenext
										'	  loop	
										'	  else
										'	  response.write "-"
										'	  end if
			  '����ش����ʴ��ѡ�Ԩ��
															 response.write "<td>"
															 
															 response.write orsall("ytime_end")
															 response.write "<td>"
															 sqlat="select * from attachment_res where id_contact='"&orsall("id_contact")&"'"
																												set orsat=server.CreateObject("adodb.recordset")
																												orsat.open sqlat,conn,1,3
																												if not orsat.eof then
																															orsat.movefirst
																																
																																do while not orsat.eof
														response.Write " [<a href=hitc_research.asp?id="&orsat("id_attach")&">"&orsat("file_name")&"</a>]��:"&orsat("hitc")
														response.write "<br>"
																																
																																
																															orsat.movenext
																															loop
																												
																												else
																												response.write "-"
																												end if
															
															noo=noo+1		
														orsall.moveprevious
														loop
				
											  end if
									'orschk.movenext
													'loop
													'end if ''���͡�ҹ�Ԩ�¢ͧ���Ф�
													
					  orsin.movenext
					  loop

else
		  response.write "<tr><td colspan =6 align=center>����բ�����"
		  end if
		  end if
		  
		  %>
		  </table>
        </table>

</td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: finish_res_lec_pub.asp.bak