Question

ASP循环插入问题

set rs2 = server.CreateObject("adodb.RECORDSET")
rs2.Open "Select * from SIM_Records",conn,1,3
For i=0 to UBound(arr)
if arr(i) <> "" Then
rs2.addnew
rs2("rsid")=arr(i)
rs2("rsuser")=user
rs2("rchukutime")=ttime1
rs2("rfankutime")=now()
rs2("rbeizhu")=null
rs2.update
rs2.close
rs2=nothing
end if
next
为什么只插入1条数据

Answer 1

你的rs2在插入一条记录后就关闭（close）了，后面的数据肯定就无法插入啦，改成这样既可：

set rs2 = server.CreateObject("adodb.RECORDSET")
rs2.Open "Select * from SIM_Records",conn,1,3
For i=0 to UBound(arr)
if arr(i) <> "" Then
rs2.addnew
rs2("rsid")=arr(i)
rs2("rsuser")=user
rs2("rchukutime")=ttime1
rs2("rfankutime")=now()
rs2("rbeizhu")=null
rs2.update
end if
next
rs2.close
set rs2=nothing

Answer 2

不要在循环体里关闭和释放RecordSet对象,否则结果就是只第一次循环时可以插入数据.
将
rs2.close
set rs2 = nothing '这句前面要加set关键字
这两句移到next下面.

Answer 3

if arr(i)<>"" then

这句话和上面一句 for i = 0 to ubound(arr)有冲突吧。

for循环的to 关键字，前后数据类型应该一样。。你数组里面存放的是数字？

把数据类型统一就OK了~~~