能帮我解释asp中的这段代码吗

[xiaoban2007]

<%
Sub PutToShopBag( Product_Id, ProductList )
If Len(ProductList) = 0 Then

ProductList = "'" & Product_Id & "'"

ElseIf InStr( ProductList, Product_Id ) <= 0 Then

'下面这段代码 应该是将统一编号的产品进行累加（？？但是我不明白为什么要这么写 能帮我解释一下吗）
ProductList = ProductList & ", '" & Product_Id & "'"


End If
End Sub
%>

[a95470000]

<% 
Sub PutToShopBag( Product_Id, ProductList ) 
	If Len(ProductList) = 0 Then 
		ProductList = "'" & Product_Id & "'" 
	ElseIf 
		InStr( ProductList, Product_Id )  <= 0 Then 
		ProductList = ProductList & ", '" & Product_Id & "'" 
	End If 
End Sub 
%>
ProductList 是像這樣的字符串   '4','5'

比如﹕﹕
call PutToShopBag(6,"'4','5'")
ProductList = ProductList & ", '" & Product_Id & "'" 
得到結果:'4','5','6'

[raoxu45]

<%
Sub PutToShopBag( Product_Id, ProductList )
If Len(ProductList) = 0 Then

ProductList = "'" & Product_Id & "'"

ElseIf InStr( ProductList, Product_Id ) <= 0 Then

'下面这段代码 应该是将统一编号的产品进行累加（？？但是我不明白为什么要这么写 能帮我解释一下吗）
ProductList = ProductList & ", '" & Product_Id & "'"


End If
End Sub
%>

这个过程是用来为ProductList加上，'Product_Id'进行编号。

目的是为每一个ProductList记录做一个Product_Id标记，为以后数据的使用。

[xiaoban2007]

哦 明白了 就是为每一个ProductList值进行一个编号 相当于一个自动排序