cash.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="top.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr valign="top">
<td width=170 rowspan="3" align="center">
<!--#include file="include/56770_userlogins.asp"-->
</td>
<td width="1" valign="top" background="images/bj_x.gif"></td>
<td align="center" width="588">
<%
response.write"<SCRIPT language=JavaScript>alert('本版本做了限制，欲开设网络店铺请购买正式版，谢谢！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
%>
<title><%=sitename%>--收银台</title>
<form method="POST" language="javascript" onsubmit="return form1_onsubmit()" name="form1" action="cashsave.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table cellspacing=0 cellpadding=0 width="100%">
<tr>
<td style="padding-left:10px;padding-top:2px" width="100%" height="38" background="images/hengtiao.gif">
&nbsp; 收银台&nbsp; &nbsp; 您订购的物品如下:</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" valign="top" align="center">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
<tr align="center">
<td width="195" height="25" bgcolor="#C9C3AD"> 商品名称</td>
<td width="60" height="25" bgcolor="#C9C3AD"> 单价</td>
<td width="60" height="25" bgcolor="#C9C3AD"> 数量</td>
<td width="80" height="25" bgcolor="#C9C3AD"> 合计</td>
</tr>
<%
user_id=session("user_id")
sql="select * from 56770_basket where user_id='"&user_id&"' and basket_check=false"
rs.open sql, conn, 3, 3
if rs.eof then
        response.write "你没有订购任何商品"
else
        do while not rs.eof
%>
<tr>
<td width="195" height="25" bgcolor="#C9C3AD"><div align="center"><font color=red><%=rs("product_name")%></font></div></td>
<td width="60" height="25" bgcolor="#C9C3AD"><div align="center"><%=rs("price")%>元</div></td>
<td width="60" height="25" bgcolor="#C9C3AD"><div align="center"><%=rs("basket_count")%></div></td>
<td width="80" height="25" bgcolor="#C9C3AD"><div align="center"><%=rs("price")*rs("basket_count")%>元
</div></td>
</tr>
<%totalcash=totalcash+(rs("price")*rs("basket_count"))%>
<%rs.movenext
loop
end if
rs.close
%>
<tr>
<td height="25" background="images/cart/buy_02.gif"><div align="center"><b class="dz1">总计：<font color=red><%=totalcash%></font>元</b></div><input type=hidden name=totalcash value="<%=totalcash%>"></td>
<td height="25" colspan="3" background="images/cart/buy_02.gif">

</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td>
<div align="center"><br>
<br>
<font color="#FF0000"><b>*您的购物信息已经确认将无法修改！请您认真填写每一项信息！谢谢！</b></font>
</div>
<%
set rs1=server.CreateObject("adodb.recordset")
sql="select top 1 * from 56770_user"
rs1.open sql, conn, 1, 2
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#C9C3AD">
<tr>
<td height="25" colspan="2" background="images/cart/buy_02.gif"> <font color=white>请填写收货人的详细信息</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="25">
<div align="right">姓名：</div>
</td>
<td width="81%" height="25">　
<input style="FONT-SIZE: 12px; WIDTH: 110px" type="text" name="to_name" size="20" class=input value="<%=rs1("user_name")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="25">
<div align="right">地址：</div>
</td>
<td height="25">　
<input style="FONT-SIZE: 12px; WIDTH: 210px" type="text" name="to_adds" size="40" class=input value="<%=rs1("user_adds")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="25">
<div align="right">邮编：</div>
</td>
<td height="25">　
<input style="FONT-SIZE: 12px; WIDTH: 110px" type="text" name="postcode" size="10" class=input value="<%=rs1("user_postalcode")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="25">
<div align="right">电话：</div>
</td>
<td height="25">　
<input style="FONT-SIZE: 12px; WIDTH: 110px" type="text" name="tel" size="20" class=input value="<%=rs1("user_tel")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="25">
<div align="right">E-mail：</div>
</td>
<td height="25">　
<input style="FONT-SIZE: 12px; WIDTH: 110px" type="text" name="email" size="20" class=input value="<%=rs1("user_mail")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="12">
<div align="right">付款方式：</div>
</td>
<td height="25">　
<select size="1" name="paymenttype">
<option value="货到付款">货到付款</option>
<option value="银行转帐">银行转帐</option>
<option value="邮政汇款">邮政汇款</option>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="12">
<div align="right">陪送方式：</div>
</td>
<td height="25">　
<select size="1" name="sendtype">
<option value="送货上门">送货上门</option>
<option value="普通邮寄">普通邮寄</option>
<option value="特快专递">特快专递</option>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="12">
<div align="right">备注：<br>
(50汉字内)</div>
</td>
<td height="12"> 　
<textarea style="FONT-SIZE: 12px; WIDTH: 250px" name="other" cols="30" class="input" rows="3"></textarea>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
<!--#include file="footer.asp"-->