cartlist.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 126 行

<%cartnumber=my_request("cartnumber",0)
if cartnumber="" then
Response.write "<script>alert(""请输入订单编号"");location.href=""index.asp"";</script>"
Response.end
end if
sql="select * from buyer where ishy=1 and ddbh='"&cartnumber&"'"
set rs=conn.execute (sql)
if (rs.eof and rs.bof) then
Response.write "<script>alert(""没有此订单，请确认。"");location.href=""index.asp"";</script>"
Response.end
rs.close
set rs=nothing
else
%>
<table width="770" cellspacing="1" class=12px>
	<tr bgcolor="#CCCCCC">
		<td height="25" colspan="2" bgcolor="#EFEFEF">&gt;&gt;客户详细资料</td>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">订单编号：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<%=cartnumber%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD align="right" bgcolor="#FFFFFF" width="162">会员账号：</TD>
		<TD bgcolor="#FFFFFF" >&nbsp;<%=rs("userid")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">会员真实姓名：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("yqj_realname")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">收货人联系地址：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("yqj_address")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">邮政编码：</TD>
		<TD  width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("yqj_postal")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">联系电话：</TD>
		<TD  width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("yqj_phone")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">电子信箱：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("yqj_email")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">是否需要发票：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%if rs("yqj_invoice")=0 then
    response.write "不要"
    elseif rs("yqj_invoice")=1 then
    response.write "<font color=#FF0000>要</font>"
    else
    response.write "UN"
    end if%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">付款方式：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("paymode")%></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >产品费用：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333">￥<%=rs("product_price")%>元</font></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >附加费用：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333">￥<%=rs("yqj_cost")%>元</font></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >总计金额：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333">￥<%=rs("yqj_money")%>元</font></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >备注：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("content")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">订货日期：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("addtime")%><font color="#999999">&nbsp;[<%=rs("ip")%>]</font></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">订单是否已经处理：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333"><%=rs("zt")%></font></TD>
	</tr>
</table>
<table width="770" cellspacing="1" class=12px>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from list where cartbh= '"&cartnumber&"' and huiyuan='非会员'"
rs2.open sql2,conn,1,1
%>
    <tr valign="middle" bgcolor="#CCCCCC">
		<td height="25" colspan="4" bgcolor="#EFEFEF">&gt;&gt;订货产品细目</td>
	</tr>
	<tr valign="middle" bordercolorlight="#0097fe" bordercolordark="#ffffff">
		<td height="25" align="center" bgcolor="#FFFFFF">产品名称</td>
		<td height="25" align="center" bgcolor="#FFFFFF">产品价格</td>
		<td height="25" align="center" bgcolor="#FFFFFF">产品数量</td>
		<td height="25" align="center" bgcolor="#FFFFFF">金额小计</td>
	</tr><%Sum=0
        While Not rs2.EOF%>
    <tr valign="middle" bordercolorlight="#0097fe" bordercolordark="#ffffff">
		<td height="25" bgcolor="#FFFFFF"><%=rs2("mc")%></td>
		<td height="25" align="center" bgcolor="#FFFFFF">￥<%=rs2("rmb")%>元</td>
		<td height="25" align="center" bgcolor="#FFFFFF"><%=rs2("sl")%></td>
		<td height="25" align="center" bgcolor="#FFFFFF">￥<%=rs2("rmb")*rs2("sl")%>元</td>
    <%Sum=Sum+rs2("rmb")*rs2("sl")%>
  	</tr><%
    					  rs2.MoveNext
   						  Wend
					  %>
    <tr valign="middle">
		<td height="25" colspan="4" align="right" bgcolor="#FFFFFF">商品费用总计(不包括附加费用)：<font color="#FF3333">￥<%=Sum%>元</font></td>
	</tr>
	<tr valign="middle">
		<td height="25" colspan="4" align="center" bgcolor="#FFFFFF">
		<p align="left"><font color="#FF3333">订单状态：</font><input name="B12" type="button" value="<%=rs("zt")%>" title="<%=rs("zt")%>"> 
      <%
    rs2.close
    set rs2=nothing
%>
<input name="B42" type="button" onclick="window.location='index.asp'" value="返回首页" title="返回">
		</td>
	</tr>
</table>
<%end if%>