ASP批处理存储数据

[KKKKDJG]

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

if session("shop")="" or session("userlogin")="" then'如果订购为空，用户登陆为空 那么登陆或者注册
response.redirect"../User/login.asp"
response.end
else
''''执行订购的完成
nums=request.Form.count
price=0
id=""
num=""

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

next
response.write("id:"&id&"<br>")
response.write("num:"&num&"<br>")
response.write("prc:"&prc&"<br>")
'response.end
'当然一般价格是不会到这里得到的,所以取了个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,"|")'用","把他们分开 产品ID编号
num1=split(num,"|")'用","把他们分开 产品数量编号
prc1=split(prc,"|")'用","把他们分开 产品价格编号



n= UBound(aaa)
For xx=0 To n-1
Set rs = Server.Createobject("ADODB.recordset")
Set rs1= Server.Createobject("ADODB.recordset")

ccc=trim(aaa(xx))



'response.write "<br>"&ccc
'response.write "<br>"&num1(xx)
'response.write "<br>"&pri(xx)
'response.end
'ccc=cint(ccc)
'if isnumeric(num1)=true then
'response.write "数字"
'response.end
'while not rs.eof
'response.write rs("title")
'rs.movenext
'wend
'set rs =nothing
'else
'response.write "不是数字"
'response.write num1
'end if

bsql="select * from Article where id="&ccc&""
csql="select * from xsdingdan order by ID desc"
rs.cursortype = 3
rs.open bsql,Cn,1,3
title=rs("title")
xswgj=rs("xswgj")
xssize=rs("xssize")
xscolor=rs("xscolor")
userlogin=session("userlogin")

response.write title&"显示外循环<br>"
'response.end

rs.close
set rs =nothing

for j = 0 to ubound(num1)

response.write title&"显示内循环"
'response.end


rs1.cursortype = 3
rs1.open csql,Cn,1,3

rs1.addnew
rs1("proidd")=ccc
'rs1("shuliang")=trim(num1(xx))
rs1("yanse")=xscolor
rs1("xinghao")=xssize
rs1("danjia")=xswgj
rs1("jiage")=trim(prc1(xx))
rs1("user")=userlogin
rs1.update

rs1.close
set rs1 =nothing
next
'''
'''


Next


response.write "<br>"& "订购完成"
end if

%>


id:420|423|422|
num:3|5|10|
prc:960|2100|3500|
总共:6560元单肩包显示外循环
单肩包显示外循环
双肩包显示外循环

订购完成

打印内循环 for j = 0 to ubound(num1)里面的打印不执行，
为什么呢？

如何完成同步ID和数量和价格的数据的录入呢

[KKKKDJG]

id:420|422|423|
num:7|3|11|
prc:2240|1050|4620|
总共:7910元单肩包显示外循环
-1数量

m=ubound(num1)
response.write m&"数量"
response.end
'for j = 0 to m-1

打印 response.write m&"数量" -1
？？？

[anbs01]

up