set rs=server.CreateObject("adodb.recordset")
sql="select * from TABLE where id="& id
rs.open sql,conn,3,2

'删除图片开始

upfile=rs("file") '带路径和文件名
set fso=server.CreateObject("scripting.filesystemobject") 
fso.deletefile(server.MapPath(upfile)) 
set fso=nothing

'删除图片结束

rs.delete '数据库记录删除
rs.update 
rs.close
set rs=nothing