作家
登录

asp 删除数据并同时删除图片的代码

作者: 来源:www.28hudong.com 2013-03-30 08:18:52 阅读 我要评论

第一种方法:这个是删除单字段图片的代码。比较简单,因为图片字段已经预先存在数据库表的bookpic的字段里面了。 复制代码 代码如下: <!--#include file="conn.asp"--> <% fileid=trim(request("fileid"))'要删除的记录ID set rs=server.createobject("adodb.recordset") sql="select * from shop_books where bookid=3090" rs.open sql,conn,3,2 upfile=rs("bookpic") '带路径和文件名 set fso=server.CreateObject("scripting.filesystemobject") fso.deletefile(server.MapPath(upfile)) set fso=nothing rs.delete rs.update rs.close set rs=nothing %> 第二种方法:对于多图片的asp程序下大家在添加信息的时候可以用ewebeditor,这个可以将文章种的图片提取后放到一个字段里面。复制代码 代码如下: Id=Request("Id") If Id="" Then Response.Write("<script>alert('删除操作失败:请选择需要删除的信息!');hitory.go(-1);</script>") Else Id=Split(Id,",") For i=0 to UBound(Id) set oRs=SerVer.CreateObject("Adodb.recordset") sSql = "SELECT D_SavePathFileName FROM "&data&" WHERE ID="&id(i)&"" oRs.Open sSql, Conn, 0, 1 If Not oRs.Eof Then asSavePathFileName = oRs("D_SavePathFileName") Else asSavePathFileName="" End If oRs.Close Set oRs=Nothing Dim aSavePathFileName if len(aSavePathFileName)>0 then aSavePathFileName = Split(asSavePathFileName, "|") Dim n For n = 0 To UBound(aSavePathFileName) ' 按路径文件名删除文件 Call DoDelFile(aSavePathFileName(n)) Next '删除文章 www.jb51.net Conn.Execute("delete from Article where id="&id(i)&"") Next end if Sub DoDelFile(sPathFile) 'On Error Resume Next Dim oFSO Set oFSO = Server.CreateObject("Scripting.FileSystemObject") if objFSO.fileExists(Server.MapPath(sPathFile)) then oFSO.DeleteFile(Server.MapPath(sPathFile)) end if Set oFSO = Nothing End Sub

  推荐阅读

  ASP 获取腾讯IP地址的代码

提问: 复制代码 代码如下: <script type=text/javascript src=http://fw.qq.com/ipaddress></script> <script type=text/javascript> var hehe1=IPData[2] var hehe2=IPData[3] alert(hehe1); alert(hehe2); docu>>>详细阅读


本文标题:asp 删除数据并同时删除图片的代码

地址:http://www.17bianji.com/kaifa2/ASP/31940.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)