util.asp

实验室资源管理系统 实验室人事资料管理、实验室设备管理、实验课程管理及实验室软件资料管理及相关分析统计功能

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