gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\admin\Util.asp

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