www.gusucode.com > 运动用品商城网站系统源代码程序 > buy.asp
<!--#include file="conn.asp"--> <!--#include file="IncAsp/venshop_top.asp"--> <div align="center"> <table cellpadding="0" cellspacing="0" class="all_t1"> <tr><td class="all_l_td" valign="top"> <!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div> </td> <td valign="top" class="all_c_td"> <table width="99%" border="0" cellpadding="0" cellspacing="0"> <tr><td class="sort"> <p style="line-height: 150%"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置: <a href="index.asp">首页</a> >> 购物车 <br> <font color="#FF0000"> *温馨提醒:如果您是本站VIP会员,请登陆后再将商品加入购物车,否则您将无法享受VIP会员优惠价格,<br> 如果您发现您的购物车内商品未显示为VIP会员价格,请登陆后取消该商品的订购再重新加入购物车.</font></td></tr> </table> <%if Request.Cookies("venshop")("user_name")="" and Request.Cookies("venshop")("guest")="" then response.redirect "login.asp?comurl=buy.asp" response.end else if Request.Cookies("venshop")("user_name")<>"" then user_name=Request.Cookies("venshop")("user_name") elseif Request.Cookies("venshop")("guest")<>"" then user_name=Request.Cookies("venshop")("guest") end if if request("action")="change" then '更改数量 if request("count")="" or Not(isNumeric(request("count"))) then count=1 else count=Cint(request("count")) end if basket_id=request("basket_id") set rs=server.createobject("adodb.recordset") sql="select hw_id,basket_count from venshop_basket where user_name='"&user_name&"' and basket_id="&basket_id&" and basket_check=0" rs.open sql,conn,1,3 if not rs.eof then hw_id=rs("hw_id") set rsh=server.createobject("adodb.recordset") sql="select hw_kucun from venshop_hw where hw_id="&hw_id&"" rsh.open sql,conn,1,1 hw_kucun=rsh("hw_kucun") rsh.close set rsh=nothing rs("basket_count")=count rs.update end if rs.close set rs=nothing response.redirect "buy.asp" response.End elseif request("action")="del" then '删除定购 basket_id=request("basket_id") set rs=server.createobject("adodb.recordset") sql="select * from venshop_basket where user_name='"&user_name&"' and basket_id="&basket_id&" and basket_check=0" rs.open sql,conn,1,3 if rs.eof then response.redirect "buy.asp" response.End else rs.delete rs.update end if rs.close set rs=nothing response.redirect "buy.asp" response.End end if %> <table border="0" cellpadding="0" cellspacing="0" class="useri"> <tr><td height="150"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center" class="cartshowa">商品名称</td> <td align="center" class="cartshowa">单价(<%=danwei%>)</td> <td align="center" class="cartshowa">数量</td> <td align="center" class="cartshowa">合计(<%=danwei%>)</td> <td align="center" class="cartshowa">类型</td> <td align="center" class="cartshowa" width="180">操作</td> </tr> <%set rs=server.createobject("adodb.recordset") sql="select * from venshop_basket where user_name='"&user_name&"' and basket_check=0" rs.open sql,conn,1,1 if rs.eof then%> <tr><td height="50" colspan="6" align="center">你没有选择任何商品</td></tr> <% else i=0 do while not rs.eof i=i+1 %> <form name="form1" method="POST" action="buy.asp?action=change&basket_id=<%=rs("basket_id")%>"><tr> <td align="center" class="cartshow<%=(i mod 2)%>"><a target="_blank" href="<%if rs("tao_id")>0 then%>views_tao.asp?hw_id=<%=rs("hw_id")%>&tao_id=<%=rs("tao_id")%><%else%>views.asp?hw_id=<%=rs("hw_id")%><%end if%>"><%=rs("hw_name")%></a></td> <td align="center" class="cartshow<%=(i mod 2)%>"><%=fuhao%><%=trim(rs("hw_price"))%></td> <td align="center" class="cartshow<%=(i mod 2)%>"><input type="text" name="count" size="2" value="<%=rs("basket_count")%>"></td> <td align="center" class="cartshow<%=(i mod 2)%>" class="cartshow<%=(i mod 2)%>"><%=fuhao%><%=rs("basket_count")*trim(rs("hw_price"))%></td> <td align="center" class="cartshow<%=(i mod 2)%>"><%=rs("kxa")%>-<%=rs("kxb")%></td> <td align="center" class="cartshow<%=(i mod 2)%>"> <input type="submit" value="更改数量" name="B1"> <input onclick="javascript:window.open('buy.asp?action=del&basket_id=<%=rs("basket_id")%>','_self','')" type="button" value="取消定购"></td> </tr></form> <%totalcash=totalcash+(rs("basket_count")*trim(rs("hw_price"))) totalisbn=totalisbn+rs("basket_count")*rs("hw_jifen") totalw=totalw+(rs("basket_count")*trim(rs("hw_weight"))) totaly=totaly+(rs("basket_count")*trim(rs("hw_yunfei"))) totalc=totalc+rs("basket_count") rs.movenext loop end if rs.close set rs=nothing%></table> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr><td height="30" colspan="8" align="right"> <%if Request.Cookies("venshop")("user_type")="" then zhekou=100 usertype_name="未登录用户" zhekouyu="不享受折扣价" else user_type=Request.Cookies("venshop")("user_type") set rs=server.createobject("adodb.recordset") sql="select * from venshop_usertype where usertype_id="&user_type&"" rs.open sql,conn,1,1 if rs.eof then zhekou=100 usertype_name="一般用户" zhekouyu="不享受折扣价" else zhekou=rs("usertype_zhekou") usertype_name=rs("usertype_name") zhekouyu="享受原价"&zhekou&"%的折扣价" end if rs.close set rs=nothing end if%> <p style="line-height: 200%; margin-left:5px; margin-right:15px; margin-top:5px; margin-bottom:5px"> 共 <span class="price"><%=totalc%></span> 件商品 价格总计:<span class="price"><%=fuhao%> <%=totalcash%> <%=danwei%></span> 您是:<font color="#0000FF"><%=usertype_name%></font><br> 获得积分:<%=totalisbn%><br> <%if yunfei=2 then%>预计运费合计:<%=fuhao%> <%=totaly%> <%=danwei%><%elseif yunfei=3 then%>重量合计:<%=totalw%> kg<%end if%><br> <%if mian<>0 then%><%if int(mian)>int(totalcash*zhekou/100) then%>还差<%=fuhao%><%=mian-int(totalcash*zhekou/100)%> <%=danwei%>即可免费送货!<%else%>满<%=fuhao%><%=mian%> <%=danwei%>免运费,您的订单可以免费送货!<%end if%><br><%end if%> <input onclick="javascript:window.open('index.asp','_self','')" type="button" value="继续购物"> <input onclick="javascript:window.open('cash.asp','_self','')" type="button" value="现在结算"></td></tr> </table> </td></tr> </table> <%end if%> </td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->