| Tc711Com提示：[原创]asp批量删除数据同时删除文件夹中的图片 通过一个循环就可以了 . 循环内用FSO来删除 |
代码要求: 选择一个“张家界风景”分类表ID号为2，然后去图片表内找字段标记为2的图片，并删除它们，同时也要删除它们的实际文件和它们的缩略图，而不仅仅是数据库的记录。
目前表有两个： 图片表:pic 图片分类标题表：pic_tilte
图片表:pic内：
id=号、图片下载地址=pic_url、图片缩略图=pic_ioc、图片大小pic_size、图片日期=pic_dat、图片介绍-pic_text、分类标识=pic_zu
图片分类标题表内：
id=号、分类标题=pic_tilte、图片数量=pic_num、分类新建日期=tilte_dat、分类介绍=tilte_text
物理文件：
大图路径=“upload/” 缩略图路径=“images/”
批量删除指令发出：
delete_pic.asp?id=id
实现效果代码 :
<%
sub delfile(imgsrc) '删除文件
dim fs
set fs=createobject("scripting.filesystemobject")
if fs.FileExists(Server.MapPath(imgsrc)) then
fs.DeleteFile(server.mappath(imgsrc))
end if
set fs=nothing
end if
end sub
id=request("id")
set rs=conn.execute("select id,pic_url,pic_ioc from [pic] where pic_zu="&id)
do while not rs.EOF
call delfile("upload/"&rs(1)) '删除大图文件
call delfile("images/"&rs(2)) '删除缩略图文件
rs.movenext
loop
conn.execute("delete from [pic] where pic_zu="&id) '批量删除图片表记录
conn.execute("delete from [pic_title] where id="&id) '删除分类表记录
%>
更多的[原创]asp批量删除数据同时删除文件夹中的图片请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2012-7-29
