<%call log_chk() call passChk() thex=request("thex") Set rs=Server.Createobject("Adodb.Recordset") sql="select * from adzp where zp_id="&thex&"" rs.open sql,conn,1,3 rs.delete rs.close set rs=nothing sql="delete from adyp where zp_id="&theX&"" conn.Execute sql ''''''''''''''''''''''''''''保留关联空位 response.write"" %>