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

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

<tr ><td colspan="4"><strong>�к����Ң���������ͧ����Ѵ ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</div></td></tr>
          </TABLE>
<div align ="center">
<%if pageno=1 then 
								response.write "[  ��͹˹��  ]"
		else %>
		<a href = "result_search_mea.asp?no=1&start=1">[ ˹���á ]</a>
		<a href = "result_search_mea.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_mea.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_mea.asp?no=<%=totalpage%>&start=<%=last%>">[  �ش����  ]</a>
<%end if
%><br><div align ="left"><font color="#000000"><strong>
<%		response.write "�ӷ�����==>"&session("search_key")
%>
  <table width="90%" border="0" cellpadding="0" cellspacing="0">
  
       <%

if search_key="" then
	   search_key = request.form("search_key")
	   type_search=request.form("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 measurement_ms where meas_id like '%"&search_key&"%' order by meas_id"
  case 2 '��������ͧ����Ѵ
					sql = "select * from measurement_ms where meas_name like '%"&search_key&"%' order by meas_id"
  case 3 '�ҹ�Ԩ�·����ҧ�ԧ
					sql = "select * from measurement_ms where meas_ref like '%"&search_key&"%'order by meas_id"

end select
else
		Set ors = Server.CreateObject("ADODB.Recordset")
		ors.Open sql, Conn, 1, 3
		'response.write sql
if not ors.eof then   '�礤�� sql �����㹰ҹ�������
    result = ors(0)
	
  end if
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 width='100' align='center'><a href = detail_mea.asp?meas_id="& ors("meas_id")&">"& ors("meas_id") &_
						 "</a></td><td><a href = detail_mea.asp?meas_id="& ors("meas_id")&"><font size='2' face='ms sans serif'>" & ors("meas_name") & _
						 "</a></td></tr><tr><td><td>[�ҹ�Ԩ�·����]<a href = detail_res.asp?search_id="&ors("meas_ref")&"><font size='2' face='ms sans serif'>"& ors("meas_ref") 
mea_id=ors("meas_ref")
response.write "</td></tr><tr><td>"
						 sql_res="select * from search_th_ms where search_id = "&mea_id&""
						 set ors_res=server.createobject("adodb.recordset")
						 'response.write sql_res
						 ors_res.open sql_res,conn,1,3
						 on error resume next
					if not ors_res.eof then
					response.write "<td><a href = detail_res.asp?search_id="&mea_id&"><font size='2' face='ms sans serif'>"&ors_res("search_title")
					else response.write "</td><td><font size='2' face='ms sans serif'> Empty</td>"
					end if
		if session("login")="" then 
'response.write "<div align = 'center' > �س�ѧ����� Login<br>" 
r'esponse.write "�س������Է�����䢢�����</div>"

else 
					response.write  "</td></tr><tr><td><td>[<a href=edit_mea.asp?meas_id=" & ors("meas_id") & "> ���</a> ]"
					response.write"[<a href=del_mea.asp?meas_id="& ors("meas_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_mea.asp.bak