海南(nán)世紀雲圖網絡科技有限公司
咨詢熱線:400-822-8458 客戶服務:0898-32183600

ASP删除記錄同時删除圖片(實例代碼)

發表于:2011-07-06 00:00:00來源:SOUAB.COM人氣:2950

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")")"'不止一(yī)個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/

以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!

版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)(wǒ)們,我(wǒ)(wǒ)們收到後立即删除,謝謝!

特别注意:本站部份轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系,版權歸原作者所有。

微信
網站建設
軟件業務
網絡營銷
400電話(huà)