| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 728 人关注过本帖
标题:如何删除所有已经上传的文件夹和其中的图片?
只看楼主 加入收藏
cssart
Rank: 1
等 级:新手上路
帖 子:47
专家分:5
注 册:2008-10-11
结帖率:41.67%
收藏
 问题点数:0 回复次数:1 
如何删除所有已经上传的文件夹和其中的图片?
各位好:

  请教一个问题,我有一个批量上传图片的程序,每次最多可上传四个图片,上传后的这四个图片保存在一个新生成的文件夹中. 原来的删除程序只能删除每次上传的四个图片,我想一次删除数据库中的所有已上传的文件,如何修改这段程序?

   即: 一次删除全部的已经上传的图片(或者说产生的所有文件夹).

执行删除代码:
<%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%>
搜索更多相关主题的帖子: 删除 文件 
2009-10-07 12:06
cssart
Rank: 1
等 级:新手上路
帖 子:47
专家分:5
注 册:2008-10-11
收藏
得分:0 
删除数据库中记录倒容易,我的问题是如何删除这些已经上传的文件夹与其中的图片,也就是无需判断哪个ID,直接删除全部文件.

应该把数据表中的所有记录中的文件夹名称循环一遍,如何写这段代码?

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(server.mappath(folder)) Then '判断文件夹是否存在
fso.DeleteFolder server.mappath(folder) '删除文件夹
End If


先谢了!

[ 本帖最后由 cssart 于 2009-10-7 12:11 编辑 ]
2009-10-07 12:08
快速回复:如何删除所有已经上传的文件夹和其中的图片?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014334 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved