数组的操作问题
infoid=request( "id ")
if infoid <> " " and IsNumeric(infoid) then
infoid=cint(infoid)

if isempty(session( "cart ")) or isnull(session( "cart ")) then
dim arrCart(1)
arrCart(0)=infoid
session( "cart ")=arrCart
else
arrCart=session( "cart ")
i=UBound(arrCart)

flag=true
For n=0 to i
if arrCart(n) = infoid then
flag=false
exit for
end if
Next

if flag=true then
ReDim Preserve arrCart(i+1)
arrCart(i)=infoid
session( "cart ")=arrCart
end if
end if

end if

这是一段用session保存数组并操作的代码
是能运行的
但我对vb不熟悉感觉有些地方应该可以改进
请给点意见吧

[解决办法]
学习