Editing: research/save_edit_res.asp

<% @Language="VBScript" %> <!--#INCLUDE FILE="cksession.asp"--> <!--#INCLUDE FILE="Connectdb.asp"--> <form name="form1" Action = "detail_mea.asp" method="post"> <% 'dim ors,back search_id=request("search_id") search_title=request.form("search_title") search_type=request.form("search_type") search_aut= request.form("search_aut") search_adv = request.form("search_adv") search_aff = request.form("search_aff") search_year = request.form("search_year") search_page = request.form("search_page") search_key=request.form("search_key") search_sample=request.form("search_sample") search_abs=session("search_abs") if search_abs="" then search_abstr = request.form("search_abstr") else search_abstr=session("search_abs") end if absa=session("abs_eng") if absa="" then search_abstr_eng = request.form("search_abstr_eng") else search_abstr_eng=session("abs_eng") end if 'response.write absa&"ggggggg" sql = "update search_th_ms set search_title= '"& search_title &"',search_type="&search_type&",search_aut='"&search_aut&"',search_adv='"&search_adv&"',search_aff="&search_aff&",search_year="&search_year&",search_page="&search_page&",search_abstr='"&search_abstr&"',search_abstr_eng='"&search_abstr_eng&"',search_sample='"&search_sample&"',search_key='"&search_key&"' where search_id = " & search_id &" " response.write"��䢢������������º�������Ǩ��" set ors=server.createobject("adodb.recordset") ors.open sql,Conn,1,3 '====================update meas_ref==================== sqlup_ref="select * from temp where search_id = "&search_id&"" set orsup_ref=server.createobject("adodb.recordset") orsup_ref.open sqlup_ref,conn,1,3 response.write sqlup_ref if not orsup_ref.eof then orsup_ref.movefirst do while not orsup_ref.eof meas_id=orsup_ref("meas_id") response.write meas_id sqlup_refm="update measurement_ms set meas_ref="&search_id&" where meas_id ="&meas_id&"" response.write "��䢢������������º�������Ǩ��" '' set orsup_refm=server.createobject("adodb.recordset") orsup_refm.open sqlup_refm,Conn,1,3 orsup_ref.movenext loop sql_deltemp="delete * from temp where search_id="&search_id&"" set ors_deltemp= server.createobject("adodb.recordset") ors_deltemp.open sql_deltemp,conn,1,3 end if '========================================end of update==================================================== if search_abs <> "" or absa<>"" then sql_del_temp="delete * from temp_upload where search_id ="&search_id&"" set ors_del_temp=server.createobject("adodb.recordset") ors_del_temp.open sql_del_temp,conn,1,3 end if 'response.write sql 'set rs = conn.Execute(sql) 'ors.close set conn = nothing '<SCRIPT LANGUAGE="JavaScript"> 'form1.submit(); '</SCRIPT> %> <meta http-equiv="refresh" content ="3;url=detail_res.asp?search_id=<%=search_id%>"> </FORM>