第一种方法:这个是删除单字段图片的代码。比较简单，因为图片字段已经预先存在数据库表的bookpic的字段里面了。

复制代码 代码如下:

<>

<%

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

'删除文章 www.jb51.net

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