cart.asp

购物系统(本版为正式商业版

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
  <tr>
    <td><img src="/img/lf_img_top.gif" width="180" height="9"></td>
  </tr>
  <tr>
    <td><img src="/img/lf_tl_car.gif" width="180" height="40" border="0" usemap="#derectgo"></td>
  </tr>
  <tr>
    <td><img src="/img/lf_directgo_boxtop.gif" width="180" height="8"></td>
  </tr>
  <tr>
    <td background="/img/lf_directgo_boxbg.gif" width="180" height="23">
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center">
                <%if session("username")="" then
				response.write "<font color=#FF0000>亲爱的游客，欢迎您</font>"
				else
            response.write "<font color=#FF0000>亲爱的"&session("username")&"，欢迎您</font>"
            end if
			if session("username")<>"" then 
					  set rscar=server.CreateObject("adodb.recordset")
					  rscar.open "select count(*) as rec_count from shop_action where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1
					  rec_count=rscar("rec_count")
					  rscar.close
					  rscar.open "select sum(zonger) as zongji from shop_action where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1
					  else
					  set rscar=server.CreateObject("adodb.recordset")
					  rscar.open "select count(*) as rec_count from shop_action where username='"&nosql(session("tmp_usersessionid"))&"' and zhuangtai=7",conn,1,1
					  rec_count=rscar("rec_count")
					  rscar.close
					  rscar.open "select sum(zonger) as zongji from shop_action where username='"&nosql(session("tmp_usersessionid"))&"' and zhuangtai=7",conn,1,1
					  end if
					  %></td>
        </tr>
        <tr>
          <td align="center">您的购物车有：<%=rec_count%>种商品</td>
        </tr>
        <tr>
          <td align="center"> 总计价格：￥
		  <%if (rscar("zongji")="") or isNull(rscar("zongji")) then
            response.write "0"
           else 
	        response.write formatnumber(cdbl(rscar("zongji")),2)
           end if%>元 </td>
        </tr>
        <tr>
          <td align="center"> <a href="gouwu.asp?action=show&lx=1">查看购物车</a> - <a href="user.asp?action=dindan">查询订单</a></td>
        </tr>
        <tr>
          <td align="center"><a href="shoucang.asp?action=show">查看收藏夹</a> - <a href="to.asp?action=show">查看对比架</a></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="/img/lf_directgo_boxbottom.gif" width="180" height="6"></td>
  </tr>
</table>