有点难度的问题，关于如何级联删除记录的同时并删除相关图片
数据库ACCESS，建立了表A，表B，表C，表D
字段分别为
a_id,a_pic
b_id,b_aid,b_pic
c_id,c_bid,c_pic
d_id,d_cid,d_pic

其中a_id与b_aid关联，b_id与c_bid关联，c_id与d_cid关联,组成一对多的级联关系，当删除表A的某字段时候，以下各表的相关字段都会被删除，请问怎样可以删除与各表相关的图片？PIC为图片名称。

我只能删除两级关联的记录与响应图片，请问四级关联的应该如何删除？
以下为删除两级关联的代码：

<%
send_id=Request( "c_id ")
set conobject=server.CreateObject( "adodb.connection ")
DBPath=Server.MapPath( "../mydata/mydata.mdb ")
conobject.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&DBPath
%>

<%
sql= "select * from 表D where d_cid= "&send_id
set rs2=server.createobject( "adodb.recordset ")
rs2.open sql,conobject,2,2
while not rs2.eof
Source= Server.MapPath( "img/ "&rs2( "d_pic "))
Set fs=CreateObject( "Scripting.FileSystemObject ")
fs.DeleteFile Source,Ture
Set fs=Nothing
rs2.delete
rs2.movenext
wend
rs2.close
set rs2=nothing
%>

<%
sql= "select * from 表C where c_id= "&send_id
set rs3=server.createobject( "adodb.recordset ")
rs3.open sql,conobject,2,2
while not rs3.eof
Source= Server.MapPath( "img/ "&rs3( "c_pic "))
Set fs=CreateObject( "Scripting.FileSystemObject ")
fs.DeleteFile Source,Ture
Set fs=Nothing
rs3.delete
rs3.movenext
wend
rs3.close
set rs3=nothing
set fs=nothing
%>

[解决办法]
有记录图片的路径没有?
有的话那就简单了,根据数据库里需要删除的记录中对的图片路径
用fso删除掉对应图片就成了
[解决办法]
这是删除数据里面的相关记录吧

delete * From (((A inner join B on A.ID=B.a_aid) inner join C on B.ID=C.c_bid) inner join D on C.ID=D.d_cid) where A.ID=1

再删除文件吧

有错还忘请正
[解决办法]
set fso=server.createobject( "scripting.filesystemobject ")

fso.deletefile a表中的pic
conn.execute( "delete from [a] where a_id= "&id)

if conn.execute( "select count(b_id) from [b] where b_aid= "&id)(0)> 0 then
set rs=conn.exeucte( "select * from [b] where b_aid= "&id)
do while not rs.eof
fso.deletefile b表中的pic '先删图片
if conn.execute( "select count(c_id) from [c] where c_bid= "&rs( "b_id "))(0)> 0 then
set rs_c=conn.execute( "select * from [c] where c_bid= "&rs( "b_id "))
do while not rs_c.eof
fso.deletefile c表中的pic
if conn.execute( "select count(d_id) from [d] where d_cid= "&rs_c( "c_id "))(0)> 0 then
set rs_d=conn.execute( "select * from [d] where d_cid= "&rs_c( "c_id "))
do while not rs_d.eof

fso.deletefile d表中的pic
rs_d.movenext
loop
rs_d.close:set rs_d=nothig
conn.execute( "delete from [d] where d_cid= "&rs_c( "c_id "))
end if
rs_c.movenext
loop
rs_c.close:set rs_c=nothing
conn.execute( "delete from [c] where c_bid= "&rs_b( "b_id "))
end if
rs.movenext
loop
rs.close:set rs=nothing
conn.execute( "delete from [b] where b_aid= "&id)
end if
end if


[解决办法]
呵呵，飘过
[解决办法]
查询出所有要删除的记录,取出所有的图片路径并存入数组,删除所有数据后,用Scripting.FileSystemObject 循环数组删除所有图片