shopmailform.asp

本软件可以实现的功能如下： 用户管理

<!-- #include file="shop$db.asp" -->
<%
Dim dbc

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 cellPadding=2 cellSpacing=1 width=80% align="center" bgcolor="#000000">
  <TR bgcolor="#005D39"> 
    <TD colspan=2><FONT color=white  style="BACKGROUND-COLOR:#005D39"> <STRONG>客户信息</STRONG></FONT></TD>
        </TR>
  
    
  <TR bgcolor="18865A"> 
    <TD >姓名：</TD>
        
    <TD > 
      <INPUT name=fname size="46" value="<%=strLastName %>"></TD></TR>

    
  <TR bgcolor="18865A"> 
    <TD >地址：</TD>
        
    <TD> 
      <INPUT name=address value="<%=strAddress%>"  size="46"></TD></TR>
    
  <TR bgcolor="18865A"> 
    <TD >城市/乡镇：</TD>
        
    <TD > 
      <INPUT name=town size="20" value="<%=strCity%>"></TD></TR>
    
  <TR bgcolor="18865A"> 
    <TD>省份：</TD>
        
    <TD >      
      <INPUT name=state size="20" value="<%=strState%>"></TD></TR>
    
  <tr bgcolor="18865A"> 
    <TD >邮政编码：</TD>
        
    <TD > 
      <INPUT name=zip size="6" value="<%=strPostCode %>"></TD>
    </tr>
     
  <TR bgcolor="18865A"> 
    <TD >国家：</TD>
        
    <TD > 
      <INPUT name=country value="<%=strCountry%>" size="30"></TD></TR>
    
  <tr bgcolor="18865A"> 
    <TD >邮箱：</TD>
        
    <TD >
      <INPUT name=email size="34" value="<%=strEmail%>"></TD>
    </tr>
         
  <TR bgcolor="18865A"> 
    <TD>电话：</TD>
        
    <TD >
      <INPUT name=phone size="20" value="<%=strPhone%>"></TD></TR> 
      
  <TR bgcolor="18865A"> 
    <TD>传真：</TD>
        
    <TD >
      <INPUT name=fax size="20" value="<%=strFax%>"></TD></TR>
    
  <tr bgcolor="18865A"> 
    <TD>公司：</TD>
        
    <TD >
      <INPUT name=company size="46" value="<%=strCompany%>"></TD></TR>
    </TABLE>
</td>
  </tr>
</table>
<p align="center"></p>

<TABLE cellPadding=2 cellSpacing=1 width=80% align="center" bgcolor="#000000">
  <TR bgcolor="#005D39"> 
    <TD colspan=2><FONT color=white face="" style="BACKGROUND-COLOR: #005D39"> 
      <STRONG>信用卡信息</STRONG></FONT></TD>
        </TR>
    
  <TR bgcolor="18865A"> 
    <TD>信用卡：</TD>
        
    <TD>
      <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></TD></TR>
     
  <TR bgcolor="18865A"> 
    <TD>持卡人姓名：</TD>
        
    <TD> 
      <INPUT type=text name="cardname" size="46" value="<%= Session("cardname")%>"></TD></TR>
    
  <TR bgcolor="18865A"> 
    <TD>卡号：</TD>
        
    <TD> 
      <INPUT type=text maxLength=16 name="cardno" value="<%= Session("cardno")%>"></TD></TR>
    
  <TR bgcolor="18865A"> 
    <TD>终止日期：</TD>
        
    <TD> 
      <INPUT type="text" name=cardexpire size="6" value="<%= Session("cardexpire")%>"> (mm/yy)</TD></TR>
    
  <TR bgcolor="18865A"> 
    <TD>持卡人地址：</TD>
        
    <TD> 
      <INPUT type="text" size="46" name=cardaddress value="<%= Session("cardaddress")%>"></TD>
     </TR>
 
      
  <TR bgcolor="18865A"> 
    <TD></TD>
        
    <TD></TD>
     </TR>
 </TABLE>

<Br>


<TABLE cellPadding=2 cellSpacing=1 width=80% align="center" bgcolor="#000000">
  <TR> 
    <TD colspan=2 bgcolor="#005D39"><FONT color=white face="" style="BACKGROUND-COLOR: #005D39"> 
      <b>货运信息</b></FONT> </TD>
        </TR>
  <TR> 
    <TD bgcolor="#18865A">货运方式：</TD>
        
    <TD bgcolor="#18865A">
      <INPUT type="text" name=shipname size="46" value="<%= Session("shipMethod") %>"></TD></TR>
        
  <TR> 
    <TD bgcolor="#18865A">姓名：</TD>
        
    <TD bgcolor="#18865A"> 
      <INPUT type="text" name=shipname size="46" value="<%= Session("shipname") %>"></TD></TR>
    
  <TR> 
    <TD bgcolor="#18865A">地址：</TD>
        
    <TD bgcolor="#18865A"> 
      <INPUT type="text" name=shipaddress size="46" value="<%= Session("shipaddress") %>"></TD></TR>
    
  <TR> 
    <TD bgcolor="#18865A">城市：</TD>
        
    <TD bgcolor="#18865A"> 
      <INPUT type="text" value="<%= Session("shiptown") %>" name="shiptown"></TD></TR>
    
  <TR> 
    <TD bgcolor="#18865A">邮政编码：</TD>
        
    <TD bgcolor="#18865A"> 
      <INPUT type="text" name="shipzip" value="<%= Session("shipzip") %>">
        </TD></TR>
    
  <TR> 
    <TD bgcolor="#18865A">省份：</TD>
        
    <TD bgcolor="#18865A"> 
      <INPUT type="text" name=shipstate value="<%= Session("shipstate") %>"></TD></TR>
     
  <TR> 
    <TD bgcolor="#18865A">公司：</TD>
        
    <TD bgcolor="#18865A"> 
      <INPUT type="text" name=shipcompany size="46" value="<%= Session("shipcompany") %>"></TD></TR>
    
  <TR bgcolor="#18865A"> 
    <TD>国家：</TD>
        
    <TD> 
      <INPUT name="shipcountry" value="<%= Session("shipcountry") %>"></TD></TR>
       
      
  <TR bgcolor="#18865A"> 
    <TD> 
      </TD>
        
    <TD></TD>
     </TR>
 </TABLE>

<%
End Sub
'********* Get company info
Sub GetCompanyInfo
Dim rsus
Set rsus = Server.CreateObject ("ADODB.Recordset")
rsus.Open "mycompany", dbc, adOpenForwardOnly,adLockReadOnly, adCmdTable
%>
<center>
<a href="javascript:history.back()">返回到上一页继续处理您的订单</a><br>
或着复制这份表Email到以下地址：<br>
<br>
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" height="">
<tr><td width="80">公司名称:</td><td width="320"><%=rsus("公司名称")%></td></tr>
<tr><td>公司地址:</td><td><%=rsus("公司地址")%></td></tr>
<tr><td>邮政编码:</td><td><%=rsus("邮政编码")%></td></tr>
<tr><td>公司邮箱:</td><td><%=rsus("公司邮箱")%></td></tr>
<tr><td>公司电话:</td><td><%=rsus("电话")%></td></tr>
<tr><td>公司传真:</td><td><%=rsus("传真")%></td></tr></table>
<br>
<%
set rsus=nothing
End Sub
%>