<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim bookid,booknum,num,shopid,conn,connstr,rs,sql
connstr="driver={microsoft access driver (*.mdb)}; dbq="&server.MapPath("book.mdb")
set conn=server.CreateObject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from orde"
rs.open sql,conn,1,3
if 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>
评论