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()
删除時不要用直接的(de)删除sql語句了，那樣無法獲取PIC值
如(rú)果批量删除記錄可(kě)以做(zuò)循環調用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ě)分割的(de)一(yī)部分,如(rú)果您要轉載本文章(zhāng),請保留以上信息，謝謝!
版權申明：本站文章(zhāng)部份來自(zì)網絡，如(rú)有侵權，請聯系我們，我們收到後立即删除，謝謝！
特别注意：本站部份轉載文章(zhāng)言論不代表本站觀點，本站所提供的(de)攝影照片，插畫，設計作品，如(rú)需使用，請與原作者聯系，版權歸原作者所有。
