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

　　<!--#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

　　%>

　　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.glzy8.com

　　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