如何保留数组的值
mzcih 2004-09-14 09:17:14 用数组做的购物车,A页点击物品提交到B页,B页CODE如下:
<%
ID = Request("ID") '获取产品编号
CName = Request("Name") '获取产品名称
Dim X , Y
X = 0
'定义二维数组,1=编号,2=名称
Dim A(5,2)
'循环数组进行对比
For i = 0 To UBound(A)
'判断是否已有相同值
If A(i,1)<>"" And A(i,2)<>"" Then
If A(i,1) <> ID Then
X = X + 1
'获取是第几组
Y = i
Else
Response.Write "此产品已选择!"
Response.End()
End If
Else
X = X + 1
'获取是第几组
Y = i
Exit For
End If
Next
'判断值的正确性,然後将值写入数组
If X > 0 And IsNumeric(Y) And Y < 6 Then
If Y > 0 Then Y = Y + 1
A(Y,1)=ID
A(Y,2)=CName
End If
'输出数组的值
For i = 0 To UBound(A)
Response.Write A(i,1) & A(i,2) & "|<BR>"
Next
%>
问题:之前数组的值不能保留,导至每次提交值都增加到A(0,2)这一维