📄 basket.asp
字号:
<%@ LANGUAGE=vbscript %>
<% Response.Buffer = TRUE %>
<% Response.ExpiresAbsolute=#Jan 01, 1980 00:00:00# %>
<!--#INCLUDE FILE = "include/shop.asp" -->
<!--#INCLUDE FILE = "include/util.asp" -->
<% REM ##########################################################################%>
<% REM #%>
<% REM Basket.ASP #%>
<% REM 购物篮 #%>
<% REM #%>
<% REM Copyright (c) 1999-2000 Epro Corporation. All rights reserved. #%>
<% REM #%>
<% REM ##########################################################################%>
<%
cmdTemp.CommandText = "SELECT * FROM CARRIAGE"
Set recordSet = Server.CreateObject("ADODB.Recordset")
recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
while not(recordset.EOF)
if recordset("id")="1" then cost1=recordset("cost")
if recordset("id")="2" then cost2=recordset("cost")
if recordset("id")="3" then cost3=recordset("cost")
if recordset("id")="4" then cost4=recordset("cost")
recordset.MoveNext
wend
recordset.Close
cmdTemp.CommandText = "SELECT * FROM basket WHERE session_id = '" & session.SessionID & "' order by product_id"
Set recordSet = Server.CreateObject("ADODB.Recordset")
recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
%>
<html>
<head>
<title>购物篮</title>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link REL="stylesheet" HREF="ecom.css" TYPE="text/css">
</head>
<body topmargin="0">
<!--#INCLUDE FILE = "include/toolbar.asp" -->
<br>
<table border="0" width="500" align="center">
<tr>
<td width="500">
<center>
<form METHOD="POST" ACTION="xt_orderform_editquantities.asp" id="form1" name="form1">
<table CELLPADDING="0" CELLSPACING="0" BORDER="0" style="font-size: 10pt" align="center">
<% if recordSet.RecordCount = 0 then %>
<tr><td align="center">
<strong>您的购物篮现在是空的。</strong>
</td></tr>
<% else %>
<% if CBool(recordSet.RecordCount > 0) then %>
<tr><td><font color="#800000">您的购物篮中有 <% = recordSet.RecordCount %> 种商品。</font></td></tr>
<tr><td><font color="#800000">更改商品数量请按更新购物篮，重新计算价格。</font></td></tr>
<tr><td> </td></tr>
<tr><td>
<table border="0" cellPadding="3" cellSpacing="1" width="535" style="font-size: 11pt">
<tr>
<td bgColor="<%=thcolor3%>" width="80">数量</td>
<td bgColor="<%=thcolor3%>" width="150">名称</font></td>
<td bgColor="<%=thcolor3%>" width="86" colspan="2">单价</td>
<td bgColor="<%=thcolor3%>" width="86" colspan="2">小计</font></td>
<td bgColor="<%=thcolor3%>" width="86">删除</td>
<tr>
<% session("Product_type")=""
For i = 1 to recordSet.RecordCount
If recordSet.EOF then exit for
if not Isnull(recordSet("Product_type")) then
if trim(cstr(recordSet("product_type")))<>"" then
session("Product_type")=session("Product_type")+trim(cstr(recordSet("product_type")))
end if
end if
%>
<tr>
<td bgColor="<%=tdleft4%>"><p><input name="quantity<% =rowidx %>" size="4" value="<% =recordSet("quantity").value %>"></p></td>
<td bgColor="<%=tdleft4%>"><% =recordSet("name").value %></td>
<%if isnull(recordSet("list_price").value) then
subtotal_price=-1
total_price=-1
%>
<td bgColor="<%=tdleft4%>">---</td>
<%else%>
<td bgColor="<%=tdleft4%>">$<% =recordSet("list_price").value %></td>
<%end if%>
<td bgColor="<%=tdleft4%>">￥<% =recordSet("rmb_price").value %></td>
<%
quantity=recordSet("quantity").value
list_price=recordSet("list_price").value
if subtotal_price<> -1 then subtotal_price=formatnumber(quantity)*formatnumber(list_price,2)
if total_price<>-1 then total_price=total_price+subtotal_price
rmb_price=recordSet("rmb_price").value
rmbsubtotal_price=formatnumber(quantity)*formatnumber(rmb_price,2)
rmbtotal_price=rmbtotal_price+rmbsubtotal_price
if subtotal_price<>-1 then %>
<td bgColor="<%=tdleft4%>">$<% =subtotal_price %></td>
<%else %>
<td bgColor="<%=tdleft4%>">---</td>
<%end if%>
<td bgColor="<%=tdleft4%>">￥<% =rmbsubtotal_price %></td>
<td bgColor="<%=tdleft4%>"><a href="xt_orderform_delitem.asp?pfid=<%=recordSet("product_id").value%>"> <img src="images/delitems.gif" alt="暂时不要" align="bottom" border="0" WIDTH="43" HEIGHT="16"></td>
</tr>
<% recordSet.MoveNext%>
<% next %>
<tr>
<td> </td>
<td> </td>
<td bgColor="<%=tdleft4%>" colspan="2">总计</td>
<%if total_price<>-1 then %>
<td bgColor="<%=tdleft4%>">$<% =total_price %></td>
<%else %>
<td bgColor="<%=tdleft4%>">---</td>
<%end if%>
<td bgColor="<%=tdleft4%>">￥<% =rmbtotal_price %></td>
<td> </td>
</tr>
</table>
</td></tr>
<tr><td> </td></tr>
<tr><td><font color="#800000">
以人民币结算时，若收货人地址在北京，则加运费<%=cost1%>元人民币；<br>
若收货地址不在北京，则加运费<%=cost2%>元人民币。<br>
以美元结算时，若收货人地址在北京，则加运费<%=cost3%>美元；<br>
若收货地址不在北京，则加运费<%=cost4%>美元。</font></td></tr>
<% end if %>
<% end if %>
</table>
</center>
</td>
</tr>
<tr>
<td>
<% if recordSet.RecordCount <> 0 then %>
<center>
<table border="0" cellPadding="3" cellSpacing="1">
<tr>
<td>
<input TYPE="submit" VALUE="更新购物篮">
</form>
</td>
<td>
<form METHOD="POST" ACTION="xt_orderform_clearitems.asp" id="form2" name="form2">
<input TYPE="submit" VALUE="清空购物篮">
</form>
</td>
<td>
<form METHOD="POST" ACTION="xt-checkout.asp" id="form3" name="form3">
<input type="hidden" name="goto" value="checkout.asp">
<input TYPE="submit" VALUE="下订单">
</form>
</td>
<td>
<form METHOD="POST" ACTION="index.asp" id="form4" name="form4">
<input TYPE="submit" VALUE="继续购物">
</form>
</td>
</tr>
</table>
</center>
<%end if%>
</td>
</tr>
</table>
<br>
<!--#INCLUDE FILE = "include/footer.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -