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">
      <div align="center">
        <p>�š�ä��ҧҹ�Ԩ��</p>
		<%
		status_res=request.form("status_res")
		y_res=request.form("y_res")
		%>
        <p>
			 <br>
       
		
		<p>
		  <%
		  id_stat_res="5"
		select case status_res
		case 1
		
					response.write "�ҹ�Ԩ�·����Թ������� �� "&y_res
					'sqls="select * from research where ytime_end='"&y_res&"'"
					'set orss=server.createobject("adodb.recordset")
					'orss.open sqls,conn,1,3
						'if not orss.eof then
								%>
		  <br>
		</p>
		<table width="100%" border="1" cellspacing="0" cellpadding="0">
          <tr>
            <td ><div align="center">�ӴѺ���</div></td>
            <td ><div align="center">���ͧҹ�Ԩ��</div></td>
            <td ><div align="center">�ѡ�Ԩ��</div></td>
			<td ><div align="center">�ѹ��͹�շ�������</div></td>
          </tr>
		  <%
		  'orss.movefirst

'*********************************************************
																  
																	  sqlall21="select COUNT(*) AS IntTotal from research where id_status_res='"&id_stat_res&"' and ytime_end='"&y_res&"'"
																		
sqlall="select * from research where id_status_res='"&id_stat_res&"' and ytime_end='"&y_res&"' order by id_research desc "
set orsall21=server.CreateObject("adodb.recordset")
		 orsall21.open sqlall21,conn,1,3
		  if not orsall21.eof then
response.write " �ӹǹ " &orsall21("IntTotal")&" ����ͧ"
		end if
												  set orsall=server.CreateObject("adodb.recordset")
												  orsall.open sqlall,conn,1,3
												  if not orsall.eof then
												  		  		  
												  noo=1
												  orsall.movefirst
														do while not orsall.eof
														
															 response.write "<tr><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>"	
	  s_value=orsall1("source_c")
				if s_value="1" then
			  			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")
							end if
				elseif s_value="2" then
								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
				else 
								sqls="select * from staff where id_staff='"&orsall1("id_lecturer")&"'"
								set orss=server.CreateObject("adodb.recordset")
								orss.open sqls,conn,1,3
									if not orss.eof then
										response.Write orss("name_st")&" "&orss("sur_st")
									end if
				end if
											  'response.Write orsall1("id_lecturer")
											  response.Write "-"	
														sqlp="select * from position_res where id_position_res='"&orsall1("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("dtime_end")&"-"&orsall("mtime_end")&"-"&orsall("ytime_end")	
																noo=cint(noo)+1	
														orsall.movenext
														loop
				
		  'end if
		  
'orschk.movenext
				'loop
		  'else
		  'response.write "<tr><td colspan =6 align=center>����բ�����"
		  'end if
		  
		  '*************************************************************
		  %>
		  </td>
		  </tr>
        </table>
		<p>
		  
		  
		  <%
						else
						response.write "No Result </table>"
						end if
		case 2
					response.write "�ҹ�Ԩ�·����ѧ���Թ��� ��� �է�����ҳ "&y_res&" ������Ѻ͹��ѵ�"
					
					sqlall1="select COUNT(*) AS IntTotal from research where id_status_res<>'"&id_stat_res&"' and y_capital='"&y_res&"' "
					set orsall1=server.CreateObject("adodb.recordset")
					orsall1.open sqlall1,conn,1,3
					if not orsall1.eof then
							response.write " �ӹǹ " &orsall1("IntTotal")&" ����ͧ"
							%>
					<table width="100%" border="1" cellspacing="0" cellpadding="0">
          <tr>
            <td ><div align="center">�ӴѺ���</div></td>
            <td ><div align="center">���ͧҹ�Ԩ��</div></td>
            <td ><div align="center">�ѡ�Ԩ��</div></td>
			<td ><div align="center">�ѹ��͹�շ����������Թ���</div></td>
          </tr>
		  <%
					sqlall="select * from research where id_status_res<>'"&id_stat_res&"' and y_capital='"&y_res&"' "
					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
				noo=noo+1
					 response.write "<tr><td div align=center>"&noo
					 
					 response.write "<td width=250>[<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>"	
	  s_value=orsall1("source_c")
				if s_value="1" then
			  			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")
							end if
				elseif s_value="2" then
								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
				else 
								sqls="select * from staff where id_staff='"&orsall1("id_lecturer")&"'"
								set orss=server.CreateObject("adodb.recordset")
								orss.open sqls,conn,1,3
									if not orss.eof then
										response.Write orss("name_st")&" "&orss("sur_st")
									end if
				end if											 ' response.Write orsall1("id_lecturer")
											  response.Write "==>"	
														sqlp="select * from position_res where id_position_res='"&orsall1("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("d_begin")&"-"&orsall("m_begin")&"-"&orsall("y_begin")&"<td>"
				'	 response.write orsall("id_status_res")

orsall.movenext
				loop
				end if
		  response.write "</table>"
					
					else
					response.write "No Result </table>"
					end if

case 3
				response.write "3"
		case 4
				response.write "4"
		case else
				response.write "5"
		end select
		%>
		  
	      </p>
      </div>
    </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: search_status_res.asp