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
文章整理:
世紀雲圖 https://www.yuntop.cc/
以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!
版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)(wǒ)們,我(wǒ)(wǒ)們收到後立即删除,謝謝!
特别注意:本站部份轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系,版權歸原作者所有。