循环更新的问题,在线等...

[fengyelove]

if request("Submit")<>"" then
for each id in request("movedata") '循环取筛选框表单的值
Set rb=Server.CreateObject("ADODB.RecordSet")
rb.open"Select * From Info Where Class_ID=35 and id="&id,conn,1,1
next
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open "orderinfo",conn,3,2
rss.addnew
for each id in request("movedata") '循环更新到另一个表中
rss("fileid")=request("movedata")
rss("username")=Session("UserName")
if rb("附件")="" then
rss("filesize")="无"
else
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFile(server.MapPath("upload/"&rb("附件")))
rss("filesize")=fld.size
end if
if rb("来源")="0级PDS文件" then
rss("types")="PDS"
else
rss("types")="LD2"
end if
rss("filename")=rb("标题")
rss("adddate")=date
next
rss.update
response.write("<script>alert('添加下载队列成功!');location.href='list.asp?Bclassid=30&classID=35'</script>")
else
response.write("<script>alert('添加下载队列失败,返回重试!');location.href='list.asp?Bclassid=30&classID=35'</script>")
end if

[fengyelove]

if request("Submit")<>"" then
a=split(request("movedata"),",")
for i=0 to Ubound(a)
Set rb=Server.CreateObject("ADODB.RecordSet")
rb.open"Select * From Info Where Class_ID=35 and id="&a(i),conn,1,1
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open "orderinfo",conn,3,2
rss.addnew
rss("fileid")=a(i)
rss("username")=Session("UserName")
if rb("附件")="" then
rss("filesize")="无"
else
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFile(server.MapPath("upload/"&rb("附件")))
rss("filesize")=fld.size
end if
if rb("来源")="0级PDS文件" then
rss("types")="PDS"
else
rss("types")="LD2"
end if
rss("filename")=rb("标题")
rss("adddate")=date
rss.update
next
response.write("<script>alert('添加下载队列成功!');location.href='list.asp?Bclassid=30&classID=35'</script>")
else
response.write("<script>alert('添加下载队列失败,返回重试!');location.href='list.asp?Bclassid=30&classID=35'</script>")
end if

[fengyelove]

问题已解决!