下面的这段代码什么意思啊？希望能帮忙注释一下，谢谢！！
<%
sub puttoshopbag(product,productlist)
if len(productlist)=0 then
productlist="'"&product&"'"
elseif instr(session("productlist"),product)<=0 then
productlist=productlist&",'"&product&"'"
end if
end sub
productlist=session("productlist")
products=split(request.form("add"),",")
for i=0 to ubound(products)
puttoshopbag trim(products(i)),productlist
next
session("productlist")=productlist
response.redirect "check.asp"
%>

把购物产品保存为数组并写入session
sub puttoshopbag(product,productlist) //产品信息写入数组
if len(productlist)=0 then //如果数组为空
productlist="'"&product&"'" //数组的值等于该产品
elseif instr(session("productlist"),product)<=0 then //如果加入的产品信息在数组中不存在
productlist=productlist&",'"&product&"'" //在数组中增加新的产品信息
end if
end sub
productlist=session("productlist") //把session("productlist")赋值给productlist
products=split(request.form("add"),",") //拆分传递过来的新增加的产品信息
for i=0 to ubound(products) //循环写入数组
puttoshopbag trim(products(i)),productlist
next
session("productlist")=productlist //修改session("productlist")为新的产品信息
response.redirect "check.asp //页面跳转

虽然没完全明白，但是大概也知道怎么回事情了，谢谢你！！

能给一个购物车的完全代码出来吗?