File Manager

<head>
<body>
<form  name="form1"  Action = "" method="post">

dim ors
id_res=request.querystring("search_id")
'name_stu=request.querysting("txtname_stu")
'sur_stu=request.querysting("txtsur_stu")
response.write"<tr><td>" &id_mea&"</td>"
set ors=server.createobject("adodb.recordset")
	 sqlmark="Delete from search_th_ms  where search_id= "&id_res&"  "

ors.Open sqlmark, conn, 1, 3
		response.write"ź�������������º�������Ǩ��"
sql_search_meas="select * from measurement_ms where meas_ref="&id_res&""
set ors_search_meas=server.createobject("adodb.recordset")
ors_search_meas.open sql_search_meas,conn,1,3
if not ors_search_meas.eof then

ors_search_meas.movefirst
do while not ors_search_meas.eof 
      
		sql_measref = "update measurement_ms set  meas_ref=0 where meas_ref = "&id_res&""
		set ors_measref=server.createobject("adodb.recordset")
		ors_measref.open sql_measref,conn,1,3
ors_search_meas.movenext
loop
end if
	On Error Resume Next
    oRs.Close
    Conn.Close

'end if
%>
<meta http-equiv="refresh" content ="3;url=research_page.asp">
</FORM>
</body>
</head>

File Manager

Editing: research/del_res.asp