split数据的分割与检索入数据库问题

[KKKKDJG]

<%
set NewOpenConn=New Conn
set cn= NewOpenConn.OpenConn


nums=request.Form.count
price=0
id=""
num=""
'循环读出提交过来的物品ID和数量,价格
for i=1 to int(nums/5)
id =id & request.Form("ID_"&i) & "|"
num =num & request.Form("num_"&i) & "|"
pri = pri & request.Form("pri_"&i) & "|"

next
response.write("id:"&id&"<br>")
response.write("num:"&num&"<br>")

'当然一般价格是不会到这里得到的,所以取了个ID过来..这样再根据ID去库里取价格了
for i=1 to int(nums)
idmo = request.Form("ID_"&i)
num = request.Form("num_"&i)
pri = request.Form("pri_"&i)
price=price+(pri*num)

next
response.write("总共:"&price&"元")


aaa=split(id,"|")'用","把他们分开
n= UBound(aaa)
For i = 0 To n-1
Set rs = Server.Createobject("ADODB.recordset")
ccc=cstr(aaa(i))
response.write "<br>"&ccc

ccc=cint(ccc)
if isnumeric(ccc)=true then
response.write "数字"
bsql="select * from Article where id="&ccc&""
'set rs=cn.execute bsql
'while not rs.eof
'response.write rs("title")
'rs.movenext
'wend
'set rs =nothing
else
response.write "不是数字"
response.write ccc
end if
bsql="select * from Article where id="&ccc&""
set rs=cn.execute bsql


Next


%>
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/manage/result.asp, line 65, column 18
set rs=cn.execute bsql



id=422|420|
num=3|55|
总共:25650元


如何把ID 数量提取出来 然后入够吗数据库

[linlusheng]

没关闭对象

[KKKKDJG]

能详细一点吗？谢谢了

[KKKKDJG]

错误类型：
ADODB.Recordset (0x800A0E79)
对象打开时，不允许操作。
/manage/result.asp, 第 69 行

rs.cursortype = 3
rs.open bsql,OpenCn