File Manager

<html>

<head>

<title>�Թ�յ�͹�Ѻ������ʶҺѹ�Ԩ��</title>
<%
	search_key=request.form("search_key")
	if search_key<>"" then
	session("search_key")=request.form("search_key")%>

<%session("type_search")=request.form("type_search") 
end if

<style>
.bot{
    text-decoration: none;
    color: FFFFFF;
    font-size: 10px;
    font-family: verdana,arial;
    font-weight: bold;
}
.bot:hover{color: 000000;}
.bot1{
    color: D56767;
    font-size: 15px;
    font-family: Times New Roman,verdana,arial;
    font-weight: bold;
}
.bot1:hover{
    color: 3B5598;
}
.bot2{
    color: D56767;
    font-size: 13px;
    font-family: Times New Roman,verdana,arial;
}
.bot2:hover{
    color: 3B5598;
}
.submenu01{
    color: FFFFFF;
    font-weight: bold;
    font-family: System;
    padding-right: 10px;
    text-align: right;
}
.heading{
    FONT-FAMILY: "Courier New", Courier, mono;
    font-size: 20px;
    font-weight: bold;
}
.system01{
    FONT-FAMILY: "Courier New", Courier, mono;
    font-size: 12px;
    font-weight: bold;
}
TD{
    font-size: 16px;
    FONT-FAMILY: Arial, Helvetica, sans-serif;
    color: 000000;
}
</style>
<script language="javascript">	
function Dosubmit(){
 if(document.all.search_key.value!=''&& document.all.type_search.value!=0){
		}else {
			alert('��͡��ͤ�������ͧ���Ҵ��¹Ш�� ');
			return false;
		}
	}
	</script>

</head>
	
<body>
<div align = "center"><font size='2' face='ms sans serif' >˹�� |
<%
for page=1 to totalpage	 %>
 <a href="result_search_res.asp?no=<%=page%>&start=<%=(pagesize)*(page-1)+1%>">
<%=page%></a>&nbsp|&nbsp
<%next%>
<br> �ӹǹ������<%=total%> �ä����<br></div>
<div align="center">
<TABLE>

</select>
	</td>
	
	
          
  
        <td>      <input  class = "button" type="submit" name="����" value = "����"><td></tr>
  </TABLE>
  </FORM>

</div>
<%response.write "�ӷ�����==>><font color='#000000'><strong>"&search_key%>
<div align ="center">
<%
if pageno=1 then 
								response.write "[  ��͹˹��  ]"
		else %>
		<a href = "result_search_res.asp?no=1&start=1">[ ˹���á ]</a>
		<a href = "result_search_res.asp?no=<%=pageno-1%>&start=<%=start-10%>">[  ��͹˹��  ]</a>
		<%end if
		response.write "[  ˹��  "&pageno&"/"&totalpage&"]"
      if pageno=totalpage then 
	  response.write "[  �Ѵ�  ]"
			else%>
			<a href="result_search_res.asp?no=<%=pageno+1%>&start=<%=start+10%>">[  �Ѵ�  ]</a>
			<%last=total mod pagesize
			    if last=0 then
						last=total-pagesize+1
						else 
						last=total-(total mod pagesize)+1
						end if%>
			<a href="result_search_res.asp?no=<%=totalpage%>&start=<%=last%>">[  �ش����  ]</a>
<%end if
%><br>

<%
'dim ors
 '  Set ors = Server.CreateObject("ADODB.Recordset")
'	sql = "select * from typenews"
 'ors.Open sql, Conn, 1, 3
	 'ors.movefirst
'	 id=ors("type_news")
'do while not ors.eof
'	 response.write   ors("type_news")
'	 ors.movenext
'loop
'		  ors.close
'		  set ors=nothing
	 %>

<table width="100%" border="0" cellpadding="0" cellspacing="0">
  
       <% 
	'   search_key = session("search_key")
	 '  type_search=session("type_search")
	  ' response.write type_search
	 '  response.write search_key
  
  ' sql = "select * from search_th_ms"
 select case type_search
  case 1 '���ʧҹ�Ԩ��
					sql = "select * from search_th_ms where search_id like '%"&search_key&"%' order by search_id"
  case 2 '��������ͧ
					sql = "select * from search_th_ms where search_title like '%"&search_key&"%' order by search_id"
  case 3 '�����
					sql = "select * from search_th_ms where search_aut like '%"&search_key&"%'order by search_id"
  case 4 '�� (��)
					sql = "select * from search_th_ms where search_year like '%"&search_key&"%'order by search_id"
 case 5 'Key word
					sql = "select * from search_th_ms where search_key like '%"&search_key&"%'order by search_id"
