File Manager

<html>
<body>
<%id_mea=request("id_mea")%>
<form  name="frm1" id="frm1" Action = "selectres.asp?id_mea=<%=id_mea%>" method="post">
<table border="0" width="75%" cellspacing="0" cellpadding="0" width="75%" bgcolor="#FF99FF" align="center">
<tr><td ><div align="center"><strong>���͡���ʧҹ�Ԩ��</strong>
<%

dim ors

response.write id_mea&"..."
res_id_select=request("res_id_select")
if res_id_select="" then
res_id_select=request("res_id")
else 
res_id_select=request("res_id_select")
end if
'res_id_select=res_id_select+1

'sql_select="select * from search_th_ms where search_id ="&res_id&""
		'set ors_select=server.createobject("ADODB.RECORDSET")
		'ors_select.open sql_select,conn,1,3

sql_sel="select * from search_th_ms"
set ors_sel=server.createobject("adodb.recordset")
ors_sel.open sql_sel,conn,1,3
ors_sel.movefirst
'response.write "res_id_select"& res_id_select&"...."
response.write "<select name='res_id_s' onChange='javascript:window.document.frm1.submit();'>"
 do while not ors_sel.eof
		'r_id=ors_sel("search_id")
		 %>

<option <%
		                  if cint(ors_sel("search_id"))=cint(res_id_select) then%>
						  value =<%=cint(res_id_select)%> selected
						  <%end if%>
						  value =<%=ors_sel("search_id") %>>
						  <%=ors_sel("search_id")%></option>
											
							<%'else
							'	value =<%=res_id_select%> 
							
							
								   
<%
ors_sel.movenext
loop

%>
                        </select></div>
						
<%
sql_select="select * from search_th_ms where search_id = " & res_id_select & " "
		set ors_select=server.createobject("ADODB.RECORDSET")
		
		ors_select.open sql_select,conn,1,3

response.write "<tr><td> ���ʧҹ�Ԩ�·��س���͡ == <a href=edit_mea.asp?res_id_select="&ors_select("search_id")&"&meas_id="&id_mea&">"& ors_select("search_id")&"</a>"
response.write "<tr><td> ��������ͧ =="& ors_select("search_title")

response.write "</table>"
    On Error Resume Next
    ors_sel.Close
    
	  
%>
<script language="javascript">	
function Dosubmit(){
 if(document.all.search_key.value!=''&& document.all.type_search.value!=0){
		}else {
			alert('��͡��ͤ�������ͧ���Ҵ��¹Ш�� ');
			return false;
		}
	}
	</script>	
<div align="center">
˹�� |
<%
for page=1 to totalpage	 %>
 <a href="select_res.asp?no=<%=page%>&start=<%=(pagesize)*(page-1)+1%>&id_mea=<%=id_mea%>&res_id_select=<%=res_id_select%>">
<%=page%></a>&nbsp|&nbsp
<%next%>
<br> �ӹǹ������<%=total%> �ä����<br></div>

<div align ="center">
<%if pageno=1 then 
								response.write "[  ��͹˹��  ]"
		else %>
		<a href = "select_res.asp?no=1&start=1&id_mea=<%=id_mea%>&res_id_select=<%=res_id_select%>">[ ˹���á ]</a>
		<a href = "select_res.asp?no=<%=pageno-1%>&start=<%=start-20%>&id_mea=<%=id_mea%>&res_id_select=<%=res_id_select%>">[  ��͹˹��  ]</a>
		<%end if
		response.write "[  ˹��  "&pageno&"]"
      if pageno=totalpage then 
	  response.write "[  �Ѵ�  ]"
			else%>
			<a href="select_res.asp?no=<%=pageno+1%>&start=<%=start+20%>&id_mea=<%=id_mea%>&res_id_select=<%=res_id_select%>">[  �Ѵ�  ]</a>
			<%last=total mod pagesize
			    if last=0 then
						last=total-pagesize+1
						else 
						last=total-(total mod pagesize)+1
						end if%>
			<a href="select_res.asp?no=<%=totalpage%>&start=<%=last%>&id_mea=<%=id_mea%>&res_id_select=<%=res_id_select%>">[  �ش����  ]</a>
<%end if%>

<table width="75%" border="0" cellpadding="0" cellspacing="0">
   <tr bgcolor="#660000"> 
		<td><div align="center"><strong><font color="#CCFFCC">���ʧҹ�Ԩ��</font></strong></div></td>
		<td><div align="center"><strong><font color="#CCFFCC">���ͧҹ�Ԩ��</font></strong></div></td></tr>
       <%
  Set ors = Server.CreateObject("ADODB.Recordset")
  sql = "select * from search_th_ms"
  ors.Open sql, Conn, 1, 3
  colorv=1
 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 = "#cccccc"
						else vcolor = "#FFFFCC"
						end if
   response.write"<tr bgcolor ="& vcolor &"><td><a href = edit_mea.asp?res_id_select="&ors("search_id")&"&meas_id="&id_mea&">"& ors("search_id")&"</a></td>"
response.write"<td><a href = edit_mea.asp?res_id_select="&ors("search_id")&"&meas_id="&id_mea&">"& ors("search_title")&"</a></td></tr>"
 ors.movenext
		 colorv=colorv+1
end if
loop
	
	  ors.close
 set ors=nothing
 Conn.Close
	 %>
	  
  </table>	
        
</FORM>

</body>
</html>

File Manager

Editing: research/select_res.asp