util.asp

北京商务网

<%
Sub PutToShopBag( cpbh, ProductList )
If Len(ProductList) = 0 Then
ProductList ="'" & cpbh & "'"
ElseIf InStr( ProductList, cpbh ) <= 0 Then
ProductList = ProductList & ", '" & cpbh & "'"
End If
End Sub
%>