删除记录并删除上传图片

这段代码可在同一页面执行删除新闻,并删除新闻上传的图片等,但只能对单一记录进行删除! 给新手看看吧!!

vb 代码
 
  1. <%if request.QueryString("action")="del" then
  2. dim fso,file,i

  3. Set rs = Server.CreateObject("adodb.recordset")

  4. sql="select * from news where news_id in ("&request("selectdel")")"

  5. rs.open sql,conn,1,3

  6. file=rs("pic_url")

  7. set fso=server.CreateObject("Scripting.FileSystemObject")

  8.   if fso.FileExists(server.mappath("../"&file)) then

  9.    fso.deletefile(server.mappath("../"&file))
  10.    end if
  11.    set fso=nothing
  12.    conn.execute "delete from news where news_id in ("&request("selectdel")")"
  13.  response.Redirect "news_list.asp"
  14. end if
  15. %>