File Manager

dim ors
id_mea=request.querystring("meas_id")
set ors=server.createobject("adodb.recordset")
	 sqlmark="select * from measurement_ms where meas_id="& id_mea &" "
	 ors.open sqlmark,Conn,1,3
%>
��������´����ͧ����Ѵ
<%
if session("login")="" then

else 
%>
[<a href="edit_mea.asp?meas_id=<%=id_mea%>"><img src='picture/edit1.gif' border='0' alt='��䢢�����'></a> ] [ <a href="del_mea.asp?meas_id=<%=id_mea%>"><img src='picture/i.p.delete.gif' width='11' height='12' border='0' alt='ź'></a> ]
<%end if%>
<table align="center"><tr bgcolor ="#FFFFCC"><td class='text'>��������ͧ����Ѵ</td><td><% =ors("meas_id") %></td></tr>
<%
response.write "<tr><td>��������ͧ����Ѵ</td><td>"& ors("meas_name") &"</td></tr>"

'set ors_type_res=server.createobject("adodb.recordset")
res_id = ors("meas_ref")
if res_id <> 0 then
	
		sql_res="select * from search_th_ms where search_id ="&res_id&""
		set ors_res=server.createobject("ADODB.RECORDSET")
		ors_res.open sql_res,conn,1,3

response.write "<tr bgcolor =#FFFFCC><td> �ҹ�Ԩ����ҧ�ԧ</td><td ><a href=detail_res.asp?search_id="&ors_res("search_id")&">"& ors_res("search_title") &"</td></tr>"
else 
response.write "<tr bgcolor =#FFFFCC><td>�ҹ�Ԩ����ҧ�ԧ</td><td >"& ors("meas_ref") &"����բ�����</td></tr>"
end if

response.write "<tr><td>����级ҹ�Ԩ��</td><td >"& ors("meas_lib") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�����Ţ���¡˹ѧ���</td><td >"& ors("meas_calLnum") &"</td></tr>"
response.write "<tr><td>���Ӥѭ</td><td >"& ors("meas_key") &"</td></tr>"
typ_id=ors("meas_his1")
							sql_his="select * from meas_his_type where type_id ="&typ_id&""
							set ors_his=server.createobject("ADODB.RECORDSET")
							ors_his.open sql_his,conn,1,3
										if not ors_his.eof then
										result = ors_his(0)
										end if

if result > 0 then
response.write "<tr bgcolor =#FFFFCC><td>����Ңͧ����ͧ����Ѵ </td><td>"& ors_his("type_nameth") &"</td></tr>"'�֧�ҡ���ҧ meas_his_type
					else
response.write "<tr bgcolor =#FFFFCC><td>����Ңͧ����ͧ����Ѵ </td><td>"& ors("meas_his1") &"</td></tr>"'�֧�ҡ���ҧ meas_his_type
					end if
response.write "<tr><td>��������´����Ңͧ����ͧ����Ѵ </td><td>"& ors("meas_his2") &"</td></tr>"

obj=ors("meas_obj1")
							sql="select * from meas_obj_type where type_id ="&obj&""
							set ors_obj=server.createobject("ADODB.RECORDSET")
							ors_obj.open sql,conn,1,3
										if not ors_obj.eof then
										result = ors_obj(0)
										end if

if result > 0 then
response.write "<tr bgcolor =#FFFFCC><td>�ش���ʧ��㹡�����ҧ����ͧ����Ѵ</td><td >"& ors_obj("type_nameth") &"</td></tr>"'�֧�ҡ���ҧ meas_obj_type
										 else 
response.write "<tr bgcolor =#FFFFCC><td>�ش���ʧ��㹡�����ҧ����ͧ����Ѵ</td><td >"& ors("meas_obj1") &"</td></tr>"'�֧�ҡ���ҧ meas_obj_type
											end if
ans=ors("meas_ans2")
							sql="select * from meas_ans_type where type_id ="&ans&""
							set ors_ans=server.createobject("ADODB.RECORDSET")
							ors_ans.open sql,conn,1,3
										if not ors_ans.eof then
										result = ors_ans(0)
										end if

if result > 0 then

response.write "<tr ><td>�ٻẺ��õ�Ǩ��С������ṹ</td><td >"& ors_ans("type_nameth") &"</td></tr>"'�֧�ҡ ���ҧ meas_ans_type
else
response.write "<tr ><td>�ٻẺ��õ�Ǩ��С������ṹ</td><td >"& ors("meas_ans2") &"</td></tr>"'�֧�ҡ ���ҧ meas_ans_type
end if
response.write "<tr bgcolor =#FFFFCC><td>��������´�ٻẺ��õ�Ǩ��С������ṹ</td><td >"& ors("meas_ans1") &"</td></tr>"
response.write "<tr ><td>�س�Ҿ�ͧ����ͧ����Ѵ</td><td >"& ors("meas_expe") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�����ҡ �Ըա����о����</td><td >"& ors("meas_diff") &"</td></tr>"
response.write "<tr><td>�ӹҨ��ṡ �Ըա�� ��о����</td><td >"& ors("meas_pwr") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�������§�ç �Ըա�� �Ѫ�շ�駩�Ѻ</td><td >"& ors("meas_vali") &"</td></tr>"
response.write "<tr><td>�����������</td><td >"& ors("meas_reli") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>��������������С����������ҧ</td><td >"& ors("meas_sample") &"</td></tr>"
response.write "<tr><td>����㹡��������ͧ���</td><td >"& ors("meas_time") &"</td></tr>"
response.write "<tr bgcolor =#FFFFCC><td>�ش���ʧ��ͧ����ͧ����Ѵ</td><td >"& ors("meas_obj2") &"</td></tr>"
response.write "<tr><td>������ҧ����ͧ����Ѵ</td><td >"& ors("meas_formsample") &"</td></tr>"
response.write "</table>"

'ors.Open sqlmark, conn, 1, 3
    On Error Resume Next
    ors.Close
	ors_type_res.close
	ors_source.close
    Conn.Close

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

File Manager

Editing: research/detail_mea.asp