File Manager

<head>
<html>
<body text="#000066" link="#990000" vlink="#CC00FF" alink="#990066">
<%

dim ors
id_res=request.querystring("search_id")
'��ҷ���Ѻ�� �դ���� �ٹ����������
if id_res<> 0 then

set ors=server.createobject("adodb.recordset")
	 sqlmark="select * from search_th_ms where search_id="& id_res &" "
	 ors.open sqlmark,Conn,1,3
%>
��������´�����ŧҹ�Ԩ��
<table><tr bgcolor ="#FFFFCC"><td class='text'>���ʧҹ�Ԩ��</td><td><% =ors("search_id") %>
<% if session("login")="" then

else

%>
[<a href="edit_res.asp?search_id=<%=ors("search_id")%>"><img src='picture/edit1.gif' border='0' alt='��䢢�����'></a>][ <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	 %>
</td></tr><%
response.write "<tr><td>��������ͧ</td><td>"& ors("search_title") &"</td></tr>"

set ors_type_res=server.createobject("adodb.recordset")
type_id = ors("search_type")
if type_id <> 0 then
	
		sql_type_res="select * from search_type where type_id ="&type_id&""
		ors_type_res.open sql_type_res,conn,1,3

response.write "<tr bgcolor =#FFFFCC><td>�������ҹ�Ԩ��</td><td >"& ors_type_res("type_nameth") &"</td></tr>"
else 
response.write "<tr bgcolor =#FFFFCC><td>�������ҹ�Ԩ��</td><td >"& ors("search_type") &"</td></tr>"
end if

response.write "<tr><td>�����</td><td >"& ors("search_aut") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>����� / ����֡�ҧҹ�Ԩ��</td><td >"& ors("search_adv") &"</td></tr>"
'��ҷ���Ңͧ�ҹ�Ԩ�� �͡�Ҩҡ search_source_type
set ors_source=server.createobject("adodb.recordset")
search_aff = ors("search_aff")
if search_aff <> 0 then
	
		sql_source="select * from search_source_type where source_id ="&search_aff&""
		ors_source.open sql_source,conn,1,3

response.write "<tr><td>�����</td><td >"& ors_source("source_nameth") &"</td></tr>"
else 
response.write "<tr><td>�����</td><td >"& ors("search_aff") &"</td></tr>"
end if

'response.write "<tr><td>�����</td><td >"& ors("search_aff") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>������ҧ�ԧ</td><td>"& ors("search_ref") &"</td></tr>"
response.write "<tr><td>��</td><td>"& ors("search_year") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�ӹǹ˹��</td><td >"& ors("search_page") &"</td></tr>"
'response.write "<tr><td>���Ѵ���</td><td >"& ors("search_abstr") &"</td></tr>"
'response.write "<tr bgcolor =#FFFFCC><td>Abstract</td><td >"& ors("search_abstr_eng") &"</td></tr>"
response.write "<tr ><td>�����������ҧ</td><td >"& ors("search_sample") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�Ӥ�</td><td >"& ors("search_key") &"</td></tr>"
response.write "<tr><td>���ѹ�֡</td><td >"& ors("update_id") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�ѹ���ѹ�֡</td><td >"& ors("update_date") &"</td></tr>"
'response.write "<tr><td>���Ѵ���</td>"
	response.write "<tr><td>���Ѵ���</td><td><a href=abstract/"& ors("search_abstr")&">"& ors("search_abstr")&"</a></td></tr>" 
'		response.write "</td></tr><tr bgcolor =#FFFFCC><td>Abstract</td>"
response.write "<tr bgcolor=#FFFFCC><td>Abstract</td><td><a href=abstract_eng/"& ors("search_abstr_eng")&">"&ors("search_abstr_eng")&"</a></td></tr>"
					 'response.write "</td><td><a href=abstract_eng/"& ors("search_abstr_eng")&">"&ors("search_abstr_eng")

response.write "<tr><td>����ͧ����Ѵ</td></tr>"

'����ͧ����Ѵ
set ors_mea=server.createobject("adodb.recordset")
		sql_mea="select * from measurement_ms where meas_ref ="&id_res&""
		ors_mea.open sql_mea,conn,1,3
		if not ors_mea.eof then
				response.write "<tr bgcolor =#FFccCC><td>��������ͧ����Ѵ</td><td >��������ͧ����Ѵ</td></tr>"
				ors_mea.movefirst
						do while not ors_mea.eof
						valuecolor = colorv mod 2
						if valuecolor = 0 then 
								vcolor = "#cccccc"
								else vcolor = "#FFFFCC"
								end if
								response.write "<tr><td><A href = detail_mea.asp?meas_id="&ors_mea("meas_id")&">"& ors_mea("meas_id") &"</a></td><td>"&ors_mea("meas_name")&"</td></tr>"
								ors_mea.movenext
								colorv=colorv+1

loop

ors_mea.close
 set ors_mea=nothing
		'else
'response.write "</table>"
end if
	
response.write "</table>"

'ors.Open sqlmark, conn, 1, 3
 On Error Resume Next
 ors.Close
	ors_type_res.close
	ors_source.close
 Conn.Close
'����էҹ�Ԩ��
else 
response.write "����բ����ŧҹ�Ԩ�·����ҧ�ԧ "
end if
response.write"[<a href=research_page.asp>��Ѻ˹�Ҥ��ҧҹ�Ԩ��</a>] "
response.write"[<a href=measurment_page.asp> ��Ѻ˹�Ҥ�������ͧ����Ѵ</a>] "	
%>
[<a href="javascript:history.go(-1)"> Back</a>]

</body>
</html>

File Manager

Editing: research/detail_res.asp