cashsave.asp

ASP入门与提高实用教程 源文件(上传网站)

<!--#include file="top.asp"-->
<center>


<table border="0" width="760" cellspacing="0" cellpadding="0" height="312">
  <tr>
    <td width="190" height="312" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190" valign="top" align="left"><!--#include file="left.asp"--></td>
      </tr>
    </table>
    </td>
</center>
    <td width="380" valign="top" align="left">
    <table border="0" width="380" cellspacing="0" cellpadding="0" height="5">
    <%if session("user_name")="" then
        response.redirect "index.asp"
    else
        user_name=session("user_name")
    end if
    sql="select * from basket where user_name='"&user_name&"' and basket_check=false"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "你没有订购任何商品"
        response.end
    else
    on error resume next
        sub_number=user_name&now()
        sub_number=replace(sub_number,"-","")
        sub_number=replace(sub_number," ","")
        sub_number=replace(sub_number,":","")
        do while not rs.eof
        rs("basket_check")=true
        rs("sub_number")=sub_number
            hw_id=rs("hw_id")
            sql1="select * from hw where hw_id="&int(hw_id)
            set rs1=server.createobject("adodb.recordset")
            rs1.open sql1,conn,3,3
            rs1("hw_buys")=rs1("hw_buys")+rs("basket_count")
            rs1.update
            rs1.close
            set rs1=nothing
            
        
        rs.movenext
        loop
        rs.update
    end if
    rs.close

    sql="select * from sub"
    rs.open sql,conn,3,3
    rs.addnew
    rs("user_name")=user_name
    rs("sub_number")=sub_number
    rs.update
    rs.close

    %>
      <tr>
        <td width="380" bgcolor="#FF9A31" height="18">
        你的信息已经提交
        </td>
      </tr>
      <tr>
  <td width="100%" bgcolor="#63CFFF">
    <table border="0" width="100%" cellspacing="1">
      <tr>
        <td width="100%" bgcolor="#FFFFFF">
          <table border="0" width="100%" cellspacing="0" cellpadding="0">
            <tr>
              <td width="100%">订单号为:<font color=red><%=sub_number%></font><Br>请记牢本订单号，你可以使用本订单号对成交情况进行查询</td>
            </tr>
            <tr>
              <td width="100%">
                <form method="POST" action="saveto.asp?sub_number=<%=sub_number%>">

                  <table border="0" width="100%" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="100%" colspan="2">收货人信息</td>
                    </tr>
                    <tr>
                      <td width="21%">姓名</td>
                      <td width="79%"><input type="text" name="sub_to" size="20" class=input></td>
                    </tr>
                    <tr>
                      <td width="21%">地址</td>
                      <td width="79%"><input type="text" name="sub_adds" size="20" class=input></td>
                    </tr>
                    <tr>
                      <td width="21%">电话</td>
                      <td width="79%"><input type="text" name="sub_tel" size="20" class=input></td>
                    </tr>
                    <tr>
                      <td width="21%">E-mail</td>
                      <td width="79%"><input type="text" name="sub_mail" size="20" class=input></td>
                    </tr>
                  </table>
                  <input type="submit" value="确认" name="B1" class=input><input type="reset" value="清除" name="B2" class=input>
                </form>
               </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
  </td>
      </tr>

<center>


<tr>
  <td width="100%"></td>
</tr>
      </table>
    </center>
    </td>
    <td width="190" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190"><!--#include file="right.asp"--></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="copy.asp"-->