In[]:=
p1=ContourPlot3D[{y-x*z,z^2-(x+1)},{x,-2,2},{y,-2,2},{z,-2,2},Contours{0},ContourStyleOpacity[.2],MeshNone,BoundaryStyle{1None,2None,{1,2}{{Green,Tube[.02]}}},BoxedTrue,PlotPoints30,ImageSizeLarge,BoxRatios{1,1,4}];​​p2=ContourPlot3D[{z+2,y^2-x^2*(x+1)},{x,-2,2},{y,-2,2},{z,-2,2},Contours{0},ContourStyleOpacity[0],MeshNone,BoundaryStyle{1None,2None,{1,2}{{Red,Tube[.02]}}},BoxedTrue,PlotPoints30,ImageSizeLarge,BoxRatios{1,1,1}];​​Show[p1,p2]
Out[]=