util.asp

中原商贸城 中原商贸城 项目库 企业库 供求信息 会员 招聘 企业展示

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

%>