delete.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%         
  Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1

      conn.Execute "delete from pubfood  where Id=" & request.querystring("id")   
      conn.Close   
      set conn=nothing   
%>   
<script language="javascript">   
	window.close();
	window.opener.parent.frames("main").document.location ="index.asp";   
</script>