Editing: research/edit_mea.asp

<!--#INCLUDE FILE="cksession.asp"--> <!--#INCLUDE FILE="Connectdb.asp"--> <script language="javascript"> function Dosubmit(){ if(document.all.head_news.value!=''&& document.all.detail.value!=''&& document.all.url.value!=''&& document.all.name_post.value!=''&& document.all.tel.value!=''&& document.all.email.value!=''){ }else { alert('��͡���������ú���¹Ш�� '); return false; } } </script> <form name="form1" Action = "save_edit_mea.asp" method="post" onsubmit="return Dosubmit();"> <script language="JavaScript1.2" src="utility.js" type='text/javascript'></script> <% 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 %> <div align="center"><strong>�����������´����ͧ����Ѵ</strong></div><br> <table align="center" width="75%"><tr bgcolor ="#FFFFCC"><td class='text'><font color="#660000"><strong><font size='2' face='ms sans serif'>��������ͧ����Ѵ</td><td><input type="text" name="meas_id" readonly value=<% =ors("meas_id") %>></td></tr> <% response.write "<tr><td><font color='#660000'><font size='2' face='ms sans serif'><strong>��������ͧ����Ѵ</td><td><textarea cols='60' name='meas_name' rows='2'>"& ors("meas_name") &"</textarea>" response.write "</td></tr>" response.write"<tr bgcolor =#FFFFCC><td><font color='#660000'><font size='2' face='ms sans serif'><strong>���ʧҹ�Ԩ�·����ҧ�ԧ</td><td>" 'set ors_type_res=server.createobject("adodb.recordset") res_id_select=request("res_id_select") if res_id_select="" then res_id = ors("meas_ref") else res_id=request("res_id_select") end if '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 %> <select name="meas_ref"> <% sql_res1="select * from search_th_ms" set ors_res1=server.createobject("adodb.recordset") ors_res1.open sql_res1,conn,1,3 ors_res1.movefirst do while not ors_res1.eof %> <option <%if cint(ors_res1("search_id"))=cint(res_id) then%> value = <%=cint(res_id)%> selected <%else%> value = <%=ors_res1("search_id") %><%end if%>> <%=ors_res1("search_id")%></option><% ors_res1.movenext loop%> </select> <% 'response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>�ҹ�Ԩ����ҧ�ԧ</td><td ><input type='text' readonly size='100' name='meas_id' value ="& ors_res("search_title")&">" 'else response.write "window.location.href= 'research_table.asp?transectionid="&tranid&"&researchid="&researchid&"';" response.write "<a href=select_res.asp?res_id="&res_id&"&id_mea="&id_mea&"><font size='2' face='ms sans serif'>���͡�ҹ�Ԩ��</a>"&AA&"</td>" response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�ҹ�Ԩ����ҧ�ԧ</td><td>" response.write "<textarea cols='60' rows='3' readonly>"& ors_res("search_title") &"</textarea>" 'end if 'response.write "<form name='form1' method='post' action='choose_research.asp'> response.write "</td></tr>" response.write "<tr><td><font color='#660000'><strong><font size='2' face='ms sans serif'>����级ҹ�Ԩ��</td><td ><input type='text' name='meas_lib' value ="& ors("meas_lib") &"></td></tr>" response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><font size='2' face='ms sans serif'><strong>�����Ţ���¡˹ѧ���</td><td ><textarea rows='1' cols='60' name='meas_calnum'>"& ors("meas_calLnum") &"</textarea></td></tr>" response.write "<tr><td><font color='#660000'><strong><font size='2' face='ms sans serif'>���Ӥѭ</td><td ><textarea cols='60' rows='3' name='meas_key' >"& ors("meas_key") &"</textarea></td></tr>" '����Ңͧ����ͧ����Ѵ response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><font size='2' face='ms sans serif'><strong>����Ңͧ����ͧ����Ѵ </td><td>" his_id=ors("meas_his1") sql_his="select * from meas_his_type" 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 ors_his.movefirst response.write "<select name='meas_his1'>" do while not ors_his.eof %> <option <%if cint(ors_his("type_id"))=cint(his_id) then%> value = <%=cint(his_id)%> selected <%else%> value = <%=ors_his("type_id") %><%end if%>> <%=ors_his("type_nameth")%></option> <% ors_his.movenext loop response.write" </select></td></tr>" ors_his.close '�������ͧ����ͧ����Ѵ response.write "<tr><td><font color='#660000'><strong><font size='2' face='ms sans serif'>��������´����Ңͧ����ͧ����Ѵ </td><td><textarea rows='3' cols='60' name='meas_his2'>"&ors("meas_his2") &"</textarea></td></tr>" '������ش���ʧ��㹡�����ҧ����ͧ����Ѵ response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�ش���ʧ��㹡�����ҧ����ͧ����Ѵ </td><td>" obj=ors("meas_obj1") sql="select * from meas_obj_type" set ors_obj=server.createobject("ADODB.RECORDSET") ors_obj.open sql,conn,1,3 ors_obj.movefirst response.write "<select name='meas_obj1'>" do while not ors_obj.eof %> <option <%if cint(ors_obj("type_id"))=cint(obj) then%> value = <%=cint(obj)%> selected <%else%> value = <%=ors_obj("type_id") %><%end if%>> <%=ors_obj("type_nameth")%></option> <% ors_obj.movenext loop response.write" </select></td></tr>" ors_obj.close '�ٻẺ�������ṹ response.write "<tr ><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�ٻẺ�������ṹ </td><td>" ans=ors("meas_ans2") sql="select * from meas_ans_type" 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 ors_ans.movefirst response.write "<select name='meas_ans2'>" do while not ors_ans.eof %> <option <%if cint(ors_ans("type_id"))=cint(ans) then%> value = <%=cint(ans)%> selected <%else%> value = <%=ors_ans("type_id") %><%end if%>> <%=ors_ans("type_nameth")%></option> <% ors_ans.movenext loop response.write" </select></td></tr>" ors_ans.close 'response.write "<tr ><td><font color='#660000'><strong>�ٻẺ��õ�Ǩ��С������ṹ</td><td ><textarea rows='3' cols='60' name='meas_ans2'>"& ors_ans("type_nameth") &"</textarea></td></tr>"'�֧�ҡ ���ҧ meas_ans_type 'else 'response.write "<tr ><td><font color='#660000'><strong>�ٻẺ��õ�Ǩ��С������ṹ</td><td ><textarea rows='3' cols='60' name='meas_ans2' >"& ors("meas_ans2") &"</textarea></td></tr>"'�֧�ҡ ���ҧ meas_ans_type 'end if response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong><font size='2' face='ms sans serif'>��������´�ٻẺ��õ�Ǩ��С������ṹ</td><td ><textarea cols='60' rows='3' name='meas_ans1' >"& ors("meas_ans1") &"</textarea></td></tr>" response.write "<tr ><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�س�Ҿ�ͧ����ͧ����Ѵ</td><td ><textarea rows='3' cols='60' name='meas_expe' >"& ors("meas_expe") &"</textarea></td></tr>" response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><font size='2' face='ms sans serif'><strong>�����ҡ �Ըա����о����</td><td ><input type='text' size='60' name='meas_diff' value ="& ors("meas_diff") &"></td></tr>" response.write "<tr><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�ӹҨ��ṡ �Ըա�� ��о����</td><td ><textarea cols='60' rows='3' name='meas_pwr' >"& ors("meas_pwr") &"</textarea></td></tr>" response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�������§�ç �Ըա�� �Ѫ�շ�駩�Ѻ</td><td ><textarea cols='60' name='meas_vali' rows='3' >"& ors("meas_vali") &"</textarea></td></tr>" response.write "<tr><td><font color='#660000'><font size='2' face='ms sans serif'><strong>�����������</td><td ><textarea cols='60' rows='3' name='meas_reli' >"& ors("meas_reli") &"</textarea></td></tr>" response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong><font size='2' face='ms sans serif'>��������������С����������ҧ</td><td ><textarea cols='60' rows='3' name='meas_sample' >"& ors("meas_sample") &"</textarea></td></tr>" response.write "<tr><td><font color='#660000'><strong><font size='2' face='ms sans serif'>����㹡��������ͧ���</td><td ><textarea cols='60' name='meas_time' >"& ors("meas_time") &"</textarea></td></tr>" response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong><font size='2' face='ms sans serif'>�ش���ʧ��ͧ����ͧ����Ѵ</td><td ><textarea cols='60' rows='5' name='meas_obj2'>"& ors("meas_obj2") &"</textarea></td></tr>" response.write "<tr><td><font color='#660000'><strong><font size='2' face='ms sans serif'>������ҧ����ͧ����Ѵ</td><td ><textarea cols='60' rows = '5' name='meas_formsample' value =>"& ors("meas_formsample") &"</textarea></td></tr>" response.write "</table>" 'ors.Open sqlmark, conn, 1, 3 On Error Resume Next ors.Close Conn.Close ' '<SCRIPT LANGUAGE="JavaScript"> '<!-- ' form1.submit(); '//--> '</SCRIPT> 'response.write "<a href=save_edit_mea.asp?meas_id="&id_mea&">�ѹ�֡</a>" %> <div align ="center"><input type="submit" value="�ѹ�֡"></div> </FORM>