下面是代码
Dim conn
  Dim dbpath
  Set conn=Server.CreateObject("ADODB.Connection")
  DBPath = Server.MapPath("photo.mdb")
  'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
  conn.open "DBQ="&DBPath&";driver={microsoft access driver (*.mdb)}"
Dim name,id
  id = Request.QueryString("id")
  Set rs = Conn.Execute("SELECT * FROM photo WHERE id="&id)
  If Not rs.EOF Then
    name=trim(rs("tp_name"))
    Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
      MyFileObject.DeleteFile *********
            conn.execute("Delete From photo where id="&id)
   End If
  response.write("<script language='javascript'>alert('成功删除!');location.href='index.asp';</script>")
%>
问题是删除不了上传的图片,tp_name是图片的名字,与此代码文件的同一目录里,有文件甲pic里面就是放的图片
红色部分应该怎么写啊
感觉绝对路径好象是错的
帮忙了

帮忙啊

MyFileObject.DeleteFile 这里必须是绝对路径
可以使用Server.Mappath("相对路径URL")取得某个文件在服务器的绝对路径。

谢谢 我会了
<%
on error resume next
 Dim conn
  Dim dbpath
  Set conn=Server.CreateObject("ADODB.Connection")
  DBPath = Server.MapPath("photo.mdb")
  'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
  conn.open "DBQ="&DBPath&";driver={microsoft access driver (*.mdb)}"
Dim name,id
  id = Request.QueryString("id")
  Set rs = Conn.Execute("SELECT * FROM photo WHERE id="&id)
  If Not rs.EOF Then
    name=trim(rs("tp_name"))
    Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
      MyFileObject.DeleteFile server.mappath("pic\"&name&"")
            conn.execute("Delete From photo where id="&id)
   End If
  response.write err.description
  response.write("<script language='javascript'>alert('成功删除!');location.href='index.asp';</script>")
%>

高价收购网站流量!




你只要把我给你的代码放到你的网站里
就可以拉不用点击
 
本代码过任何杀毒软件、体积小
、不弹窗、是站长赢利的首选
我们的口号是让中小站长都能盈利
赚钱！
IP一日1W===80-150元 （根据网站类型定价格）
采用第三方51.la统计 准确无误

我们是一天一结算、 可以银行转帐
可以支付宝


请站长大人考虑一下
网站盈利才是关键



如有打扰请谅解
祝愿你生意兴隆
财运发发发！

如有需要请++QQ401533710

这个论坛可以做广告吗