gouwucheinfo.asp

来自「采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 」· ASP 代码 · 共 76 行

<table width="100%" border="0" cellpadding="0" cellspacing="0" background="image/block_2_2.gif">
<tr>
<td height="38"  background="image/left-01-1.gif"><div align="center"><strong><font color="#75710A">我 的 购 物 车</font></strong></div></td>
</tr>
<tr> 
<td> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="150">
<%
	if request.Cookies("BOB")("username")<>"" then 
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select count(*) as rec_count from shop_action where username='"&request.Cookies("BOB")("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("BOB")("username")&"' and zhuangtai=7",conn,1,1
	%>
<tr> 
<td height="2" align=cneter></td>
</tr>
<tr> 
<td height="20">　您的购物车有<font color=red><%=rec_count%></font>件商品 
</td>
</tr>
<tr> 
<td height="20">　总金额：<font color=red><%=rs("zongji")%></font>元 
</td>
</tr>
<tr> 
<td height="20">　<a href="gouwu.asp?action=show&lx=1" target=_blank>查看购物车/结帐&gt;&gt;</a></td>
</tr>
<tr> 
<td height="20">　<a href=user.asp?action=shoucang>我的收藏&gt;&gt;</a></td>
</tr>
<%rs.close
		set rs=nothing
		else%>
<tr>
  <td height="20">　您的购物车有<font color=red>0</font>件商品<br>
　总金额：<font color=red>0</font>元 </td>
</tr>
<tr>
  <td height="16"></td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
<table width="100%" height="16" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="16"  background="image/block_3_3.gif">&nbsp;</td>
  </tr>
  <tr>
    <td height="2"><div align="center"><strong></strong></div></td>
  </tr>
  <tr>
    <td>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="2">
        <%
	if request.Cookies("BOB")("username")<>"" then 
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select count(*) as rec_count from shop_action where username='"&request.Cookies("BOB")("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("BOB")("username")&"' and zhuangtai=7",conn,1,1
	%>
        <tr>
          <td height="2" align=cneter></td>
        </tr>
        <%rs.close
		set rs=nothing
		else%>
        <%end if%>
    </table></td>
  </tr>
</table>