end select
		Set ors = Server.CreateObject("ADODB.Recordset")
		ors.Open sql, Conn, 1, 3
if not ors.eof then   '�礤�� sql �����㹰ҹ�������
    result = ors(0)
  end if
  '**********************
   if result > 0 then
				ors.movefirst
				colorv=1
						do while not ors.eof
												num=num+1 '����������͵�Ǩ��Ҩ���ú��� endrecord �����ѧ
 if maxnum >=endrecord then exit do '�������������� maxnum �դ���ҡ��� ����ش���� ����͡�ҡ do ���ǹ�ͺ������
 ors.movenext
    if num>=start then '�ç������������
	ors.moveprevious
			maxnum=maxnum+1 '�ç��������������͹�ѹ �����������
												valuecolor = colorv mod 2
												 if valuecolor = 0 then 
																						vcolor = "#ffffcc"
												else vcolor = "#FFCCFF"
												end if
						response.write"<tr bgcolor ="& vcolor &"><td><a href = detail_res.asp?search_id="& ors("search_id")&">"& ors("search_id") &_
						 "</a></td></tr><tr bgcolor ="& vcolor &"><td><td><a href = detail_res.asp?search_id="& ors("search_id")&"><font size='2' face='ms sans serif' color='#990000'><strong>" & ors("search_title") & _
						 "</a></td></tr><tr bgcolor ="& vcolor &"><td><td><font size='2' face='ms sans serif' >"& ors("search_aut") &_
						 " �� "& ors("search_year") &_
   "</td></tr><tr bgcolor ="& vcolor &"><td><td>"
'�֧����ͧ����Ѵ�͡��
					search_id = ors("search_id")
					sql = "select * from measurement_ms where meas_ref = "&search_id&""
					Set ors_meas = Server.CreateObject("ADODB.Recordset")
					ors_meas.open sql,conn,1,3
					 if not ors_meas.eof then
					response.write "[<a href = detail_result_mea.asp?search_id="&search_id&"><font size='2' face='ms sans serif' >����ͧ����Ѵ</a>]"
					else response.write "<font size='2' face='ms sans serif' >[����ͧ����Ѵ]"
					end if

if ors("search_abstr")<>"" then
'response.write "</td><td><a href=abstract.asp?search_abstr="& ors("search_id")&">"&ors("search_abstr")   
					response.write "[<a href=abstract/"& ors("search_abstr")&"><font size='2' face='ms sans serif' >���Ѵ���</a>]"   
	else response.write "<font size='2' face='ms sans serif' >[���Ѵ���]"
	end if
if ors("search_abstr_eng")<>"" then
					response.write "[<a href=abstract_eng/"& ors("search_abstr_eng")&"><font size='2' face='ms sans serif' >Abstract</a>]"   
	else response.write "<font size='2' face='ms sans serif' >[Abstract]"
end if

if session("login")="" then 
'response.write "<div align = 'center' > �س�ѧ����� Login<br>" 
'response.write "�س������Է�����䢢�����</div>"

else 
					response.write  "[ <a href=edit_res.asp?search_id=" & ors("search_id") & ">���</a> ]"
					response.write"[ <a href=del_res.asp?search_id="& ors("search_id")  & ">ź</a> ]"
					end if

response.write "</td></tr>"
						ors.movenext
						colorv=colorv+1
						end if
						loop
						ors.close
						set ors=nothing
    
  else
response.write "��辺������"
  end if
  '****************************
  
 
'id=ors("id_typenews")
 'type_=ors("type_news")

%>
	  
  </table>	<div align="center">
        [<a href = "research_page.asp">��Ѻ���˹�Ҥ��ҧҹ�Ԩ��</a>]
		        [<a href = "measurment_page.asp">��Ѻ���˹�Ҥ�������ͧ����Ѵ</a>]
[<a href ="javascript:history.go(-1)"> Back</a>]

</body>
</html>

File Manager

Editing: research/result_search_res.asp