saveto.asp

一个功能很全面占用空间的小商城程序,适合个人网上开店使用

<!--#include file="top.asp"-->
<%
if session("user_name")="" then response.end
if session("user_name")<>"" then user_name=session("user_name")
%>
<center>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td align="center" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" height="520">
                          <tr> 
                            <td width="150" valign="top" align="left"> <table border="0" width="100%" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td width="150" valign="top" align="left"> 
                                    <!--#include file="left.asp"-->
                                  </td>
                                </tr>


                              </table></td>
                            <td width="590" height="100%" align="center" valign="top"> 
<%        
            sql1="select * from hw where hw_id="&int(request("hw_id"))
            set rs1=server.createobject("adodb.recordset")
            rs1.open sql1,conn,3,3
            user_company=rs1("user_company")
hw_id=rs1("hw_id")
            rs1.close
            set rs1=nothing
%>
    <table border="0" width="590" cellspacing="0" cellpadding="0" height="5">
      <tr>
        <td width="590" bgcolor="#e9a7c4" height="18">
        <%
        if request("sub_to")="" then
        response.write "收货人姓名不能为空!"
        elseif request("sub_adds")="" then
        response.write "收货人地址不能为空!"
        elseif request("sub_number")="" then
        response.write "没有此订单信息"
        elseif request("sub_mail")="" then
        response.write "收货人的E-mail不能为空!"
        elseif request("sub_tel")="" then
        response.write "收货人电话不能为空!"
        else
        sub_to=request("sub_to")
        sub_adds=request("sub_adds")
        sub_mail=request("sub_mail")
        sub_tel=request("sub_tel")
        sub_number=request("sub_number")
        sql="select * from sub where sub_number='"&sub_number&"'"
        rs.open sql,conn,3,3
        rs("sub_to")=sub_to
        rs("sub_tel")=sub_tel
        rs("user_company")=user_company
        rs("sub_mail")=sub_mail
        rs("sub_adds")=sub_adds
        rs.update
        rs.close
        response.write "收货人信息如下"
        %>
        </td>
      </tr>
      <tr>
  <td width="100%" bgcolor="#e9a7c4">

    <table border="0" width="100%" cellspacing="1">
      <tr>
        <td width="20%" bgcolor="#FFFFFF">
          收货人
        </td>
        <td width="80%" bgcolor="#FFFFFF"><%=sub_to%>
        </td>
      </tr>
      <tr>
        <td width="20%" bgcolor="#FFFFFF">地址
        </td>
        <td width="80%" bgcolor="#FFFFFF"><%=sub_adds%></td>
      </tr>
      <tr>
        <td width="20%" bgcolor="#FFFFFF">产品所属公司
        </td>
        <td width="80%" bgcolor="#FFFFFF"><%=user_company%></td>
      </tr>      <tr>
        <td width="20%" bgcolor="#FFFFFF">产品编号
        </td>
        <td width="80%" bgcolor="#FFFFFF"><%=hw_id%></td>
      </tr>
    </table>
  </td><%        
            sql1="select * from member where user_company='"&user_company&"'"
            set rs1=server.createobject("adodb.recordset")
            rs1.open sql1,conn,3,3
            user_adds=rs1("user_adds")
            user_postcode=rs1("user_postcode")
            user_name=rs1("user_adds")
            user_id=rs1("user_id")
            user_tel=rs1("user_tel")
            rs1.close
            set rs1=nothing
%>
      <tr>
  <td width="100%" height=15></td>
      </tr>
   <tr>
  <td width="100%" height=15 bgcolor="#e9a7c4">基本付款信息</td>
      </tr>
      <tr>
  <td width="100%">收款人地址:<%=user_adds%></td>
      </tr>
      <tr>
  <td width="100%">收款人姓名:<%=user_name%></td>
      </tr>
      <tr>
  <td width="100%">收款人邮编:<%=user_postcode%></td>
      </tr>
      <tr>
  <td width="100%">收款人电话:<%=user_tel%></td>
      </tr>
  <td width="100%" height=10></td>
      </tr>

      <tr>
  <td width="100%" bgcolor="#e9a7c4">其他付款信息</td>
      </tr><tr>
  <td width="100%" height=10>
<table border="0" width="580" cellspacing="0" cellpadding="0"><tr><Td width=30% align=center>付款方式</td><Td align=center>说明</td></tr>
<%        
            sql2="select * from fukuan where user_id="&user_id&""
            set rs2=server.createobject("adodb.recordset")
            rs2.open sql2,conn,3,3
            if rs2.eof then 
               response.write "该商店没有其他付款方式"
            else
            do while not rs2.eof
            fukuan_name=rs2("fukuan_name")
            fukuan_content=rs2("fukuan_content")
%>
<tr><Td width=30%><%=fukuan_name%></td><Td><%=fukuan_content%></td></tr>
<%
            rs2.movenext
            loop
            end if
            rs2.close
            set rs2=nothing
%>
</table>
</td>
      </tr>

      <tr>
  <td width="100%" bgcolor="#e9a7c4">本店购物说明</td>
      </tr><tr>
  <td width="100%" height=10>
<font color=red>请将付款寄到上述信息......<br>如果您对此产品有什么疑问，请向上述信息咨询....<br>谢谢合作，祝您购物愉快...<p>如果你一次购买多家商店的物品，请务必仔细核实产品所属公司！！</font></td>
      </tr>

<%end if%>

      </tr>
      <tr>
  <td width="100%"></td>
      </tr>

<center>


      </table>
    </center>

 </td>
                            
                          </tr>
                        </table> 

</td>
                    </tr>
                  </table>

</td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">

              <tr>
                <td><table width="100%" border="0" cellspacing="0">
                    <tr>
                      <td>
                        <!--#include file="copy.asp"-->
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
          <td bgcolor="3B6A05" width="1"></td>
        </tr>
      </table></td>
  </tr>
</table>