ASP跟据数据库路径删除文件夹下的图片

大家都知道,上传图片后,删除的只是数据库里的记录,并没有删除服务器上的图片,从而导至堆积很多无用的图片。我想实现查找数据库图片的路径(有很多条记录),再跟据路径找到文件夹... 大家都知道,上传图片后,删除的只是数据库里的记录,并没有删除服务器上的图片,从而导至堆积很多无用的图片。
我想实现查找数据库图片的路径(有很多条记录),再跟据路径找到文件夹(所有上传的图片都放在此文件夹下),再将数据库中没有此图片名的删除掉!

请问有没有完整的asp代码啊??

非常之感谢!
不知道是我不会用还是怎么的?

我设置defaultpicurl="../images/22.jpg"

uploadfiles="../images/22.jpg|../images/23.jpg|../images/24.jpg"

运行后没有点提示,不知道是怎么回事
展开
 我来答
bdwylH
2008-05-21 · 超过17用户采纳过TA的回答
知道答主
回答量:54
采纳率:0%
帮助的人:36.6万
展开全部
我给你的案例中的图片存储占用了两个字段,一个首页图片地址DefaultPicUrl,另一个是所有图片地址UploadFiles所有图片地址集由|连接。
这是在更新这一篇文章的时候删除多余文件。可以用这个算法作一个批处理。
'***************************************
'删除无用的上传文件
if ObjInstalled=True and UploadFiles<>"" then
dim fso,strRubbishFile
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if instr(UploadFiles,"|")>1 then
dim arrUploadFiles,intTemp
arrUploadFiles=split(UploadFiles,"|")
UploadFiles=""
for intTemp=0 to ubound(arrUploadFiles)
if instr(Content,arrUploadFiles(intTemp))<=0 and arrUploadFiles(intTemp)<>DefaultPicUrl then
strRubbishFile=server.MapPath("../" & arrUploadFiles(intTemp))
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
response.write "<br><li>" & arrUploadFiles(intTemp) & "在文章中没有用到,也没有被设为首页图片,所以已经被删除!</li>"
end if
else
if intTemp=0 then
UploadFiles=arrUploadFiles(intTemp)
else
UploadFiles=UploadFiles & "|" & arrUploadFiles(intTemp)
end if
end if
next
else
if instr(Content,UploadFiles)<=0 and UploadFiles<>DefaultPicUrl then
strRubbishFile=server.MapPath("../" & UploadFiles)
if fso.FileExists(strRubbishFile) then
fso.DeleteFile(strRubbishFile)
response.write "<br><li>" & UploadFiles & "在文章中没有用到,也没有被设为首页图片,所以已经被删除!</li>"
end if
UploadFiles=""
end if
end if
set fso=nothing
end If
'结束
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式