📄 confirmed1.asp
字号:
<%@ LANGUAGE=vbscript %>
<!--#INCLUDE FILE="include/shop.asp" -->
<!--#INCLUDE FILE="include/util.asp" -->
<% REM ##########################################################################%>
<% REM #%>
<% REM CONFIRMED.ASP #%>
<% REM 订单确认 #%>
<% REM #%>
<% REM Copyright (c) 1996-98 Microsoft Corporation. All rights reserved. #%>
<% REM #%>
<% REM ##########################################################################%>
<%
Response.Buffer=true
dim errorList
'读运费信息
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"
recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
if recordset.RecordCount =0 then
errorList=errorList & "您的购物篮是空的。<br>"
end if
if (Isnull(ShopperID) or isempty(ShopperID)) then
errorList=errorList & "用户未登录或操作超时。<br>"
end if
bill_to_name = checklength(Request("bill_to_name"), 25)
if IsNull(bill_to_name) then
errorList=errorList & "付款人必须在1到25个汉字。<br>"
end if
bill_to_street = checklength(Request("bill_to_street"), 120)
if IsNull(bill_to_street) then
errorList=errorList & "付款人地址必须在1到120个汉字。<br>"
end if
bill_to_method = checklength(Request("bill_to_method"), 4)
if IsNull(bill_to_method) then
errorList=errorList & "必须选择付款方式。<br>"
end if
bill_to_state = checklength(Request("bill_to_state"),15)
if IsNull(bill_to_state) then
errorList=errorList & "付款人位置付必须在1到15个汉字。<br>"
end if
bill_to_city = checklength(Request("bill_to_city"), 25)
if IsNull(bill_to_city) then
errorList=errorList & "付款人城市必须在1到25个汉字。<br>"
end if
bill_to_zip = checklength(Request("bill_to_zip"), 15)
if IsNull(bill_to_zip) then
errorList=errorList & "付款人邮编位置必须在1到15个数字。<br>"
end if
bill_to_phone = checklength(Request("bill_to_phone"), 20)
if IsNull(bill_to_phone) then
errorList=errorList & "付款人电话必须是1到20个字符。<br>"
end if
ship_to_name = checklength(Request("ship_to_name"), 25)
if IsNull(ship_to_name) then
errorList=errorList & "收货人必须在1到25个汉字。<br>"
end if
ship_to_street = checklength(Request("ship_to_street"), 120)
if IsNull(ship_to_street) then
errorList=errorList & "收货人地址必须在1到120个汉字。<br>"
end if
ship_to_state = checklength(Request("ship_to_state"),15)
if IsNull(ship_to_state) then
errorList=errorList & "收货人位置必须在1到15个汉字。<br>"
end if
ship_to_city = checklength(Request("ship_to_city"), 25)
if IsNull(ship_to_city) then
errorList=errorList & "收货人城市必须在1到25个汉字。<br>"
end if
ship_to_zip = checklength(Request("ship_to_zip"), 15)
if IsNull(ship_to_zip) then
errorList=errorList & "收货人邮编位置必须在1到15个数字。<br>"
end if
ship_to_phone = checklength(Request("ship_to_phone"), 20)
if IsNull(ship_to_phone) then
errorList=errorList & "收货人电话必须是1到20个字符。<br>"
end if
description = checklength(Request("note"), 100)
ship_to_email = checklength(Request("ship_to_email"), 50)
bill_to_email = checklength(Request("bill_to_email"), 50)
'计算运费
if trim(bill_to_state)="其它" then
pay_currency="美金"
else
pay_currency="人民币"
end if
if trim(ship_to_state)="北京" and pay_currency="人民币" then
ship_fee=cost1
elseif trim(ship_to_state)<>"北京" and pay_currency="人民币" then
ship_fee=cost2
elseif trim(ship_to_state)="北京" and pay_currency="美金" then
ship_fee=cost3
else
ship_fee=cost4
end if
if bill_to_method="货到付款" and bill_to_state<>"北京" then
errorList=errorList & "货到付款只接受北京用户。<br>"
end if
%>
<%if errorList="" then%>
<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="720" align="center">
<tr>
<td width="720" >
<table border="0" width="600" align="center">
<tr>
<td align="middle" bgColor=<%=tdcolor4%> colSpan=4" width="600" height=25>
<p align="center"><b>订单确认</b></p>
</td>
</tr>
<tr bgColor=<%=thcolor4%>>
<td width="100"><font color="#000000">商品名称</font></td>
<td width="200"><font color="#000000">数量</font></td>
<td width="100"><font color="#000000">单价</font></td>
<td width="200"><font color="#000000">小计</font></td>
</tr>
<% For i = 1 to recordSet.RecordCount
If recordSet.EOF then exit for
%>
<tr>
<td bgColor=<%=tdleft4%> width="100"><% =recordSet("name").value %></td>
<td bgColor=<%=tdleft4%> width="200"><% =recordSet("quantity").value %></td>
<%if isnull(recordSet("list_price").value) then
subtotal_price=-1
total_price=-1
end if%>
<% if pay_currency="美金" then %>
<td bgColor=<%=tdleft4%> width="100">$<% =recordSet("list_price").value %></td>
<%'没有美金价格， 输出错误
if recordset("list_price")="" or isnull(recordset("list_price")) then
Response.Clear
errorList="部分商品没有美金价格，不能再海外销售。<br>"
%>
<!--#INCLUDE FILE="include/error.asp" -->
<%
Response.End
exit for
end if
%>
<%else %>
<td bgColor=<%=tdleft4%> width="100">￥<% =recordSet("rmb_price").value %></td>
<%end if%>
<%
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 pay_currency="美金" then
if subtotal_price<>-1 then%>
<td bgColor="<%=tdleft4%>">$<% =subtotal_price %></td>
<%else %>
<td bgColor="<%=tdleft4%>">---</td>
<%end if
else %>
<td bgColor="<%=tdleft4%>">￥<% =rmbsubtotal_price %></td>
<%end if%>
</tr>
<% recordSet.MoveNext%>
<% next %>
<tr>
<td width="100"> </td>
<td width="200"> </td>
<td bgColor=<%=tdleft4%> width="100">合计</td>
<% if pay_currency="美金" then %>
<td bgColor=<%=tdleft4%> width="200">$<% =total_price %></td>
<% else %>
<td bgColor=<%=tdleft4%> width="200">￥<% =rmbtotal_price %></td>
<%end if%>
</tr>
<tr>
<td width="100"> </td>
<td width="200"> </td>
<td bgColor=<%=tdleft4%> width="100">运费</td>
<% if pay_currency="美金" then %>
<td bgColor=<%=tdleft4%> width="200">$<% =ship_fee%></td> \
<% else %>
<td bgColor=<%=tdleft4%> width="200">￥<% =ship_fee %></td>
<%end if%>
</tr>
<tr>
<td width="100"> </td>
<td width="200"> </td>
<td bgColor=<%=tdleft4%> width="100">总计</td>
<% if pay_currency="美金" then %>
<td bgColor=<%=tdleft4%> width="200">$<% =(formatnumber(ship_fee)+total_price)%></td>
<% else %>
<td bgColor=<%=tdleft4%> width="200">￥<% =(formatnumber(ship_fee)+rmbtotal_price)%></td>
<%end if%>
</tr>
</table>
</td>
</tr>
<tr>
<td width="720">
<table width="600" align="center">
<tr>
<td bgColor=<%=tdcolor4%> height="28" width="100"><font color="#0000FF">付款方式：</font></td>
<td bgColor=<%=tdcolor4%> colspan=4 height="28" ><font color="#000000" ><%=bill_to_method%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人姓名：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_name%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人姓名：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_name%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人位置：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_state%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人位置：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_state%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人城市：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_city%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人城市：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_city%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人地址：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_street%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人地址：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_street%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人电话：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_phone%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人电话：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_phone%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人邮政编码：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_zip%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人邮政编码：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_zip%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人Email：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_email%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人Email：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_email%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table cellpadding=0 cellspacing=0 border=0 width="600" align="center">
<tr>
<td align="center">
<form action="xt_order_add.asp">
<input type="hidden" name="ship_to_name" value="<%=ship_to_name%>">
<input type="hidden" name="ship_to_street" value="<%=ship_to_street%>">
<input type="hidden" name="ship_to_state" value="<%=ship_to_state%>">
<input type="hidden" name="ship_to_city" value="<%=ship_to_city%>">
<input type="hidden" name="ship_to_zip" value="<%=ship_to_zip%>">
<input type="hidden" name="ship_to_phone" value="<%=ship_to_phone%>">
<input type="hidden" name="ship_to_email" value="<%=ship_to_email%>">
<input type="hidden" name="bill_to_name" value="<%=bill_to_name%>">
<input type="hidden" name="bill_to_street" value="<%=bill_to_street%>">
<input type="hidden" name="bill_to_state" value="<%=bill_to_state%>">
<input type="hidden" name="bill_to_method" value="<%=bill_to_method%>">
<input type="hidden" name="bill_to_city" value="<%=bill_to_city%>">
<input type="hidden" name="bill_to_zip" value="<%=bill_to_zip%>">
<input type="hidden" name="bill_to_phone" value="<%=bill_to_phone%>">
<input type="hidden" name="bill_to_email" value="<%=bill_to_email%>">
<input type="hidden" name="note" value="<%=description%>">
<INPUT TYPE="submit" value="确定" id=submit1 name=submit1>
<input type="button" value="返回" onclick="javascript:history.back(-1);" id=button1 name=button1>
</FORM>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#INCLUDE FILE = "include/footer.asp" -->
</body>
</html>
<%else%>
<!--#INCLUDE FILE="include/error.asp" -->
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -