急！麻烦高手帮我解释一下下面这段代码什么意思，实现的是什么功能？

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:43:12
function cart(buyID,buynumber)
if not isarray(session("arr")) then
dim arr(0,1)
arr(0,0)=buyID
arr(0,1)=buynumber
session("arr")=arr
else
arr=session("arr")
UB=ubound(arr,1)+1
redim arr(UB,1)
sessionarr=session("arr")
arr(UB,0)=buyID
arr(UB,1)=buynumber

For I = 0 To ubound(sessionarr,1)
For J = 0 To 1
arr(I, J)=sessionarr(I,J)
Next
Next
session("arr")=arr
end if
end function
call cart("spid","spsl")
arr=session("arr")
For I = 0 To ubound(arr,1)
For J = 0 To 1
response.Write(arr(I, J)&"|")
Next
response.Write("<br>")
Next
%>
</body>
</html>
解释的越详细越好！

建议你看一下人民邮电出版社出版的ASP实例书上的企业进销存管理系统该系统中有详细介绍购物车的代码及语句的详细解释！·

'购物函数,参数buyID,buyNumber:物品Id,和数量
function cart(buyID,buynumber)
if not isarray(session("arr")) then
dim arr(0,1)
arr(0,0)=buyID
arr(0,1)=buynumber
session("arr")=arr
else
arr=session("arr")
UB=ubound(arr,1)+1
redim arr(UB,1)
sessionarr=session("arr")
arr(UB,0)=buyID
arr(UB,1)=buynumber

For I = 0 To ubound(sessionarr,1)
For J = 0 To 1
arr(I, J)=sessionarr(I,J)
Next
Next
session("arr")=arr
end if
end function
'函数功能:将购买物品信息保存到session("arr")变量中
call cart("spid","spsl")
arr=session("arr")
'调用cart方法,将结果保存在session("arr")然后赋于arr
For I = 0 To ubound(arr,1)
For J = 0 To 1
response.Write(arr(I, J)&"|")
Next
response.Write("<br>")
Next