注册 登录
编程论坛 ASP技术论坛

asp无组件上传图片之后怎么删除文件夹里图片?

limeng586aa 发布于 2009-09-19 09:22, 1443 次点击
  利用无组件添加完数据后,删除该数据,数据是删除了,但是与数据相关的图片怎么删除不掉啊,请路过的可以实现这个功能的,给个思路和实例,谢谢!!!
3 回复
#2
孤独冷雨2009-09-19 10:10
你上传的图片名称保存在数据库里了吧!
如果是,在删除数据时下面多写一条删除图片的的代码,用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 编辑 ]
#3
myosotis2009-09-19 15:15
先提取出来图片地址,然后再用FSO进行删除操作
#4
chenbofeng202009-09-19 16:21
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
1