利用无组件添加完数据后，删除该数据，数据是删除了，但是与数据相关的图片怎么删除不掉啊，请路过的可以实现这个功能的，给个思路和实例，谢谢！！！

你上传的图片名称保存在数据库里了吧！
如果是，在删除数据时下面多写一条删除图片的的代码，用FSO！
下面是删除图片代码，你照着对应你的改一下：
Set fdel = CreateObject("Scripting.FileSystemObject")
      
 if gimagenum > 0 then 'gimagenum图片张数

 for i=1 to gimagenum

        tempImageName = left(gfirstImageName,Instr(gfirstImageName,"_")-1)&"_"&i&".gif"

       tempImageDir= Server.MapPath("uppic/"&tempImageName)'tempImageName数据库图片名称
              
(fdel.FileExists(tempImageDir)) Then '检察图片是否存在！

fdel.DeleteFile(tempImageDir)'存在就删除

 end if              
 next
end if
set fdel=nothing

[ 本帖最后由 孤独冷雨 于 2009-9-19 10:19 编辑 ]

先提取出来图片地址，然后再用FSO进行删除操作

id=request("id")  
set rs=server.CreateObject("adodb.recordset")
sql="Select * From picture where id="&id
rs.open sql,conn,1,3
a=rs("picture") '此处的a取到的是存放在数据库中图片的路径
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileexists(Server.MapPath(a)) then
    objFSO.deletefile Server.MapPath(a),true
end if
conn.execute("delete from picture where id="&id)
end sub