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> <br><br><strong>�������Ҩ����</strong><br><br>
[<a href=detail_lec.asp?id_lecturer=<%=id_lecturer%>>˹���á <%=id_lecturer%></a>] <br><br>
	<table border=0>
	<%
	response.write "<tr><td>"&id_lecturer&" "&orsall("name_lec")&" "&orsall("sur_lec")
	%>
		<%
				'''''''''''''''''''''''
				response.write "<tr><td ><div align=center><strong>�ҹ�Ԩ�·�����Ѻ�ҧ���</strong>"
'''''''''''''''''''''''%>
				<table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC">
              <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>
																	<td><div align="center">��������´���</div></td>
																	
																	
																	
              </tr>
			  <%		   sqlin="select * from cowork_res where id_lecturer='"&id_lecturer&"'"
		  set orsin=server.createobject("adodb.recordset")
		  orsin.open sqlin,conn,1,3
		  if not orsin.eof then' '������鹡�����͡�ѡ�Ԩ�·���ռŧҹ�Ԩ��
					orsin.movefirst
					do while not orsin.eof

sqlch2="select * from getreward where id_contact='"&orsin("id_contact")&"'"
																	set orsch2=server.CreateObject("adodb.recordset")
																	orsch2.open sqlch2,conn,1,3
																		if not orsch2.eof then
																		orsch2.movefirst
																		do while not orsch2.eof			
																		response.write "<tr>"
																			response.write "<td>"
																			response.write "[<a href=detail_research.asp?id="&orsch2("id_contact")&">"&orsch2("id_contact")&"</a>]<br>"
																				sqlres="select * from research where id_contact='"&orsch2("id_contact")&"'"
																				set orsres=server.createobject("adodb.recordset")
																				orsres.open sqlres,conn,1,3
																					if not orsres.eof then
																								response.write orsres("research_t")
																					end if

response.write "<td>"
																			response.write orsch2("d_reward")&" - "&orsch2("m_reward")&" - "&orsch2("y_reward")
																			response.write "<td>"
																				sqlt="select * from reward where id_reward='"&orsch2("id_reward")&"'"
																				set orst=server.CreateObject("adodb.recordset")
																				orst.open sqlt,conn,1,3
																				if not orst.eof then
																					response.write orst("reward_name")
																			response.Write orsch2("id_reward")
																			end if
																			response.write "<td>"
																			response.write orsch2("author_reward")
																			
																			response.write "<td>"
																			response.write orsch2("detail_reward")
																			
															 
															  orsch2.movenext
																loop
																end if
											 ''���͡�ҹ�Ԩ�¢ͧ���Ф�
					  orsin.movenext
					  loop
			  end if
			  %>
            </table><%
				''''''''''''''''''
				response.write "</table>"

'end if
				'response.write "<tr bgcolor=#F2F2F2><td><strong>�Ţ����ѭ��<td><strong>����ͧ<td><strong>��м���Ԩ��"
			'
			response.write "</table>"
			'response.write "</table>"
		'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է�
	'end if '���Է�
	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: getreward_lec.asp.bak