shopshipping.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 164 行

<!-- #include file="shop$db.asp" -->
<%
Dim msg
Dim ShippingMethods(10)
Dim ShippingPrices(10)
Dim ShippingCount
Session("CurrentURL")="ShopShipping.asp"
Session("FollowonURL")="shopcreateorder.asp"
Session("smprice")=""             ' no price
Session("ShipMethod")=""          ' no type
if ucase(session("$shipping"))="NO" then  ' Does merchant want shipping page 
          response.redirect Session("followonurl")  ' continue to create order
end if
ShopGetShipping                  ' do the whole thing
'  
Sub ShopGetShipping()
sAction=Request.form("Action")   ' find out if we are being called via submit
If sAction = "" Then             ' no came from customer logic
     ShopPageHeader              ' Normal page header 
     response.write ("<p><font size=2><a href=shopcustomer.asp?new=yes>新用户进入</a></font></p>")
     GetShippingPrices           ' Get shipping info from database
     DisplayForm()               ' display shipping form
     ShopPageTrailer             ' Normal page trailer
Else
     sError="" 
     'ValidateData()             ' no need to validate anything, nothing is required
     if sError = "" Then
         UpdateShippingSessionData ' update shipping date in session variables
         response.redirect Session("followonurl")  ' continue to create order
      else
          ShopPageHeader          ' otherwise redisplay form
          GetShippingPrices       ' get shipping prices 
          DisplayForm             ' display form again
          ShopPageTrailer         ' do normal page trailer
       end if
end if
end Sub

Sub DisplayForm()
' Write any validation errors
if sError<> "" then
            response.write "<b>" & SError & "</b>"
            Serror=""
end if
%>
<center>
<table border="0" width="80%">
  <tr>
    <td width="100%" colspan="2" valign="top"><font face="Arial, Arial, Helvetica">
    <% if msg = "" Then %>    
    <br><font face="Arial"><b>选择送货方式:</br></b></font></font>
    <% else %>
    <font face="Arial">提供的信息不正确 <%= msg %></font>
    <%end if %>
    </font></td>
  </tr>
  <tr>
    <td width="100%" valign="top"><font size="2" face="Arial, Arial, Helvetica">
    如果你让我们送货到其他的地址，请完整的填写下表<br>
    下表可以查看每种送货方式的费率
    <font face="Arial, Arial, Helvetica"></td></tr>
</table>

<form method="POST" action="shopshipping.asp" name="fcustomer">
    </font>
<TABLE border=1 cellPadding=0 cellSpacing=2 width=80% bordercolordark="#669933" bordercolorlight="#99CC66">
       <TR>
        <TD colspan=2 bgColor=darkblue><font face="Arial, Arial, Helvetica"><FONT color=white face="" style="BACKGROUND-COLOR: #00008b">
        <STRONG>送货信息 (如果不同于注册信息)</STRONG></FONT> </font></TD>
        </TR>
<TR>
        <TD><font face="Arial, Arial, Helvetica">送货方式:</font></TD>
<%
%>
        <TD><font face="Arial, Arial, Helvetica"><SELECT name=shipment>
        <% For i = 0 to ShippingCount-1 %>
                    <OPTION size="50" value="<%=i%>"><%=ShippingMethods(i)%> Costs <%=formatcurrency(ShippingPrices(i),2)%> 
                     
	<%Next%>
	</SELECT>
                    </font></TD>
     </TR>
        <TR>
        <TD><font face="Arial, Arial, Helvetica">姓名:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipname size="50" value="<%= Session("shipname") %>"></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">地址:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
          <INPUT type="text" name=shipaddress size="50" value="<%= Session("shipaddress") %>"></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">城市:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
            <INPUT type="text" value="<%= Session("shiptown") %>" name="shiptown" size=50></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">州:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipstate size=20 value="<%= Session("shipstate") %>"></font></TD></TR>
     
    <TR>
        <TD><font face="Arial, Arial, Helvetica">邮编:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name="shipzip" size=10 value="<%= Session("shipzip") %>">
        </font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">公司:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipcompany size=50 value="<%= Session("shipcompany") %>"></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">国家:</font></TD>
        <TD><font face="Arial, Arial, Helvetica">
            <INPUT name="shipcountry" size=50 value="<%= Session("shipcountry") %>"></font></TD></TR>
       
      <TR>
        <TD><font face="Arial, Arial, Helvetica"> </font></TD>
        <TD><font face="Arial, Arial, Helvetica"></font></TD>
     </TR>
 </TABLE><font face="Arial, Arial, Helvetica">
      <TR>
        <TD align="right" height="25"><font face="Arial, Arial, Helvetica"></font></TD>
        <TD bgcolor="#FFCC99" height="25"><font face="Arial, Arial, Helvetica">
            <input type="submit" name="Action" value="继续">  
    </TABLE><font face="Arial, Arial, Helvetica">
<%
end sub
' moe form info to session variables
'************************************
Sub UpdateShippingSessionData()
dim strname
dim strvalue
For Each key in Request.Form
		strname = key
		strvalue = Request.Form(key)
		Session(strname) = strvalue
                'response.write key & "=" &  strvalue
Next
i=Request.form("Shipment")         ' get selected
Session("Shipment")=i
i = cint(i)
GetShippingPrices
Session("smprice")=ShippingPrices(i)   ' shipping price for create order
Session("ShipMethod")=ShippingMethods(i) ' shipping method for create order
end sub
'***************************************
' Read Shipping info from database
' Get Shipping Prices
Sub GetShippingPrices
Dim rsship
Dim dbc
shippingcount=0
ShopOpenDatabase dbc
Set rsship = Server.CreateObject ("ADODB.Recordset")
rsship.Open "shipmethods", dbc, adOpenForwardOnly,adLockReadOnly, adCmdTable
Do While Not rsship.EOF
 ShippingMethods(shippingcount)=rsship("shipmethod")
 ShippingPrices(shippingcount)=rsship("smprice")
 shippingcount=shippingcount+1
 rsship.MoveNext 
Loop
rsship.Close
ShopCloseDatabase dbc
end sub
%>