商品列表:
《Form Action=Add.asp Method=POST》
《Input Type=CheckBox Name="ProductID" Value="《%=rs("ProductID")%》"
《%=IsCheck%》》
Add.asp中
ProductList = Session("ProductList")
Products = Split(Request("ProductID"), ", ")
For I=0 To UBound(Products)
If Len(ProductList) = 0 then
ProductList = "'" &
ProductID &
"'"
else
If InStr( ProductList, ProductID ) 《= 0 then
ProductList = ProductList &
", '" &
ProductID &
"'"
End If
Next
Session("ProductList") = ProductList