想用asp在删除多条数据的同时,删除多条数据的附加图片,代码如下:
<!--#include file="../inc/conn.asp"-->
<%
    dim ids
    ids=request("ids")
    if ids="" then
    response.Write("没有请求的文章")
    response.end
    else
%>
<%
    dim sql,rs,drs
    set rs=server.createobject("adodb.recordset")
    sql="select * from news where id in("&ids&")"
    rs.open sql,conn,1,1
%>
    <%
    filename=Server.MapPath("../file/"&rs("fileurl"))
    Do While Not rs.Eof
    '删除图片
    Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
    if MyFileObject.FileExists(trim(filename))=true then
       MyFileObject.DeleteFile trim(filename)
    End If
    rs.MoveNext()
    Loop
    sql="delete from news where id in("&ids&")"
    conn.execute(sql)
    end if
    conn.close
    set conn=nothing
    response.write("记录删除成功")
%>
错语如下:

[用户系统信息]Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)