ASP删除记录同时删除图片代码(推荐使用亲测可用)
来源：
互联网
日期：2010-10-1
|
| |
|
|
| |
我们针对各种网店的需求，提供具有专业针对性的智能网店。集易用性和强大功能为一体，支持静态HTML生成和搜索优化、个性化模版定制、强大的网店管理系统和各种专业网店功能...点此申请
|
|
| |
|
|
| |
智能建站已经成为企业网站建设的主要方式，建立个性化企业网站是企业品牌形象的体现；具有强大灵活的网站功能、HTML生成、搜索引擎优化，现有简体、繁体、英文、日文等多国语言可选用。赶快申请，立即拥有个性化企业网站... |
|
| |
|
|
| |
三语易站是国内受众最广泛的傻瓜式自助建站系统。只要会打字就可以建站，支持简繁英三语，简繁自动转换；具有单页、文章、图文、下载等网站内容管理功能，自定义栏目内容设置，管理系统简单易用，适合企业个人自助创建和管理网站...点此申请
|
|
|
|
|
| Tc711Com提示：删除图片函数，当然也可以删除其它文件了 推荐使用亲测可用) | 删除图片函数，当然也可以删除其它文件了 推荐使用亲测可用)
<%
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"))。
精品网站程序下载(草根站长最爱)
QQ2013,QQ2012临时会话插件(全国首发)
711旅游网站管理系统V2013（无功能限制）
711幻灯片管理系统（全国首发） 各类网站程序下载
711企业网站管理系统V2013个人版（无功能限制）
711免费在线客服系统个人版 V2.0
电影小偷采集程序V2013免费下载 点此查看
更多的ASP删除记录同时删除图片代码(推荐使用亲测可用)请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2010-10-1
|
|
|
设为首页 | 
加入收藏
