下面的这段代码什么意思啊？希望能帮忙注释一下，谢谢！！
<%
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"
%>

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