config_cart.asp

一套完整的在线购物系统

<%
'---------------------------------------购物车信息-------------------------------------------
sub my_cart()
dim action,rs1,rs2,gid,cid,rs3
action=request.querystring("action")
gid=request.querystring("id")
cid=request.querystring("cid")
select case action
case "add"  '//添加商品到购物车
  set rs1=server.createobject("adodb.recordset")
  rs1.open "select * from mycart",conn,1,3
    set rs2=conn.execute("select * from goods where id="&gid)
  rs1.addnew
  rs1("goodsname")=rs2("goodsname")
  rs1("price")=rs2("price")
  rs1("username")=session("username")
  rs1("gsum")=int(rs2("price"))*1
  rs1.update
  rs2.close
  rs1.close
  set rs2=nothing
  set rs1=nothing
  response.redirect"my_cart.asp"
case "edit"  '//修改商品数量
  set rs3=server.createobject("adodb.recordset")
  rs3.open "select * from mycart where id="&cid,conn,1,3
  rs3("gcount")=int(request("gcount"))
  rs3("gsum")=rs3("price")*int(request("gcount"))
  rs3.update
  rs3.close
  set rs3=nothing
  response.redirect"my_cart.asp"
case "del"  '//删除购物信息
  conn.execute("delete from mycart where id="&cid)
  response.redirect"my_cart.asp"
case "delall"  '//清空购物信息
  conn.execute("delete from mycart where username='"&session("username")&"' and iscpl<>'ok'")
  response.redirect"my_cart.asp"
case else
%>
<table width="590" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor=#cacaca>
<tr align=center bgcolor=#e0e0e0 height=30><td>商品名称</td>
<td width=70>单价(会员)</td><td width=70>数量</td><td width=70>总价</td><td width=70>编辑</td><td width=50>操作</td>
</tr>
<%
dim rs
set rs=conn.execute("select * from mycart where username='"&session("username")&"' and iscpl<>'ok'")
do while not rs.eof 

%>
<form action="my_cart.asp?action=edit&cid=<%=rs("id")%>" method=post>
<tr bgcolor=#ffffff height=20><td>&nbsp;<%=rs("goodsname")%></td>
<td align=center><%=rs("price")%>&nbsp;元</td>
<td align=center><INPUT TYPE="text" NAME="gcount" value="<%=rs("gcount")%>" size=5></td>
<td align=center><FONT COLOR="red"><%=rs("gsum")%></FONT>&nbsp;元</td>
<td align=center><INPUT TYPE="image" SRC="pic/xg.gif" width=54 height=18></td>
<td align=center><A HREF="my_cart.asp?cid=<%=rs("id")%>&action=del" onclick="return confirm('确实要删除吗？')">
<FONT COLOR="red">删除</FONT></A></td></tr></form>
<% rs.movenext
   loop
%>
<tr bgcolor=#ffffff height=50><td colspan=6 align=center>
<A HREF="javascript:history.go(-1);"><IMG SRC="pic/cart01.gif" WIDTH="93" HEIGHT="43" BORDER="0"></A>
<A HREF="my_cart.asp?action=delall" onclick="return confirm('确实要清空信息吗？')">
<IMG SRC="pic/cart02.gif" WIDTH="107" HEIGHT="43" BORDER="0"></A>
<A HREF="jszx.asp"><IMG SRC="pic/cart03.gif" WIDTH="87" HEIGHT="43" BORDER="0"></A>
</td></tr>
</table>
<%
end select
end sub

'-------------------------------------------订单结算------------------------------------------
sub ddtj()
%>
<table width="590" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor=#cacaca>

<%

dim rs,action,rs2,rs3
action=request.querystring("action")
select case action
case "st_2"
   set rs=conn.execute("select * from userinfo where username='"&session("username")&"'")
   %>
<tr align=center bgcolor=#e0e0e0 height=30><td colspan=2><B>请正确填写以下收货信息</B></td></tr>
<form action="jszx.asp?action=st_3" method=post>
<tr bgcolor=#ffffff height=22><td width=120>&nbsp;&nbsp;收货人姓名：</td>
<td><INPUT TYPE="text" NAME="username" size=20 value="<%=rs("realname")%>">&nbsp;&nbsp;
性别：<INPUT TYPE="text" NAME="sex" size=10 value="<%=rs("sex")%>"></td></tr>
<tr bgcolor=#ffffff height=22><td width=120>&nbsp;&nbsp;收货详细地址：</td>
<td><INPUT TYPE="text" NAME="address" size=50 value="<%=rs("address")%>"></td></tr>
<tr bgcolor=#ffffff height=22><td width=120>&nbsp;&nbsp;邮编：</td>
<td><INPUT TYPE="text" NAME="youbian" size=12 value="<%=rs("youbian")%>">&nbsp;
（我们将按邮编划分送货区域，请您正确填写！）</td></tr>
<tr bgcolor=#ffffff height=22><td width=120>&nbsp;&nbsp;联系电话：</td>
<td><INPUT TYPE="text" NAME="usertel" size=20 value="<%=rs("usertel")%>"></td></tr>
<tr bgcolor=#ffffff height=22><td width=120>&nbsp;&nbsp;电子邮件：</td>
<td><INPUT TYPE="text" NAME="email" size=20 value="<%=rs("useremail")%>"></td></tr>
<tr bgcolor=#ffffff height=30><td colspan=2 align=center>
<INPUT TYPE="button" value="上一步" onclick="javascript:history.go(-1);">&nbsp;&nbsp;
<INPUT TYPE="submit" value="下一步">
</td></tr></form>
<%
  rs.close
  set rs=nothing
