<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim bookid,booknum,num,shopid,conn,connstr,rs,sqlconnstr="driver={microsoft access driver (*.mdb)}; dbq="&server.MapPath("book.mdb")set conn=server.CreateObject("adodb.connection")conn.open connstrset rs=server.CreateObject("adodb.recordset")sql="select * from orde"rs.open sql,conn,1,3if session("userid")=""then response.Write("请先登录该系统，谢谢合作！") response.End()end if if request.QueryString("mode")="add" then index=0 shopid=request.QueryString("itemo") for i=1 to rs.recordcount if rs("bookid")=shopid then index=i exit for end if rs.movenext() next if index=0 then rs.addnew() rs("bookid")=shopid rs("userid")=session("userid") rs("date")=now() rs("num")=1 rs.update() else rs("num")=rs("num")+1 rs.update() end if rs.close()end if%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>图书在线商城-购物车</title><style type="text/css"><!--body { margin-left: 80px; margin-right: 80px;}.STYLE1 { font-size: xx-large; color: #FF6600;}.STYLE4 {font-size: large}.STYLE8 {color: #FFFFFF}.STYLE10 {font-size: small; }--></style></head> <body><div align="center" class="STYLE1"> <p>购物车(shopcar)</p> <p align="left"><span class="STYLE4"> 你的购物车包括以下物品：</span> </p> <table width="809" border="1" bordercolor="#CCCCCC"> <tr bgcolor="#DDBC9B"> <td width="50" height="17"><div align="center" class="STYLE10"><span class="STYLE8">编号</span></div></td> <td width="69"><div align="center" class="STYLE10"><span class="STYLE8">数量</span></div></td> <td width="501"><div align="center" class="STYLE10"><span class="STYLE8">图书名称</span></div></td> <td width="86"><div align="center" class="STYLE10"><span class="STYLE8">价格</span></div></td> <td width="66"><div align="center" class="STYLE10"><span class="STYLE8">小计(元)</span></div></td> </tr> <% total=0 sql="select * from book,orde where book.id=bookid" rs.open sql,conn,1,1 while not rs.eof cash=cint(rs("price"))*rs("num") total=cash+total %> <tr > <td height=""><span class="STYLE10"><%=i%></span></td> <td> <div align="center" class="STYLE10"> <input name="number" type="text" id="number" size="8" value=<%=rs("num")%>/> </div> </td> <td><span class="STYLE10"><%=rs("bookname")%></span></td> <td><span class="STYLE10"><%=rs("price")%></span></td> <td><span class="STYLE10"><%=cash%></span></td> </tr> <% rs.movenext() wend %> <tr > <td height="22" colspan="4" bgcolor="#CCCCCC"><div align="center" class="STYLE10"><span class="STYLE8">合计</span></div></td> <td><span class="STYLE10"><%=total%></span></td> </tr> </table> <p> <input name="cmd" type="submit" id="cmd" value="继续购物" /> <input name="cmd" type="submit" id="cmd" value="改变数量" /> <input name="cmd" type="submit" id="cmd" value="结 帐" /> </p></div></body></html>
评论