asp 刪除數(shù)據(jù)并同時(shí)刪除圖片的代碼
<!--#include file="conn.asp"-->
<%
fileid=trim(request("fileid"))'要?jiǎng)h除的記錄ID
set rs=server.createobject("adodb.recordset")
sql="select * from shop_books where bookid=3090"
rs.open sql,conn,3,2
upfile=rs("bookpic") '帶路徑和文件名
set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefile(server.MapPath(upfile))
set fso=nothing
rs.delete
rs.update
rs.close
set rs=nothing
%>
第二種方法:對(duì)于多圖片的
asp程序下大家在添加信息的時(shí)候可以用ewebeditor,這個(gè)可以將文章種的圖片提取后放到一個(gè)字段里面。
Id=Request("Id")
If Id="" Then
Response.Write("<script>alert('刪除操作失?。赫?qǐng)選擇需要?jiǎng)h除的信息!');hitory.go(-1);</script>")
Else
Id=Split(Id,",")
For i=0 to UBound(Id)
set oRs=SerVer.CreateObject("Adodb.recordset")
sSql = "SELECT D_SavePathFileName FROM "&data&" WHERE ID="&id(i)&""
oRs.Open sSql, Conn, 0, 1
If Not oRs.Eof Then
asSavePathFileName = oRs("D_SavePathFileName")
Else
asSavePathFileName=""
End If
oRs.Close
Set oRs=Nothing
Dim aSavePathFileName
if len(aSavePathFileName)>0 then
aSavePathFileName = Split(asSavePathFileName, "|")
Dim n
For n = 0 To UBound(aSavePathFileName)
' 按路徑文件名刪除文件
Call DoDelFile(aSavePathFileName(n))
Next
'刪除文章 www.dbjr.com.cn
Conn.Execute("delete from Article where id="&id(i)&"")
Next
end if
Sub DoDelFile(sPathFile)
'On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath(sPathFile)) then
oFSO.DeleteFile(Server.MapPath(sPathFile))
end if
Set oFSO = Nothing
End Sub
相關(guān)文章
ajax+asp無(wú)限級(jí)分類(lèi)樹(shù)型結(jié)構(gòu)(帶數(shù)據(jù)庫(kù))
帶數(shù)據(jù)庫(kù)的ajax+asp無(wú)限級(jí)分類(lèi)樹(shù)型結(jié)構(gòu),好東西別錯(cuò)過(guò)2009-07-07ASP讀取XML實(shí)例 優(yōu)酷專(zhuān)輯采集程序 雷鋒版
用asp獲取指定專(zhuān)題的xml文件,然后讀取xml文件的列表內(nèi)容批量讀取。2009-12-12ASP所有的Session變量獲取實(shí)現(xiàn)代碼
在程序調(diào)試中,有時(shí)候需要知道有多少Session變量在使用,她們的值如何?由于Session對(duì)象提供一個(gè)稱(chēng)為Contents的集合(Collection),我們可以通過(guò)For...Each循環(huán)來(lái)達(dá)到目標(biāo)2009-07-07asp下用replace非正則實(shí)現(xiàn)代碼運(yùn)行功能的代碼
asp下用replace非正則實(shí)現(xiàn)代碼運(yùn)行功能的代碼...2007-09-09再來(lái)個(gè)專(zhuān)門(mén)為google量身定做的sitemap生成代碼,(可是動(dòng)態(tài)的哦)
再來(lái)個(gè)專(zhuān)門(mén)為google量身定做的sitemap生成代碼,(可是動(dòng)態(tài)的哦)...2006-12-12ASP中實(shí)現(xiàn)限制IP的函數(shù)詳解
ASP中實(shí)現(xiàn)限制IP的函數(shù)詳解...2007-04-04asp下利用fso實(shí)現(xiàn)文件夾或文件移動(dòng)改名等操作函數(shù)
以后利用fso來(lái)操作文件和文件夾就方便了2008-01-01ASP操作Excel相關(guān)技術(shù)總結(jié)
ASP操作Excel相關(guān)技術(shù)總結(jié)...2007-05-05