%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% 'Product list Update public ProductList if request("order")="Product Update" then Session("ProductList")="" end if ProductList = Session("ProductList") Sub PutToShopBag(Prodid, ProductList) If Len(ProductList) = 0 Then ProductList = Trim(Prodid) ElseIf InStr( ProductList, Prodid ) <= 0 Then ProductList = ProductList&","&Trim(Prodid) End If End Sub ' Access to ID Products Product_Id = Trim(Request("Product_Id")) if instr(Product_Id,",")>0 then idArr=Split(Product_Id, ",") for i = 0 to ubound(idArr) PutToShopBag idArr(I), ProductList next else PutToShopBag Product_Id, ProductList end if Session("ProductList") = ProductList '判断购物车是否为空 Dim sqlprice,rs_price if Productlist<>"" then sqlprice="select * from [Product] where ID in ("&ProductList&") order by Paix" Set rs_price=Server.CreateObject("ADODB.Recordset") rs_price.open sqlprice,conn,1,3 else response.redirect "../Products.html" response.end end if %>
<% Call ShowSite(1,"en")%>