如何删除所有已经上传的文件夹和其中的图片?
各位好:请教一个问题,我有一个批量上传图片的程序,每次最多可上传四个图片,上传后的这四个图片保存在一个新生成的文件夹中. 原来的删除程序只能删除每次上传的四个图片,我想一次删除数据库中的所有已上传的文件,如何修改这段程序?
即: 一次删除全部的已经上传的图片(或者说产生的所有文件夹).
执行删除代码:
<%action=request("action")
if action="delete" then
id=request("id")
folder=request("folder")
set res=server.CreateObject("ADODB.RecordSet")
sql="select * from book where id="&id
res.open sql,conn,1,3
res.delete
res.close
set res=nothing
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(server.mappath(folder)) Then '判断文件夹是否存在
fso.DeleteFolder server.mappath(folder) '删除文件夹
End If
response.Write "<script language=javascript>alert('记录已经删除！');window.location.href='uplist.asp';</script>"
删除链接:
<a href=uplist.asp?action=delete&id=<%=rs("id")%>&folder=<%=rs("folder")%> onClick="return confirm('您确定要删除吗？');">删除记录</a>
end if%>
