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