asp 删除数据并同时删除图片的代码

　　第一种方法:这个是删除单字段图片的代码。比较简单，因为图片字段已经预先存在数据库表的bookpic的字段里面了。
复制代码 代码如下:
<!--#include file=conn.asp-->
<%
fileid=trim(request(fileid))要删除的记录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
%>

第二种方法：对于多图片的
asp程序下大家在添加信息的时候可以用ewebeditor，这个可以将文章种的图片提取后放到一个字段里面。
复制代码 代码如下:
Id=Request(Id)
If Id= Then
Response.Write(<script>alert(删除操作失败：请选择需要删除的信息！);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
删除文章
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