shopmailform.asp

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

<!-- #include file="shop$db.asp" -->
<%
Dim dbc
'*****************************************************************
' creates a confirmation form that the user can use to mail or fax manually
' or to just verify the order details before proceeeding
'*******************************************************************
ShopPageHeader              ' Normal page header
ShopOpenDatabase dbc            ' Open the database 
GetCustomerSessionData      ' make sure we have all session data in local variables 
GetCompanyInfo              ' Write our own company information
CartFormat "NOREMOVE"       ' common format cart routine 
ShopCreateReport            ' Create report
ShopPageTrailer             ' Normal Shop page trailer
ShopCloseDatabase   dbc        ' Close the database 
'
Sub ShopCreateReport
%>
<form>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=80% bordercolordark="#333399" bordercolorlight="#666699">
       <TR>
        <TD colspan=2 bgColor=darkblue><strong>
		<span style="background-color: #00008B"><font color="#FFFFFF">客户详细信息</font></span></strong><font face="Arial, Arial, Helvetica"> </font></TD>
        </TR>
  
    <TR>
        <TD align="right"><font face="Arial" size="2"><b>名:</b></font></TD>
        <TD  height="1"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=fname size="46" value="<%=strFirstName %>"></font></font></font></TD></TR>
    <TR>
        <TD align="right"><font face="Arial" size="2"><b>姓:</b></font></TD>
        <TD  height="1"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=fname size="46" value="<%=strLastName %>"></font></font></font></TD></TR>

    <TR>
        <TD vAlign=top align="right"><b><font face="Arial" size="2">地址</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            
            <INPUT name=address value="<%=strAddress%>"  size="46"><BR>
    <TR>
        <TD align="right"><font face="Arial" size="2"><b>市县:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=town size="20" value="<%=strCity%>"></font></font></font></TD></TR>
    <TR>
        <TD align="right"><b><font face="Arial" size="2">省份</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=state size="20" value="<%=strState%>"></font></font></font></TD></TR>
    <tr>
        <TD align="right"><b><font face="Arial" size="2">邮编</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
           <INPUT name=zip size="6" value="<%=strPostCode %>"></font></font></TD>
    </tr>
     <TR>
        <TD align="right"><b><font face="Arial" size="2">国籍</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=country value="<%=strCountry%>" size="30"></font></font></font></TD></TR>
    <tr>
        <TD align="right"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial" size="2"><b>E-mail:</b></font></font></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=email size="34" value="<%=strEmail%>"></font></font></font></TD>
    </tr>
         <TR>
        <TD align="right"><b><font face="Arial" size="2">电话</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=phone size="20" value="<%=strPhone%>"></font></font></font></TD></TR> 
      <TR>
        <TD align="right"><b><font face="Arial" size="2">传真</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
            <INPUT name=fax size="20" value="<%=strFax%>"></font></font></font></TD></TR>
    <tr>
        <TD align="right"><b><font face="Arial" size="2">公司</font></b><font face="Arial" size="2"><b>:</b></font></TD>
        <TD ><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <font face="Arial" size="2">
             <INPUT name=company size="46" value="<%=strCompany%>"></font></font></font></TD></TR>
    </TABLE><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
</font></font></td>
  </tr>
</table><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
<p align="center"></p>
</font></font><TABLE border=1 cellPadding=1 cellSpacing=1 width=80% bordercolordark="#333399" bordercolorlight="#666699">

    <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="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><SELECT id=select1 name=paymentm>
                    <OPTION selected value=Visa>Visa
                    <OPTION value="American Express">American Express
                    <OPTION value=Mastercard>Mastercard
                    <OPTION value=dinersclub>Diner's Club</SELECT></font></font></TD></TR>
     <TR>
        <TD><font face="Arial, Arial, Helvetica">卡用户名:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type=text name="cardname" size="46" value="<%= Session("cardname")%>"></font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">卡编号.:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type=text maxLength=16 name="cardno" value="<%= Session("cardno")%>"></font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">有效期:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=cardexpire size="6" value="<%= Session("cardexpire")%>"> (mm/yy)</font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">卡地址:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" size="46" name=cardaddress value="<%= Session("cardaddress")%>"></font></font></TD>
     </TR>
 
      <TR>
        <TD><font face="Trebuchet MS, Arial, Helvetica"></font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"></font></TD>
     </TR>
 </TABLE>
<font face="Trebuchet MS, Arial, Helvetica">
<Br>
</font></font>

<TABLE border=1 cellPadding=1 cellSpacing=1 width=80% bordercolordark="#333399" bordercolorlight="#666699">
       <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="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipname size="46" value="<%= Session("shipMethod") %>"></font></font></TD></TR>
        <TR>
        <TD><font face="Arial, Arial, Helvetica">姓名:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipname size="46" value="<%= Session("shipname") %>"></font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">地址:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipaddress size="46" value="<%= Session("shipaddress") %>"></font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">市县:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" value="<%= Session("shiptown") %>" name="shiptown"></font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">邮编:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name="shipzip" value="<%= Session("shipzip") %>">
        </font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">省份:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipstate value="<%= Session("shipstate") %>"></font></font></TD></TR>
     <TR>
        <TD><font face="Arial, Arial, Helvetica">公司:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT type="text" name=shipcompany size="46" value="<%= Session("shipcompany") %>"></font></font></TD></TR>
    <TR>
        <TD><font face="Arial, Arial, Helvetica">国家:</font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
            <INPUT name="shipcountry" value="<%= Session("shipcountry") %>"></font></font></TD></TR>
       
      <TR>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"> </font></font></TD>
        <TD><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"></font></font></TD>
     </TR>
 </TABLE><font face="Arial, Arial, Helvetica">
<h4><font color="#990000">其他说明</font></h4>
Please fill in<br><br><br>
<%
End Sub
'********* Get company info
Sub GetCompanyInfo
Dim rsus
Set rsus = Server.CreateObject ("ADODB.Recordset")
rsus.Open "mycompany", dbc, adOpenForwardOnly,adLockReadOnly, adCmdTable
%>
<center><font size=2>
<b>返回上页继续处理订单<br></b>
<br></font>
<%=rsus("CompanyName")%><br>
<%=rsus("Address")%><br>
<%=rsus("city")%> <%=rsus("State")%> <%=rsus("Postalcode")%><br>
<%=rsus("Country")%><br>
Phone: <%=rsus("PhoneNumber")%><br>
Fax: <%=rsus("FaxNumber")%><br>
E-mail: <%=rsus("myemail")%><br>
<br>
<%
set rsus=nothing
End Sub
%>