为什么会出现这样的错误?

[guoweiprogram]

<!--#include file="conn.asp" -->
<%
Dim shuliang
shuliang=Request("shuliang")
For i = 1 to shuliang
Num""&i&""=Request("Num"&i&"")
Next
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open("Select * From Cp2"),conn,1,3
Rs.Addnew
For b= 1 to shuliang
Num=Num""&b&""
Next
Rs.update
Rs.close
Response.Write("添加成功")
%>
大家看看,这是我写的批量添加,为什么不对呢??
错到哪里了?

[hglwy]

你把shuliang=Request("shuliang")
改为shuliang=cint(Request("shuliang"))试试

[chinaworker]

同意楼上的

路径中的数字都是字符串，需要转换

[mycl3344]

這樣當然不行啦﹐
Rs.Addnew
For b= 1 to shuliang
Num=Num""&b&""
Next
Rs.update
你這里是什么意思?


<!--#include file="conn.asp" -->
<%
Dim shuliang

shuliang=Request("shuliang")

Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open("Select * From Cp2"),conn,1,3

For b= 1 to shuliang

Rs.Addnew

Rs("Num")=Request("Num"&i)

Rs.update

Next

Rs.close
set Rs=nothing
Response.Write("添加成功")
%>

[SDQDboy]

同意楼上的

[iuhxq]

Rs.Addnew
没有被任何FOR包含，只添加了一条记录呀

[stefli]

rs.addnew
'must operate the record
rs("num")=1
rs.update

[tzgpxl]

同意 mycl3344(都市浪人)的观点，
你的这段程序不好，呵呵

[tzgpxl]

批量录入代码我是这样写的
循环
set rs=conn.execute("select field1 ... fieldN from tableA")
do while not rs.eof

field_tx1=rs("field1")
.
.
.
field_txN=rs("fieldN")

conn.execute("insert into TableB(fielda... fieldm) values("field_tx1 ... field_txN")")

rs.movenext
loop
rs.close: set rs=nothing

[guoweiprogram]

<%
Dim Sort_Name, Sort_img, leibie, qi, tebie
Sort_Name=Request("Sort_Name")
Sort_Img=Request("Sort_Img")
leibie=Request("leibie")
qi=Request("qi")
tebie=Request("tebie")
No=Request("No")
if Sort_name="" or qi="" or No="" Then
Response.Write("信息不完整")
Else
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open("Select * From Cp"),conn,1,3
Rs.Addnew
Rs("Sort_Name")=Sort_Name
Rs("Sort_Img")=Sort_Img
Rs("leibie")=leibie
Rs("qi")=qi
Rs("tebie")=tebie
Rs.update
Cp_ID=Rs("Cp_ID")
Rs.close
Set Rs=Server.CreateObject("Adodb.RecordSet")
For i = 1 to No
Rs.open("Select * From Cp2"),Conn,1,3
Rs.addnew
Rs("Num")=Request("No"&i&"")
Rs("Cp_id")=Cp_id
Rs.update
Rs.close
Next
Response.Write("添加成功")
End IF
%>
我已经解决了@@@