util.asp

来自「此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的」· ASP 代码 · 共 19 行

<%
'=================================
'
'   冠龙科技企业网站管理系统
'    mail  [e-mail]
'       www.xnhost.cn
'
'  copyright(c)2006 xnhost.cn
'
'=================================

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