confirmed2.asp

用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 (bill_to_method="国际汇兑" or bill_to_method="西联汇款") and pay_currency<>"美金" 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>