删除图片代码

2022-07-15 03:14:30 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《删除图片代码》，欢迎阅读！
删除,代码,图片

图片文件夹地址是：admin/img 数据表是new 图片字段是：img 下面代码就是删除不了文件夹里面的图片 <%

Function DeleteFile(FileName)

FileName=server.MapPath(FileName) '必须转换成绝对路径的 dim Fso

Set Fso = CreateObject("scripting.filesystemobject") if Fso.FileExists(Filename) then '判断文件是否存在 Fso.DeleteFile filename end if

Set Fso = nothing End Function %> <%

id=request("id")

set rs=server.createobject("adodb.recordset") sql="select * from new where id="&id rs.open sql,conn,1,3 DeleteFile(rs("img")) rs.delete rs.update rs.close

set rs=nothing %>

最佳答案你好，你的问题还是你的路径问题，我在你的代码上稍作修改，就可以了，代码如下：

<%

Function DeleteFile(FileName) aaa="img/"&FileName

bbb=server.MapPath(aaa) '必须转换成绝对路径的 dim Fso

Set Fso = CreateObject("scripting.filesystemobject") if Fso.FileExists(bbb) then '判断文件是否存在 Fso.DeleteFile(bbb) end if

Set Fso = nothing End Function %> <%

id=request("id")

set rs=server.createobject("adodb.recordset") sql="select * from [new] where id="&id rs.open sql,conn,1,3 DeleteFile(rs("img")) rs.delete rs.update rs.close

set rs=nothing

response.redirect "xh_add.asp" %>

以上代码经测试是没问题的~

ASP删除记录同时删除图片代码...asp编程 2009-09-16 11:00:13 阅读72 评论1 字号：大中小订阅

现在ASP网页在上传图片时大部分都是用无组件上传，把图片上传到一个文件夹，然后把路径保存到数据库一个字段中，那么在删除记录时只是把相应的数据库记录删除掉了，相关的图片还会保留在服务器的文件下，会有好多无用的图片占用着空间，想删除记录时把相关图片也删掉怎么办？以下代码可以实现，但必须服务器得支持FSO组件（大多数服务器都可用）

删除图片函数，当然也可以删除其它文件了 <%

Function DeleteFile(FileName)

FileName=server.MapPath(FileName) '必须转换成绝对路径的 dim Fso

Set Fso = CreateObject("scripting.filesystemobject") if Fso.FileExists(Filename) then '判断文件是否存在 Fso.DeleteFile filename end if

Set Fso = nothing End Function %>

比如说：你的数据库中news表字段PIC存放着图片路径，删除时不要用直接的删除sql语句了，那样无法获取PIC值 <%

id=request("id")

set rs=server.createobject("adodb.recordset") sql="select * from news where id="&id rs.open sql,conn,1,3 DeleteFile(rs("pic")) rs.delete rs.update rs.close

set rs=nothing %>

如果批量删除记录可以做循环调用DeleteFile函数 <%

id=request("id")

set rs=server.createobject("adodb.recordset")

sql="select * from news where id in('"&id&"')'不止一个ID rs.open sql,conn,1,3 do while not rs.eof DelFile(rs("pic")) rs.delete rs.movenext loop

rs.update rs.close

set rs=nothing %>

本删除适合表中PIC字段只存放一张图片的情况下删除文章同时删除图片，如果多个字段中存放图片，可以在DelFile(rs("pic"))接着加DelFile(rs("pic1"))，DelFile(rs("pic2"))。

本文来源：https://www.dywdw.cn/46ebaf4f2e3f5727a5e962e4.html