设为首页 | 收藏本页
登陆您的帐号 | 免费注册帐号
全部栏目 > 计算机 > 安全 > 加密解密
下一篇上一篇 首页图文展示(无图)

ASP删除记录同时删除图片代码(推荐使用亲测可用)


等级:
文章:1|2
注册:2020-06-04
商号:未登记
信誉:查看资质
发布人:zyc
发布日期:2015-06-09 07:37:10
刷新日期:2015-06-09 07:37:34
回复或评论:0
阅览:639
删除图片函数,当然也可以删除其它文件了  推荐使用亲测可用
< %
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 
DeleteFile(rs("pic"))
rs.delete
rs.movenext
loop
rs.update
rs.close
set rs=nothing
%>
本删除适合表中PIC字段只存放一张图片的情况下删除文章同时删除图片,如果多个字段中存放图片,可以在DelFile(rs("pic"))接着加DelFile(rs("pic1")),DelFile(rs("pic2"))。
评论(0) 暂无回帖


打印 收藏 关闭窗口 下一篇上一篇