sub product1
Dim checkid,fso,fileName,myFile
checkid=Request("checkid")
rs.open "select *  from products  where id in ("& checkid &")",conn,0,1
set fso=Server.CreateObject("scripting.filesystemobject")
do while not rs.eof
fileName=rs("propic2")
myFile=Server.MapPath(fileName)
if fso.FileExists(myFile) then
fso.DeleteFile myFile
end if
rs.movenext
loop
rs.close
set rs=nothing
conn.execute("delete from products where id in ("& checkid &")")
suc
end sub

上面这段是产品信息删除的代码  现在是选择一条信息 点击提交可以删除数据和对应的图片  选择超过2条以上  只能删除数据 无法删除对应的图片    用tianyu123 写出的代码  输出的结果是所选择的图片地址是连在一起的 相互之间没有分开  就一行显示出来  也就是说现在输出的是
1   12345
2
3
不是
1   1
2   2
3   3 这样的

代码虽然没有优化，但是的确能实现功能。如果选择2条以上删除不掉，有可能问题出在javascript的客户端选择代码