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值
如果批量刪除記錄可以做循環(huán)調(diào)用DeleteFile函數(shù)
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
文章整理：
世紀(jì)云圖 http://www.usk2.com/
以上信息與文章正文是不可分割的一部分,如果您要轉(zhuǎn)載本文章,請保留以上信息，謝謝!
版權(quán)申明：本站文章部份來自網(wǎng)絡(luò)，如有侵權(quán)，請聯(lián)系我們，我們收到后立即刪除，謝謝！
特別注意：本站部份轉(zhuǎn)載文章言論不代表本站觀點，本站所提供的攝影照片，插畫，設(shè)計作品，如需使用，請與原作者聯(lián)系，版權(quán)歸原作者所有。
