📄 shopcart.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>购物车</title>
<script language="javascript">
</script>
<meta content="microsoft frontpage 4.0" name=generator>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<% scartitemnums=session("cartitemnumarray")
ncartitemqtys=session("cartitemqtyarray")
nnumcartitems=ubound(scartitemnums)
'response.write nnumcartitems
'response.write "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy"
'response.end
smode=request.querystring("mode")
select case request.form("cmdsubmit")
case"结帐"
smode="checkout"
case "改变数量"
smode="recalc"
case "继续购物"
smode="continue"
end select
if smode="add" then
nthisitemindex=0
sitemno=ucase(request.querystring("itemno"))
if nnumcartitems>0 then
for i=1 to nnumcartitems
if ucase(scartitemnums(i))=sitemno then
nthisitemindex=i
exit for
end if
next
end if
if nthisitemindex=0 then
nthisitemindex=nnumcartitems+1
redim preserve scartitemnums(nthisitemindex)
redim preserve ncartitemqtys(nthisitemindex)
scartitemnums(nthisitemindex)=sitemno
ncartitemqtys(nthisitemindex)=1
else
ncartitemqtys(nthisitemindex)=ncartitemqtys(nthisitemindex)+1
end if
session("cartitemnumarray")=scartitemnums
session("cartitemqtyarray")=ncartitemqtys
nnumcartitems=ubound(scartitemnums)
end if
if smode="recalc" or smode="checkout" or smode="continue" then
for i=1 to nnumcartitems
nthisqty=int(request.form("txtitemqty" & i))
ncartitemqtys(i)=nthisqty
next
session("cartitemnumarray")=scartitemnums
session("cartitemqtyarray")=ncartitemqtys
end if
set dbmain=server.createobject("adodb.connection")
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver= {microsoft access driver (*.mdb)};"
dbmain.open connstr
%>
<body bgcolor="#86BF78">
<br>
<font color="#008000" size="-1">
<% if smode="checkout" then %>
</font>
<form action="ordercheck.asp" method="post" id=form1 name="form1">
<% else %>
<form action="shopcart.asp" method="post" id=form2 name="form2">
<% end if %>
<%
if nnumcartitems=0 then
response.write "你的购物篮里没有商品"
else
if smode="checkout" then
%>
<font face="verdana,arial" color="#008000" size="-1">你的定货信息将被提交</font>
<font color="#008000" size="-1">请提供以下信息</font><font face="verdana,arial" color="#008000" size="-1">!</font>
<br><br>
<table align="center" border="0">
<TBODY>
<tr bgcolor="#c0c0c0">
<th colspan="2" align="middle">
<font size="-1" color="#008000">
顾客信息</font>
</tr>
<tr>
<td align="right"><font size="-1">姓名</font><font face="verdana,arial" size="-1">:</font></td>
<td><font face="verdana,arial" size="-1">
<input name="txtname" size="30" maxlength="30"></font>
</td>
</tr>
<tr>
<td align="right"><font size="-1">密码</font><font face="verdana,arial" size="-1">:</font></td>
<td><font face="verdana,arial" size="-1">
<input type="password" name="txtpassword" size="30" maxlength="30"></font></td>
</tr>
<tr>
<td align="right"><font size="-1">
支付方式</font><font face="verdana,arial" size="-1">:</font>
</td>
<td><font face="verdana,arial" size="-1">
<input type="radio" name="optpaymenttype" value="邮局汇款" checkde></font><font size="-1">邮局汇款
<input type="radio" name="optpaymenttype" value="信用卡">信用卡
</font>
</td>
</tr>
</tbody></table>
<%
else
response.write "你的购物篮包括以下物品:"
end if
%>
<br><br>
<table align="center" border="0">
<tr bgcolor="#ff0066">
<th bgcolor="#B4D3B7"><font color="#008000" size="-1">
数量</font>
<th bgcolor="#B4D3B7"><font color="#008000" size="-1">
编号</font>
<th bgcolor="#B4D3B7"><font color="#008000" size="-1">
书名</font>
<th bgcolor="#B4D3B7"><font color="#008000" size="-1">
价格</font>
<th bgcolor="#B4D3B7"><font color="#008000" size="-1">
小计</font></tr>
<%
csubtotal=0
nnumitems=0
for i=1 to nnumcartitems
set rsproducts=server.createobject("adodb.recordset")
ssql="select * from book where id=" & scartitemnums(i)
rsproducts.open ssql,dbmain,3,2,1
%>
<tr bgcolor="#99ccff">
<%
stemp="<input type='text' name='txtitemqty" & i & "' value='" & ncartitemqtys(i) & "' size='3'>"
nnumitems=nnumitems+ncartitemqtys(i)
%>
<td align="middle" bgcolor="#FBD4D7">
<font color="#000000" size="-1">
<%=stemp %></font></td>
<td align="middle" bgcolor="#FBD4D7">
<font color="#000000" size="-1">
<%=rsproducts("id")%></font></td>
<td bgcolor="#FBD4D7"><font color="#000000" size="-1">
<%=rsproducts("book")%></font></td>
<%
if rsproducts("price")>0 then
cprice=rsproducts("price")
else
cprice=0
end if
%>
<td align="middle" bgcolor="#FBD4D7">
<font color="#000000" size="-1">
<%=cprice %></font></td>
<%
cextension=ncartitemqtys(i)*cprice
csubtotal=csubtotal+cextension
%>
<td align="right" bgcolor="#FBD4D7">
<font color="#000000" size="-1">
<%=cextension%></font></td>
</tr>
<% next %>
<tr bgcolor="#c5c5c5">
<td colspan="4" align="middle" bgcolor="#FBD4D7">
<font size="-1">总计</font></td>
<td align="right" bgcolor="#FBD4D7"><font size="-1">
<%=formatcurrency(csubtotal)%></font></td>
</tr>
</table>
<br><div align="center">
<input type="button" name="close" value="继续购物" onclick="javascript:window.close()">
<input type="submit" name="cmdsubmit" value="改变数量">
<br><br>
<% if smode="checkout" then %>
<input type="submit" name="cmdsubmit" value="确定">
<% else %>
<input type="submit" name="cmdsubmit" value="结帐">
<% end if %>
</div></form>
<% end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -