Asp classic 如何在经典asp（cartprocessing.asp）中通过循环在购物车中动态添加项目？

代码在这里运行的代码函数是AddItem1，它被注释了

Sub UseCase1
'AddItem1

For i = 0 to val
np=i
no=i+1
fnname = " AddItem " & no
Sub fnname
Dim MyItem
Set MyItem = New Item
itemname = "itemname" & i
val6=Request.Form(""& itemname &"")
val6 = Trim(va6)
itemprice = "itemprice"& i
val7=Request.Form(""& itemprice &"")
val7 = Trim(val7)
itemqty = "itemqty" & i
val8=Request.Form(""& itemqty &"")
val8 = Trim(val8)
itemdes = "itemdes" & i
val9=Request.Form(""& itemdes &"")
val9 = Trim(val9)
MyItem.Name = val6
MyItem.Description = val9
MyItem.Quantity =val8
MyItem.UnitPrice = val7
MyItem.MerchantPrivateItemData = "<color>blue</color><weight>3.2</weight><websiteName></websiteName>"
MyItem.ItemWeight = 5.5
MyCart.AddItem MyItem
Set MyItem = Nothing
End Sub
Next


SetOptionalParameters

End Sub

defination:after call
commented code
'Sub AddItem1
    'Dim MyItem
    'Set MyItem = New Item
    'MyItem.Name = Name
    'MyItem.Description = desc
    'MyItem.Quantity =1
    'MyItem.UnitPrice = intcurTotalAmount
    'MyItem.MerchantPrivateItemData = "<color>blue</color><weight>3.2</weight><websiteName>theeflowertest.com</websiteName>"
    'MyItem.ItemWeight = 5.5
    'MyCart.AddItem MyItem
    'Set MyItem = Nothing
'End Sub

子用例1
“补充1
对于i=0到val
np=i
否=i+1
fnname=“AddItem”&否
子名称
暗淡的MyItem
设置MyItem=新项目
itemname=“itemname”&i
val6=Request.Form（“&itemname&”）
val6=配平（va6）
itemprice=“itemprice”&i
val7=Request.Form（“&itemprice&”）
val7=配平（val7）
itemqty=“itemqty”&i
val8=请求.表单（“&itemqty&”）
val8=配平（val8）
itemdes=“itemdes”&i
val9=Request.Form（“&itemdes&”）
val9=配平（val9）
MyItem.Name=val6
MyItem.Description=val9
MyItem.Quantity=val8
MyItem.UnitPrice=val7
MyItem.MerchantPrivateItemData=“blue3.2”
MyItem.ItemWeight=5.5
MyCart.AddItem MyItem
设置MyItem=Nothing
端接头
下一个
设置可选参数
端接头
定义：电话后
注释代码
'子添加物1
“Dim MyItem
'设置MyItem=新项目
'MyItem.Name=名称
'MyItem.Description=desc
'MyItem.Quantity=1
'MyItem.UnitPrice=intcurTotalAmount
'MyItem.MerchantPrivateItemData=“blue3.2TheFlowerTest.com”
'MyItem.ItemWeight=5.5
'MyCart.AddItem MyItem
'设置MyItem=Nothing
'末端接头