各位大虾 我问下asp选择输出在前台是怎么实现的，  我现在在后台选择了好几条数据， 点击提交后， 在前台只显示最后一条被选中的信息，  而不是所有选择的信息。  比如， 现在产品页面有产品1、 产品2、 产品3、 产品4 、产品5 ，  我选择了产品2 和产品5 ， 但是点击提交后显示的是产品5的信息，   不是 产品2和产品5 的信息。

Dim checkid,fso,fileName,myFile
checkid=Request("checkid")
rs.open "select *  from products  where id in ("& checkid &")",conn,0,1
fileName=rs("propic2")
Response.Write fileName
rs.close
set rs=nothing  
 
这个是显示代码 测试的   checkid 表示是被选中的ID  产品页面
搞了几天了 还是搞不顶  在这里 小弟先 谢谢了

代码中加入蓝色代码即可

Dim checkid,fso,fileName,myFile
checkid=Request("checkid")
rs.open "select *  from products  where id in ("& checkid &")",conn,0,1
do while not rs.eof
fileName=rs("propic2")
Response.Write fileName
rs.movenext
loop
rs.close
set rs=nothing

谢谢啊   下面在问下删除的问题

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 这样的

[[it] 本帖最后由 djsun223 于 2008-8-9 21:21 编辑 [/it]]