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 %>