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">
<table width="100%" border="0" cellspacing="0">
  <tr> 	<%	
	session("tb_name")="lecturer"%>

	<%
id_lecturer=request("id_lecturer")
	if id_lecturer ="" then
	id_lecturer=session("id_lecturer1")
	end if
	sqlall="select * from lecturer where id_lecturer="&id_lecturer&""
		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>
 <% 
 if session("tb_edit")=2 then
%>
<strong>[<a href=add_lec_form.asp>+�����������Ҩ����+</a>][<a href=all_lecturer.asp>�������Ҩ���������</a>]<br>

<%
end if
%>
<br> <strong>�ҹ�Ԩ�·����ѧ���Թ���</strong>

	<table border=0>
	<%
	response.write "<tr><td> <a href=detail_lec.asp?id_lecturer=id_lecturer>"&orsall("name_lec")&" "&orsall("sur_lec")&"</a>"
	%></table></div></td>
	
				<table border=0 cellspacing=0 width="100%">
				<%
				response.write "<tr><td bgcolor=#CCCCFF>"
				'������ʴ��ҹ�Ԩ�·����ѧ���Թ���
response.write  "<table width=100% border=0 cellspacing=0 >"
          %><tr>
            <td><div align="center" >�ӴѺ���</div></td>
            <td><div align="center" width="200">���ͧҹ�Ԩ��</div></td>
            <td><div align="center">ʶҹ��Ҿ</div></td>
            <td><div align="center">�շ�������(����ѭ��)</div></td>
            <td><div align="center">ʶҹ�</div></td>
			<td><div align="center">���觷ع</div></td>
			<%
		  pern=session("username")
		  per="2"
		  tb="research"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
				if not orsnc.eof then
		  %>

<td><div align="center">Action</div></td>
			<%end if%>
          </tr>

<%
		  id_stat_res="5"
		  'sqlall="select * from research where id_status_res<>'"&id_stat_res&"' and id_contact='"&orsin("id_contact")&"' order by y_begin desc"
		  sqlall="select * from research where id_status_res<>'"&id_stat_res&"'  order by y_begin desc"
		  set orsall=server.CreateObject("adodb.recordset")
		  orsall.open sqlall,conn,1,3
		  if not orsall.eof then'
		  	noo=0
		  orsall.movefirst
				do while not orsall.eof	
				
					sqlin="select * from cowork_res where id_lecturer='"&id_lecturer&"' and id_contact='"&orsall("id_contact")&"'"
		  set orsin=server.createobject("adodb.recordset")
		  orsin.open sqlin,conn,1,3
		  if not orsin.eof then' '������鹡�����͡�ѡ�Ԩ�·���ռŧҹ�Ԩ��
					orsin.movefirst
				
					do while not orsin.eof
noo=noo+1
				if noo mod 2 = 0 then
				bg1="#EBEBEB"
				else
				bg1="#ffffff"
				end if
										
											 response.write "<tr bgcolor="&bg1&"><td >"&noo
											 
											 response.write "<td width=200>[<a href=detail_research.asp?id="&orsall("id_contact")&">"&orsall("research_t")&"("&orsall("id_contact")&")</a>]"
											 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")&"'"
																'				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 "<td>"	
																				'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	
																'	  end if'
									  '����ش����ʴ��ѡ�Ԩ��
											 response.write "<td>"
											 
											 response.write orsall("m_begin")&"-"&orsall("y_begin")&"<td>"
											' response.write orsall("id_status_res")
												sqlsa="select * from reportprogress_res where id_contact='"&orsall("id_contact")&"'"
												set orssa=server.CreateObject("adodb.recordset")
												orssa.open sqlsa,conn,1,3
														if not orssa.eof then'
																'response.write orss("status_res_name")
																orssa.movelast
												sqls="select * from status_research where id_status_res='"&orssa("id_status_res")&"'"
												set orss=server.CreateObject("adodb.recordset")
												orss.open sqls,conn,1,3
														if not orss.eof then'
																response.write orss("status_res_name")
														end if'
														end if'
														response.write "<td>"
															id_capital_res=orsall("id_capital_res")
																sqlcap="select * from capital_res where id_capital_res='"&id_capital_res&"'"
																set orscap=server.createobject("adodb.recordset")
																orscap.open sqlcap,conn,1,3
																if not orscap.eof then
																			response.write orscap("capital_res_name")
																else
																			response.write "-"
																end if
														if not orsnc.eof then'
											 response.write "<td>[<a href=edit_research_form.asp?id="&orsall("id_contact")&">Edit</a>]"
											 %>
											 [<a href=del_research.asp?id=<%=orsall("id_contact")%> onClick="return confirm('�س��ͧ���ź?');">Del</a>]
											 
													<%	end if'
														
															orsin.movenext
															loop
									end if '���͡�ҹ�Ԩ�¢ͧ���Ф�
					  orsall.movenext
					  loop
		  else
		  response.write "<tr><td colspan =6 align=center>����բ�����"
		  end if'
		  end if
		  'end if
		  
		  %>
        </table>
<%

''''''''''''''''''
				response.write "</table>"

'end if
	%>

</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: inpro_res_lec.asp