你上传的图片名称保存在数据库里了吧!
如果是,在删除数据时下面多写一条删除图片的的代码,用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 编辑 ]