WEB源码(ASP,PHP,...)

开发平台：

DOS

shopcart.asp：源码内容

							<table width="184" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td ><img src="images/mingle/carttop.gif" width="184" height="12" /></td>
  </tr>
  <tr> 
    <td background="images/mingle/cartbg.gif"width="184" ><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="70">
        <%
	if request.cookies("Cnhww")("username")<>"" then 
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select count(*) as rec_count from orders where username='"&request.cookies("Cnhww")("username")&"' and zhuangtai=7",conn,1,1
	rec_count=rs("rec_count")
	rs.close
	rs.open "select sum(zonger) as zongji from orders where username='"&request.cookies("Cnhww")("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"><%=FormatNum(rs("zongji"),2)%></font>元</td>
        </tr>
        <tr> 
          <td height="20">　<a href="buy.asp?action=show&amp;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"><div align="center">您还<font color="red">没有登陆</font><br />
              购物车<font color="red">不能使用</font> </div></td>
        </tr>
        <tr> 
          <td height="1"></td>
        </tr>
        <%end if%>
      </table></td>
  </tr>
  <tr> 
    <td ><img src="images/mingle/cartbt.gif" width="184" height="12" /></td>
  </tr>
</table>

						