asp简单购物车的设计及代码

<%end select%>购物车要实现的功能：以及查询商品的名称 1 用户查询商品的价格。去收银台结账等 2 同一用户实现添加商品。3 购物车实现功能：4 1 ．    订购。即把所选物品添加到购物车。5 2 ．    修改。根据自己的需求可以修改已购物品的数量。也可以删除已选商品。6 3 ．    显示购物车内所选的物品及单价。7 4 ．    结帐。结帐出进行结帐。8 5 ．    清空购物车。9 具体实现：10                       1 Index 商品选购页面。点击提交到数据库。11                       2 ．用户注册。用户登入。12                       3 检查购物车。其中包括修改商品数量和删除商品。13                       4 ．进入结帐页面。同时清空购物车。14               数据库实现：15               表一：个人信息 :info1.16               admin .pass . name. e-mail 等17               表二：商品列表 shop18               字段 : id name monei number residu 剩余 )19               表三 : 购物车 car20               字段 : id name monei 单价 ) number 数量 ) total 总价 )用户登陆的代码<!--#includ file=conn.asp--><%user=request "name"pwd=request "pass"if user="" thenresponse.redirect "reguser.asp"end ifset rs=server.createobject "adodb.recordset"sql="select * from admin where admin='"&user&"'"conn,rs.open sql.1,1   if not rs.eof then        if pwd=r "pass" then   response.writ " 登陆胜利 "   session "xm" =user//////////////////////////////////////// 把用户的信息写入到 session 变量中以后调用%><a href="gwc.asp"> 购物 </a><%   else   response.writ " 登陆不成功 "        end ifels   response.writ " 用户不存在 "   end if%>gwc.asp////////////////////////////////////////////// 显示所有商品列表<!--#includ file="conn.asp"--><%set rs=server.createobject "adodb.recordset"sql="select * from shop"conn,rs.open sql.1,1do while not rs.eof%>商品名称是 :<%=r "name" %><br>商品单价 :<%=r "money" %><br> 商品数量 :<%=r "number" %><br> 商品剩余量 :<%=r "residual" %><br><a href="gw.asp?id=<%=r "id" %> "> 购买 </a><br><br /><%rs.movenextloop%>=================================================================gw.asp/////////////////////////////////// 显示购买物品的列表<!--#includ file="conn.asp"--><%xm=sess "xm"action=request.QueryStr "action"if request.QueryStr "id" ="" thenbookid=request "bookid" ////////////////////////////////// 调入购买物品的 idelseif session "productlist" ="" thensess "productlist" =request.QueryStr "id"bookid=request.QueryStr "id"elsesession "productlist" <1 the    if instr request.querystr "id" .n"+request.QueryStr "id" ////////////// 把 id 全部存储到 bookid 中类似与数组 bookid=sess "productlist" +".session "productlist" =bookidelsebookid=sess "productlist"end ifend ifend if则说明用户没有购物 if bookid="" then//////////////////////// 若 id 为空。您没有选择商品！ ' ;window.clos ;</script>response.writ "<script language=javascript>alert ' 对不起。"response.Endend ifselect case action'//////////////////////////////////cas ""set rs=server.CreateObject "adodb.recordset"dim sqlmendationname,sqlmendation="select id.monei ,number from shop where id in "&bookid&" order by id"conn,rs.open sqlmendation.1,1%><form id="form1" name="form1" method="post" action=""><%dim iii ' 定义总价   iii=0book ' 定义判断有几个 bookid    dim bookscount.   bookscount=request.QueryStr "id" .count   do while not rs.eof   dim quatiti ' 判断 input 名Quatiti = CInt Request "ckxp"&r "id"If Quatiti <=0 Then Quatiti = 1%><tabl width="833" height="54" border="1" cellpadding="0" cellspacing="0" bordercolor="#3399FF"><tr>    <td width="93"> 商品名称 </td>    <td width="114"> 商品价格 </td>    <td width="141"> 商品数量 </td>    <td width="397"> 小计 </td>    <td width="76"> 修改数量 </td></tr><tr>    <td><%=trim rs "name" %> </td>2 &" 元 "%></td>    <td><%=formatnumb rs "money" .;/^[0-9]*$/,    <td><input name="<%="ckxp"& rs "id" %>" type="text" size="3" value="<%=Quatity%>" onkeypress= "return regInput this. String.fromCharCode'//////////////////// 判断用户输入数量的正确性 ( event.keyCod "onpast = "return regInput this,/^[0-9]*$/, window.clipboardData.getData 'Text' "ondrop= "return regInput this,/^[0-9]*$/,event.dataTransfer.getData 'Text' " /></td>    <td><%if quatity<=1 then2 &" 元 response.writ formatnumb rs "money" *1."else2 &" 元 response.writ formatnumb rs "money" *quatity."end if2 //////////////////// 判断总价格 iii=formatnumb rs "money" *Quatity+iii.%></td>    <td><input type="image" name="submit" src="images/xg.gif" onclick="this.form.action='gw.asp?id=<%=bookid%>';this.form.submit" /></td></tr><tr>    <td>&nbsp;</td>    <td>&nbsp;</td>    <td>&nbsp;</td>    <td>&nbsp;</td>    <td></label></td></tr></table>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%rs.movenextlooprs.close   set rs=nothing%>总计： <%=iii%> 元<%session "iii" =iii%><input type="image" border="0" name="submit2" src="images/xyb.gif" width="54" height="18" onClick="this.form.action='gw.asp?action=ckxp1&id=<%=bookid%>';this.form.submit " ><label><%if request.querystr "id" <>"" then%><a href="gwc.asp"><img src="images/cg.gif" border="0" /></a><%end if%></form><%cas "ckxp1"response.Writ iiimyorder=cstr year now &month now &dai now &hour now &minut now &second nowmyrdim mysql.sset myrs=server.CreateObject "adodb.recordset"mysql="select * from shop_act "conn,myrs.open mysql.1,3    myrs.addnewmyr "userid" =xmmyr "bookid" =bookidmyr "actiondate" =myordermyr "number" =quatitymyr "total" =session "iii"myrs.update   myrs.closeset myrs=nothingsess "productlist" =""%> <% response.writ "<tabl width=602 border=0 align=cent cellpadding=0 cellspacing=1 bgcolor=e8e8e>"response.writ " <tr bgcolor=#FFFFFF>"             response.Writ "<td width=199 style=PA DDING-LEFT: 20px>" %><%response.writ " 您的订 单号是 :" %>     <%   response.writ "</td>"                      response.Writ " <td width=771 height=28 style=PA DDING-LEFT: 20px> " %><b>                      <%=myorder%>                      </b>      <% response.Writ "</td>"                 response.Writ "   </tr>"response.Writ "<tr bgcolor=#FFFFFF>"                   response.Writ "   <td width=199 style=PA DDING-LEFT: 20pxcolspan=2 align=center>"                                         response.Writ " 请记住您的订 单号以方便查询 "                  response.Writ "</td>"                   response.Writ " </tr>"    response.Writ "</table>"%>  <%end select%>