File Manager

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Pragma" content="no-cache">

<title>�Թ�յ�͹�Ѻ������ʶҺѹ�Ԩ��</title>


<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>

</head>
<script language="javascript">	
function Dosubmit(){
 if(document.all.search_key.value!=''&& document.all.type_search.value!=0){
		}else {
			alert('��͡��ͤ�������ͧ���Ҵ��¹Ш�� ');
			return false;
		}
	}
	</script>	
<body><div align="center">
˹�� |
<%
for page=1 to totalpage	 %>
 <font size='2' face='ms sans serif'><a href="research_page.asp?no=<%=page%>&start=<%=(pagesize)*(page-1)+1%>">
<%=page%></a>&nbsp|&nbsp
<%next%>
<br> �ӹǹ������<%=total%> �ä����<br></div>
<%
'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 align="center"><FORM METHOD=POST ACTION="result_search_res.asp"onsubmit="return Dosubmit();">

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

<a href="measurment_page.asp">[ ��������ͧ����Ѵ ]</a>
  <%
  if session("login")<>"" then %> 
  <a href = "add_res.asp">[  �����ҹ�Ԩ��  ]</a>
    <a href = "logout.asp">[ Log Out ]</a>
  <% else %>
  <a href = "index.asp">[ Log In ]</a>
  <%end if%>
    <div align ="center">
<%if pageno=1 then 
								response.write "[  ��͹˹��  ]"
		else %>
		<a href = "research_page.asp?no=1&start=1">[ ˹���á ]</a>
		<a href = "research_page.asp?no=<%=pageno-1%>&start=<%=start-10%>">[  ��͹˹��  ]</a>
		<%end if
		response.write "[  ˹��  "&pageno&"/"&totalpage&"]"
      if pageno=totalpage then 
	  response.write "[  �Ѵ�  ]"
			else%>
			<a href="research_page.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="research_page.asp?no=<%=totalpage%>&start=<%=last%>">[  �ش����  ]</a>
<%end if%>

<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0">
   
       <%

Set ors = Server.CreateObject("ADODB.Recordset")
  sql = "select * from search_th_ms"
  ors.Open sql, Conn, 1, 3
  colorv=1

' id=ors("id_typenews")
 'type_=ors("type_news")
 ors.movefirst
 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 = "#FF99FF"
						end if
   response.write"<tr bgcolor ="& vcolor &"><td width=100><div align='center'><a href = detail_res.asp?search_id="& ors("search_id")&">"& ors("search_id") &_
   "</a></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>"& 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 "[���Ѵ���]"
	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 "[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") & "><img src='picture/edit1.gif' width='16' height='16' border='0' alt='���'></a> ]"
					response.write"[ <a href=del_res.asp?search_id="& ors("search_id")  & "><img src='picture/i.p.delete.gif' width='11' height='12' border='0' alt='ź'></a> ]"
					end if

response.write "</td></tr><tr><td>.</td></tr>"
		 ors.movenext
		 colorv=colorv+1
end if
loop
	
	  ors.close
 set ors=nothing
	 %>
	  
  </table>

</body>
</html>

File Manager

Editing: research/research_page.asp.bak