File Manager

<form  name="form1"  Action = "detail_mea.asp" method="post">
<%
if session("searchid")="" then
	response.write "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=windows-874""></head><body><script Language='JavaScript'>"
	response.write "alert(' Session ���ʧҹ�Ԩ��(searchid) is Expire');"
	response.write "parent.location.href= 'add_res.asp';"
	response.write "</script></body></html>"
end if

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_ref = request.form("search_ref") 
    search_year = request.form("search_year") 
   search_page =  request.form("search_page") 
    search_key = request.form("search_key") 
	search_sample=request.form("search_sample")
   update_id = session("login")

set ors_new=server.createobject("adodb.recordset")
	 sql_new="select * from search_th_ms"
	 ors_new.open sql_new,Conn,1,3
	 ors_new.movelast
	 id_res_old=ors_new("search_id")
	 search_id_new=id_res_old+1
response.write "<br>"&search_id_new&"<br>"
search_id=session("searchid")
'search_abstr_eng=request.form("search_abstr_eng")
search_abstr_eng=session("abs_eng")
if search_abstr_eng="" then
search_abstr_eng="default.txt"
end if

'search_abstr=request.form("search_abstr")
search_abstr=session("search_abs")
if search_abstr="" then
search_abstr="default.txt"
end if

'search_abstr=request.form("

sql_check="select * from search_th_ms where search_id="&search_id_new&""
set ors_check=server.createobject("adodb.recordset")
ors_check.open sql_check,conn,1,3
if  ors_check.eof then

sqldata="insert into search_th_ms (search_id,search_title,search_type,search_aut,search_adv,search_aff, search_ref,search_year,search_page,search_sample,search_key,update_id,search_abstr,search_abstr_eng)  values ("&search_id_new&",'"&search_title&"',"&search_type&",'"&search_aut&"', '"&search_adv&"',"&search_aff&",'"&search_ref&"',"&search_year&","&search_page&",'"&search_sample&"','"&search_key&"','"&update_id&"','"&search_abstr&"','"&search_abstr_eng&"')"

set orsdata = Server.CreateObject("adodb.recordset")
 orsdata.open sqldata,conn,1,3
'response.write sqldata

'sqltemp = "insert into temp_id (search_id_real) values ("&search_id_new&")"
		
	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_new&" 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
else
response.write "�����ū��"
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
%>
<meta http-equiv="refresh" content ="3;url=add_res.asp">
<%
end if
'end if
 set conn = nothing
'ors_data.close

%>
<meta http-equiv="refresh" content ="3;url=detail_res.asp?search_id=<%=search_id_new%>">
</FORM>

File Manager

Editing: research/add_data_res.asp