viewsub.asp

自做的购物网站

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->
<!--#include file="css.asp"-->
<%


sql="select * from sub where sub_id="&request("sub_id")
rs.open sql,conn,3,3
if rs.eof then
    response.write "没有此订单信息"
else%>
<title>订单:<%=rs("sub_number")%>
详细信息</title>
<table border="0" width="580" cellspacing="1">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="1">
        <tr>
          <td width="100%" background="images/pics/tile_back.gif" height="30" valign="top"> 
            <table cellspacing=0 cellpadding=3 width="100%" border=0>
              <tbody> 
              <tr> 
                <td><img height=8 src="images/pics/nav_m.gif" width=8 
            border=0></td>
                <td width="100%" height="30" valign="bottom" id=maintitle>订单管理 
                  -&gt;<b> 已经确认订单</b></td>
              </tr>
              </tbody> 
            </table>
            
          </td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#66CCFF">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#FFFFFF" colspan="2">订购日期：<b><%=rs("sub_date")%></b></td>
                <td bgcolor="#FFFFFF" colspan="2">订货人：<b><%=rs("user_name")%></b></td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" colspan="2">收货人：<b><%=rs("sub_to")%></b></td>
                <td bgcolor="#FFFFFF" colspan="2">电话：<b><%=rs("sub_tel")%></b></td>
              </tr>
              <tr bgcolor="#F7f7f7"> 
                <td colspan="2">E-mail：<b><%=rs("sub_mail")%></b></td>
                <td colspan="2">收货地址：<b><%=rs("sub_adds")%></b></td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" colspan="4" height="15">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="16%">备注信息：</td>
                      <td width="84%"><b><%=rs("other")%></b></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#f0f0f0"> 
                <td colspan="4" height="21"> 
                  <p align="center"><font color="#FF0000">订购货物列表</font></p>
                </td>
              </tr>
              <tr bgcolor="#f7f7f7"> 
                <td width="29%">货物名称</td>
                <td width="12%">单价</td>
                <td width="19%">数量</td>
                <td width="40%">合计</td>
              </tr>
              <%sub_number=rs("sub_number")
			  rs.close%>
              <%sql="select * from basket where sub_number='"&sub_number&"'"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "没有此订单信息"
                  response.end
              else
                  do while not rs.eof%>
              <tr> 
                <td width="25%" bgcolor="#FFFFFF"><%=rs("hw_name")%></td>
                <td width="25%" bgcolor="#FFFFFF"><%=rs("hw_cash")%>元</td>
                <td width="25%" bgcolor="#FFFFFF"><%=rs("basket_count")%></td>
                <td width="25%" bgcolor="#FFFFFF"><font color=red><%=rs("hw_cash")*rs("basket_count")%></font>元</td>
                <%totalcash=totalcash+rs("hw_cash")*rs("basket_count")%>
              </tr>
              <%rs.movenext
              loop
              %>
              <tr> 
                <td width="75%" bgcolor="#FFFFFF" colspan="3">总计</td>
                <td width="25%" bgcolor="#FFFFFF"><font color=red><%=totalcash%></font>元</td>
              </tr>
              <%end if
              rs.close%>
              <tr> 
                <td width="100%" bgcolor="#FFFFFF" colspan="4"> 　</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
end if
set rs=nothing
conn.close
set conn=nothing
%>