Question

如何调用这删除信息时同时删除多个图片?

asp
Sub DoDelFile(sPathFile)
On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile(Server.MapPath(sPathFile))
Set oFSO = Nothing
End Sub
'上面的是删除相关图片
'下面的是删除信息
if request.QueryString("action")="del" then
conn.execute "delete from gongcheng where gc_id in ("&request("selectdel")&")"
response.Redirect "editgc3.asp"
end if

如果才能在删除信息时同时删除掉相关的图片?
同时选择多条信息时也得同时删除多张图片.
再删除数据之前,先读数据库,记录下所有要删除的图片,再删除记录,删除成功的话,再删除图片?
照你这样怎么做的?可以贴代码上来看看吗?

Answer 1

在这儵语句conn.execute "delete from gongcheng where gc_id in ("&request("selectdel")&")"
之前先取得图片路径
rs=conn.execute("select * from gongcheng where gc_id in(&request("selectdel")&")"
用一个循环进行删除
do while not rs.eof
call DoDelFile(rs("路径"))
loop
然后再是
conn.execute "delete from gongcheng where gc_id in ("&request("selectdel")&")"
就可以了

rs=conn.execute("select * from gongcheng where gc_id in(&request("selectdel")&")"
do while not rs.eof
call DoDelFile(rs("路径"))
loop
就是取路径,循环删除的代码啊

Answer 2

没看懂你的东西,但是我做过差不多的东西:
再删除数据之前,先读数据库,记录下所有要删除的图片,再删除记录,删除成功的话,再删除图片(先判断是否存在File.Exists(...)).

Answer 3

用FSO！

在删除信息的时候 在找到此图片的链接地址！

用FSO去删除......