一个经过完善设计的经典网上购物系统

				
				
				 
				
				 
				 
				
									if request.Cookies("shopxp")("username")"" then 
					set rs=server.CreateObject("adodb.recordset")
					rs.open "select count(*) as rec_count from shop_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai=7",conn,1,1
					rec_count=rs("rec_count")
					rs.close
					rs.open "select sum(zonger) as zongji from shop_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai=7",conn,1,1
					%>
				 
				
				
				 
				　您的购物车有件商品 
				
				
				 
				　总金额：元 
				
				
				 
				　查看购物车/结帐>>
				
				 
				　我的收藏>>
				
										set rs=nothing
						else%>
				 
				 
				　您的购物车有0件商品
				　总金额：0元