util.asp

来自「中原商贸城 中原商贸城 项目库 企业库 供求信息 会员 招聘 企业展示」· ASP 代码 · 共 10 行

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

%>