主题:  谁能帮我做一个“购物车”程序

白雪飘扬

职务:普通成员
等级:1
金币:0.0
发贴:40
#12002/10/21 20:07:45
如题,谢谢



绿茶

职务:普通成员
等级:8
金币:10.0
发贴:19267
#22002/10/21 21:10:49

<%
if request("submit")="更改数量" then
x=""
if session("stock")<>"" then
for t=1 to request("stock_num").count
add=request("stock_num")(t)
stock=session("stock")
a=split(stock,"|")
j=ubound(a)
b=split(a(t-1),",")
b(1)=add
x=x&b(0)&","&b(1)&"|"
next
stock=x
session("stock")=stock
end if
end if%>






购物车




<%tag=5%>














































width="100%">













  现在的位置: href="/default.asp">首页 >> href="javascript:history.go(0)">特卖场
 


[用户注册资料修改]

亲爱的<%if session("member")="" then
response.write "顾客,"
else
response.write ""&session("member")&""
end if%>您好,欢迎您光临XX网上特卖场!
<%if session("member")="" then
response.write "[请登录]"
else
response.write "[退出登录]"
end if%>



[购物车收银台订单查询]

















 


 
 


















<%if session("stock")<>"" then
aa=split(session("stock"),"|")
k=ubound(aa)

price=0
sumtotal=0
for t=0 to k-1
bb=split(aa(t),",")
'response.write "a("&t&")="&a(t)
'response.write "bb(0)="&bb(0)&"bb(1)="&bb(1)
sql="select id,stock_name,stock_price from stock where id="&bb(0)
set rs=objconn.execute(sql)
if not rs.eof then
price=bb(1)*rs("stock_price") %>







<%
sumtotal=sumtotal+price
end if
next
session("sumtotal")=sumtotal%>
<%end if%>










 

       
 
商品名称


数量


价格


 操作


 
  <%=rs("stock_name")%> 



<%=formatcurrency(price,2)%> 




 
     
 

>
>
>

 


 




编辑历史:[这消息被germchen编辑过(编辑时间2002-10-21 21:12:13)]
[这消息被germchen编辑过(编辑时间2002-10-21 21:15:54)]


白雪飘扬

职务:普通成员
等级:1
金币:0.0
发贴:40
#32002/10/24 0:28:55
谢谢兄弟