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值
如(rú)果批量删除記錄可(kě)以做循環調用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
文章(zhāng)整理(lǐ)：
世紀雲圖 /
以上信息與文章(zhāng)正文是不可(kě)分(fēn)割的一部分(fēn),如(rú)果您要轉載本文章(zhāng),請(qǐng)保留以上信息，謝謝!
版權申明：本站(zhàn)文章(zhāng)部份來(lái)自(zì)網絡，如(rú)有侵權，請(qǐng)聯系我們，我們收到後立即删除，謝謝！
特别注意：本站(zhàn)部份轉載文章(zhāng)言論不代表本站(zhàn)觀點，本站(zhàn)所提供的攝影(yǐng)照(zhào)片，插畫(huà)，設計(jì)作(zuò)品，如(rú)需使用，請(qǐng)與原作(zuò)者聯系，版權歸原作(zuò)者所有。
