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

guoweiprogram 2004-04-05 10:29:48
<!--#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("添加成功")
%>
大家看看,这是我写的批量添加,为什么不对呢??
错到哪里了?
...全文
11 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
guoweiprogram 2004-04-05
<%
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
%>
我已经解决了@@@
回复
tzgpxl 2004-04-05
批量录入代码我是这样写的
循环
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
回复
tzgpxl 2004-04-05
同意 mycl3344(都市浪人)的观点,
你的这段程序不好,呵呵
回复
stefli 2004-04-05
rs.addnew
'must operate the record
rs("num")=1
rs.update
回复
iuhxq 2004-04-05
Rs.Addnew
没有被任何FOR包含,只添加了一条记录呀
回复
SDQDboy 2004-04-05
同意楼上的
回复
mycl3344 2004-04-05
這樣當然不行啦﹐
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("添加成功")
%>

回复
chinaworker 2004-04-05
同意楼上的

路径中的数字都是字符串,需要转换
回复
hglwy 2004-04-05
你把shuliang=Request("shuliang")
改为shuliang=cint(Request("shuliang"))试试
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告