中科新闻网周星驰鼓掌动图:ubound错误
来源：百度文库 编辑：中科新闻网 时间：2024/05/01 13:21:54
代码如下，请各位大哥大姐帮忙呀
<%
'
'**Save cart to OrderDetails table in Database**
'
if Request("CC_OrderInsert") <> "" then
'Bindingvalues=("ProductID,,,,")
UniqueIdValue=Session("OrderID")
UniqueIdColumn="OrderID"
CC_RedirectURL="thanks.asp"
sub SaveToDatabase(ODRecordset)
ODRecordset.AddNew
ODRecordset.Fields(UniqueIdColumn)=UniqueIdValue
ODRecordset.Fields("ProductID")=CCcart(CC_ProductID,i)
OrderDetails.Update
end sub
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) <> "" then
Call SaveToDatabase(OrderDetails)
end if
next
Response.Redirect "thanks.asp"
end if
%>
<%
'
'**Save cart to OrderDetails table in Database**
'
if Request("CC_OrderInsert") <> "" then
'Bindingvalues=("ProductID,,,,")
UniqueIdValue=Session("OrderID")
UniqueIdColumn="OrderID"
CC_RedirectURL="thanks.asp"
sub SaveToDatabase(ODRecordset)
ODRecordset.AddNew
ODRecordset.Fields(UniqueIdColumn)=UniqueIdValue
ODRecordset.Fields("ProductID")=CCcart(CC_ProductID,i)
OrderDetails.Update
end sub
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) <> "" then
Call SaveToDatabase(OrderDetails)
end if
next
Response.Redirect "thanks.asp"
end if
%>
for i=0 to ubound(CCcart)
i=0 to ubound(CCcart,2)
下标越界
换成
i=0 to ubound(CCcart,1)