case "st_3"
   dim rs1
   set rs1=server.createobject("adodb.recordset")
   rs1.open "select * from userinfo where username='"&session("username")&"'",conn,1,3
   rs1("realname")=request("username")
   rs1("sex")=request("sex")
   rs1("address")=request("address")
   rs1("youbian")=request("youbian")
   rs1("usertel")=request("usertel")
   rs1("useremail")=request("email")
   rs1.update
   rs1.close
   set rs1=nothing
   set rs2=conn.execute("select * from sendway")
   %>
<tr align=center bgcolor=#e0e0e0 height=30><td colspan=2><B>请正确选择送货方式</B></td></tr>
<form action="jszx.asp?action=st_4" method=post>
<tr bgcolor=#ffffff height=22><td width=120>&nbsp;&nbsp;送货方式：</td>
<td>
<% do while not rs2.eof %>
<INPUT TYPE="radio" NAME="sendway" value=<%=rs2("subject")%>><%=rs2("subject")%>&nbsp;
<% rs2.movenext
   loop
   
 %>
</td></tr>
<tr bgcolor=#ffffff height=30><td colspan=2 align=center>
<INPUT TYPE="button" value="上一步" onclick="javascript:history.go(-1);">&nbsp;&nbsp;
<INPUT TYPE="submit" value="下一步">
</td></tr></form>
<%
rs2.close
set rs2=nothing
case "st_4"
  dim rs4,rs5,rs6,ddnum
  ddnum=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())
  
  set rs5=conn.execute("select * from userinfo where username='"&session("username")&"'")
  set rs6=conn.execute("select * from sendway where subject='"&request("sendway")&"'")
  set rs3=server.createobject("adodb.recordset")
  rs3.open "select * from goods_order",conn,1,3
  rs3.addnew
  rs3("ddnum")=ddnum
  rs3("username")=session("username")
  rs3("gsum")=cart_sum
  rs3("sendsum")=rs6("scost")
  rs3("tsum")=cart_sum+int(rs6("scost"))
  rs3("realname")=rs5("realname")
  rs3("address")=rs5("address")
  rs3("zipcode")=rs5("youbian")
  rs3("tel")=rs5("usertel")
  rs3("email")=rs5("useremail")
  rs3("sendway")=request("sendway")
  rs3("ddzt")="未作处理"
  rs3.update
  rs3.close
  set rs3=nothing
  conn.execute("update mycart set iscpl='ok',ddnum='"&ddnum&"' where iscpl<>'ok' and username='"&session("username")&"'")
  response.write"<p>&nbsp;</p>您已经成功递交订单，订单号为：<font color=red>"&ddnum&"</font>,请牢记该号码，供以后查询时使用。"
case else
%>
<tr align=center bgcolor=#e0e0e0 height=30><td>商品名称</td>
<td width=70>单价(会员)</td><td width=70>数量</td><td width=70>总价</td>
</tr>
<%
set rs=conn.execute("select * from mycart where username='"&session("username")&"' and iscpl<>'ok'")
do while not rs.eof 
%>
<tr bgcolor=#ffffff height=20><td>&nbsp;<%=rs("goodsname")%></td>
<td align=center><%=rs("price")%>&nbsp;元</td>
<td align=center><%=rs("gcount")%></td>
<td align=center><FONT COLOR="red"><%=rs("gsum")%></FONT>&nbsp;元</td>
</tr>
<% rs.movenext
   loop
   rs.close
   set rs=nothing
%>
<tr bgcolor=#ffffff height=30><td colspan=4 align=center>
<INPUT TYPE="button" value="上一步" onclick="javascript:history.go(-1);">&nbsp;&nbsp;
<INPUT TYPE="button" value="下一步" onclick="javascript:location.assign('jszx.asp?action=st_2')">
</td></tr>
<% end select %>
</table>
<%
end sub
%>