📄 shopcart.asp
字号:
<html>
<head>
<title>购物车</title>
<script language="javascript">
</script>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<%
sCartItemNums = session("cartitemnumarray")
nCartItemQtys = session("cartitemqtyarray")
nNumCartItems = ubound(sCartItemNums)
'Determine the mode of this page's operation. If we got here from a
' link that had a "mode" querystring of "add", mode is add:
sMode = request.querystring("mode")
'Or, we could have gotten here from a form:
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
select case sMode
case "continue"
end select
set dbMain = server.createobject("ADODB.Connection")
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver={microsoft access driver (*.mdb)};"
dbMain.open connstr
%>
<BODY>
<br>
<font color="#008000" size="-1">
<% if sMode = "checkout" then %>
</font>
<form action="ordercheck.asp" method="post" id=form1 name=form1>
<font color="#008000" size="-1">
<% else %>
<form action="shopcart.asp" method="POST" id=form2 name="form2">
<% end if %>
<%
if nNumCartItems = 0 then
response.write "你的购物篮里没有商品.<br>"
else
if sMode = "checkout" then
%>
你的定货信息将被提交</font><font face="Verdana,Arial" color="#008000" size="-1">.
</font>
<font color="#008000" size="-1"> 请提供以下信息</font><font face="Verdana,Arial" color="#008000" size="-1">!
<br><br>
<table align="center" border="0">
<TBODY>
<tr bgcolor="#c0c0c0">
<th colspan="2" align="middle"></font>
<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="邮局汇款" checked></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><font color="#ffff33" size="-1">
数量</font>
<th><font color="#ffff33" size="-1">
编号</font><font face="Verdana,Arial" color="#ffff33" size="-1">.</font>
<th><font color="#ffff33" size="-1">
书名</font>
<th><font color="#ffff33" size="-1">
价格</font>
<th><font color="#ffff33" 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">
<font color="#000000" size="-1">
<% = sTemp %></font></td>
<td align="middle">
<font color="#000000" size="-1">
<% = rsProducts("id") %></font></td>
<td><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">
<font color="#000000" size="-1">
<% = cprice %></font></td>
<%
cExtension = nCartItemQtys(i) * cPrice
cSubTotal = cSubTotal + cExtension
%>
<td align="right">
<font color="#000000" size="-1">
<% = cExtension %></font></td>
</tr>
<% next %>
<tr bgcolor="#c5c5c5">
<td align="middle" colspan="4">
<font size="-1">总计</font></td>
<td align="right"><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 + -