详细说明：
包括前台后台 <% Head="以下是您所选购的物品清单" ProductList = Session("ProductList") If Len(ProductList) = 0 Then Response.Redirect "Nothing.asp" DbPath = SERVER.MapPath("gw.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath & ";PWD='sa';UID=''" If Request("MySelf") = "Yes" Then ProductList = "" Products = Split(Request("spID"), ", ") For I=0 To UBound(Products) PutToShopBag Products(I), ProductList Next Session("ProductList") = ProductList End If sql = "Select * From sp Where trim(spID) In (" & ProductList & ") Order By spID" Set rs = conn.Execute( sql ) %> <%=Head%> <%=Head%>
提交订单 退回所有物品 <% ListCategory conn %> ...展开收缩
