query.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">
      <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">订单号为<%sub_number=trim(request("sub_number"))
        response.write "<font color=red>"
        response.write sub_number
        response.write "</font>"
        response.write "<br>"
        sql="select * from sub where sub_number='"&sub_number&"'"
          set rs=server.createobject("adodb.recordset")
          rs.open sql,conn,3,3
          if rs.eof then
              response.write "没有此订单信息,请确认你的订单号输入是否正确"
          else
              if rs("sub_check")=false then
                  response.write "订单尚在处理中！"
              else
                  response.write "订单已确认！货物已递出"
              end if
              %>          

            <table border="0" width="100%" cellspacing="1">
            <tr>
              <td width="20%">商品编号</td>
              <td width="20%">商品名称</td>
              <td width="20%">数量</td>
              <td width="20%">单价</td>
              <td width="20%">合计</td>
            </tr><%sql="select * from basket where sub_number='"&sub_number&"'"
                   set rs1=server.createobject("adodb.recordset")
                   rs1.open sql,conn,3,3
                   do while not rs1.eof%>
            <tr>
              <td width="20%"><%=rs1("hw_id")%></td>
              <td width="20%"><%=rs1("hw_name")%></td>
              <td width="20%"><%=rs1("basket_count")%></td>
              <td width="20%"><%=rs1("hw_cash")%>元</td>
              <td width="20%"><%=rs1("basket_count")*rs1("hw_cash")%>元</td>
            </tr><%totalcash=totalcash+(rs1("basket_count")*rs1("hw_cash"))%>
            <%rs1.movenext
            loop
            rs1.close
            set rs1=nothing
            %>
            <tr>
              <td width="80%" colspan="4">合计</td>
              <td width="20%"><font color=red><%=totalcash%>元</font></td>
            </tr>
          </table>
              
              
          <%
          end if
          rs.close
          %></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"-->