add.asp,添加到购物车中所用程序
<%@language="vbscript"%>
<!--#include file="inc/adovbs.inc"-->
<!--#include file="util.asp"-->
<%
db=server.mappath("data/shop.mdb")
set conn=server.createobject("adodb.connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&db
productlist=session("productlist")
products=split(request("productid"),",")
for i=0 to ubound(products)
puttoshopbag products(i),productlist
next
session("productlist")=productlist
response.redirect"cart.asp"
%>
util.asp所引用的
<%
sub puttoshopbag(productid,productlist)
if len(productlist)=0 then
productlist="'"& productid &"'"
elseif instr(productlist,productid)<=0 then
productlist=productlist &",'"&productid&"'"
end if
end sub
%>
cart.asp购物车,这里后面productlist最后一直是0,一直跳到nothin.asp中去
<%@language="vbscript"%>
<!--#include file="inc/adovbs.inc"-->
<!--#include file="util.asp"-->
<%
dbpath=server.mappath("data/shop.mdb")
set conn=server.createobject("adodb.connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
if request("cmdShow")="yes" then
productlist=""
products=split(request("productid"),",")
for i=0 to ubound(products)
puttoshopbag products(i),productlist
next
session("productlist")=productlist
end if
if len(productlist)=0 then
response.redirect"nothing.asp"
response.end
end if
productlist=session("productlist")
sql="select * from products "
sql=sql & " where productid in("&productlist&")"
sql=sql & " Order By productid"
set rs=conn.execute(sql)
%>