一个用session实现的购物车,请帮忙解决

2006-05-27 03:46:30 251 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用Cookie和Session简单实现购物车作为单身汪的小编,无法体会到被女神逼着清空购物车的那种”快感”!!,罢特!!我可以自己清空呀!! 傲娇脸~~冰箱, 手机, 电视, 手电筒来一套!!(ps:手电筒是什么鬼!!)下面我用Cookie和Session来清空购物车里的这4样东东!! 感觉自己有点溜!!一.CookieCookie分为会话级别和持久化两种,这里将利用的是持久化的Cookie,以遍保存并显示浏览商品记录,和实现商品就算页面( 阅读详情

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<%
id=request.QueryString("id")
ProductList = Session("ProductList")
if Products="" then
Products="noproducts"
end if
Products = Split(ProductList, ", ")

If Len(ProductList) = 0 Then
ProductList = ""&id&""
ElseIf InStr( ProductList, id ) <= 0 Then
ProductList = ProductList & ", " & id & ""
End If

Session("ProductList") = ProductList
response.Write(Session("ProductList"))
set objconn=Server.CreateObject("CustShop.ComClass1")
conn=objconn.DataSource()
set rs=Server.CreateObject("ADODB.Recordset")

%>
<body onload="on_submit()">
<table width="59%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="11%"><div align="center">商品名称</div></td>
<td width="10%">商品价格</td>
<td width="13%"><div align="center">商品数量 </div></td>
<td width="12%"><div align="center">小计</div></td>
<td width="54%">修改数量</td>
</tr>
<tr>
<td height="20" colspan="5"><form action="Products_Pay.asp" method="post" name="form1" id="form1">
<table width="63%" border="0" cellspacing="0" cellpadding="0">
<%
For I=0 To UBound(Products)
str="select Products_ID,Products_Name,Products_Price from Cust_Products where Products_ID='"&Products(i)&"'"
rs.open str,conn,1,1
%>
<tr>
<td width="18%" height="30"><div align="center"><a href="Products_View.asp?id=<%=rs("Products_ID")%>" target="_blank"><%=rs("Products_Name")%></a></div></td>
<td width="15%"><div align="center"><%=rs("Products_Price")%></div></td>
<td width="21%"><div align="center">
<input name="number<%=i%>" type="text" value="<%
if request.Form("number"&i)<>"" then
response.Write(request.Form("number"&i))
else
response.Write("1")
end if
%>
"size="7" />
</div></td>
<td width="20%"><div align="center">
<%
if request.Form("number"&i)<>""then
a=cdbl(trim(rs("Products_Price")))
c=cdbl(trim(request.Form("number"&i)))
totalprice=(a*c)
response.Write(totalprice)
else
a=rs("Products_Price")
totalprice=a
response.Write(totalprice)
end if
%>
</div></td>
<td width="26%"><input type="submit" name="Submit" value="修改" /></td>
</tr>
<%
totalall=totalall+totalprice
session("totalall")=totalall
rs.movenext
rs.close
pnumber=request.Form("number"&i)
if i=0 then
ProductNum = pnumber
else
ProductNum = ProductNum & "," &pnumber&""
end if
next
session("ProductNum")=ProductNum
response.Write(session("ProductNum"))
par=request.QueryString("par")
if par=1 then
session("ProductList")=""
end if
%>
</table>
</form></td>
</tr>
</table>
<table width="22%" height="29" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="29">总价格为：<%=totalall%></td>
</tr>
</table>
<table width="54%" height="26" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="34%"><div align="center"><a href="Products_Buy.asp?i=<%=i%>" onclick="javascript:eval('document.form1.submit()');">下一步</a></div></td>
<td width="28%"><div align="center"><a href="index.asp">继续购物</a><a href="Products_Buy.asp?i=<%=i%>" onmouseup="onload()"></a></div></td>
<td width="38%"><div align="center"><a href="Products_Pay.asp?par=1">清空购物车</a></div></td>
</tr>
</table>
</body>
</html>

我遇到的问题是必须要刷新一次才能显示出来购买的商品,
而且还要提交一次表单 session("ProductNum")才有数据,请问如何解决

...全文