ASP/Visual Basic代碼
- 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
ASP/Visual Basic代碼
- DelID=request("ID")
-
- set Rs=server.createobject("adodb.recordset")
-
- sql="select * from Case where Lwpid="&DelID
-
- Rs.open sql,conn,1,3
-
- DeleteFile(Rs("Pic"))
-
- Rs.delete
-
- Rs.update
-
- Rs.Close
-
- Set Rs=nothing
-
- Response.Write "<script>alert('刪除成功！');window.location.href='?Action=Manage';</script>"
-
- Response.end()
刪除時不要用直接的刪除sql語句了，那樣無法獲取PIC值
如果批量刪除記錄可以做循環調用DeleteFile函數
ASP/Visual Basic代碼
- DelID=request("ID")
-
- set Rs=server.createobject("adodb.recordset")
-
- sql="select * from Case where ID in ("&Request("ID")")"
-
- Rs.open sql,conn,1,3
-
- do while not Rs.eof
-
- DelFile(Rs("Pic"))
-
- Rs.delete
-
- Rs.movenext
-
- loop
-
- Rs.update
-
- Rs.Close
-
- set Rs=nothing
文章整理：
世紀云圖 http://www.somcg.cn/
以上信息與文章正文是不可分割的一部分,如果您要轉載本文章,請保留以上信息，謝謝!
版權申明：本站文章部份來自網絡，如有侵權，請聯系我們，我們收到后立即刪除，謝謝！
特別注意：本站部份轉載文章言論不代表本站觀點，本站所提供的攝影照片，插畫，設計作品，如需使用，請與原作者聯系，版權歸原作者所有。
