海南世纪云图网络科技有限公司
咨询热线:400-822-8458 技术支持:0898-66754910 客户服务:0898-32183600

ASP删除记录同时删除图片(实例代码)

发表于:2011-07-06 00:00:00来源:SOUAB.COM人气:1781

ASP/Visual Basic代码
  1. Function DeleteFile(FileName)   
  2.   
  3. FileName=server.MapPath(FileName) '必须转换成绝对路径的   
  4.   
  5. dim Fso   
  6.   
  7. Set Fso = CreateObject("scripting.filesystemobject")   
  8.   
  9. if Fso.FileExists(Filename) then '判断文件是否存在   
  10.   
  11. Fso.DeleteFile filename    
  12.   
  13. end if   
  14.   
  15. Set Fso = nothing   
  16.   
  17. End Function  
ASP/Visual Basic代码
  1. DelID=request("ID")   
  2.   
  3. set Rs=server.createobject("adodb.recordset")    
  4.   
  5. sql="select * from Case where Lwpid="&DelID   
  6.   
  7. Rs.open sql,conn,1,3    
  8.   
  9. DeleteFile(Rs("Pic"))   
  10.   
  11. Rs.delete   
  12.   
  13. Rs.update   
  14.   
  15. Rs.Close   
  16.   
  17. Set Rs=nothing   
  18.   
  19. Response.Write "<script>alert('删除成功!');window.location.href='?Action=Manage';</script>"    
  20.   
  21. Response.end()  

删除时不要用直接的删除sql语句了,那样无法获取PIC值

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

ASP/Visual Basic代码
  1. DelID=request("ID")   
  2.   
  3. set Rs=server.createobject("adodb.recordset")    
  4.   
  5. sql="select * from Case where ID in ("&Request("ID")")"'不止一个ID   
  6.   
  7. Rs.open sql,conn,1,3   
  8.   
  9. do while not Rs.eof    
  10.   
  11. DelFile(Rs("Pic"))   
  12.   
  13. Rs.delete   
  14.   
  15. Rs.movenext   
  16.   
  17. loop   
  18.   
  19. Rs.update   
  20.   
  21. Rs.Close   
  22.   
  23. set Rs=nothing  

 

文章整理: 世纪云图  https://www.yuntop.cc/

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

版权申明:本站文章部份来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站部份转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。

微信
网站建设
软件业务
网络营销
400电话