asp选择输出问题 - 编程论坛

tianyu1232008-08-09 20:04

没循环输出，当然只显示一条记录了

代码中加入蓝色代码即可

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

djsun2232008-08-09 20:57

谢谢啊

下面在问下删除的问题

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]]