<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%qx=4%>
<!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/money.asp"-->
<script language="javascript">
<!--
function checkQtys(form){
		ads.style.display = "none";
  document.all.WebBrowser.ExecWB(6,6)
 }
-->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../include/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center" >
  <tr> 
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF" background="images/admin_bg_4.gif"><font color="#FF3300" size="3">
	<%
	set rs = conn.execute("select * from cart where id="&shopnet("id")&"")
       set rs1 = conn.execute("select name from shop where id="&rs("userid")&"")
	Response.Write ""&rs1("name")&""
	rs1.close%><%=rs("bh")%></font><span style="font-weight: bold"><font size="3"><span style="color: #FFFFFF">号订单</span></font></span></td>
  </tr>
  <tr> 
    <td align="center" valign="top" bgcolor="#FFFFFF"> <table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr align="center" valign="middle" bgcolor="#FFFFE6"> 
          <td width="300" height="20" bgcolor="#FFFFFF">商品名称</td>
          <td height="20" bgcolor="#FFFFFF">会员价</td>
          <td width="75" height="20" bgcolor="#FFFFFF">订购数量</td>
        </tr>
        <%
set rs1 = conn.execute("select * from list where bh='"&rs("bh")&"' order by id desc")
		do while not rs1.eof%>
        <tr valign="middle" bgcolor="#FFFFE6"> 
          <td width="300" height="20" bgcolor="#FFFFFF"><%=rs1("mc")%></td>
          <td height="20" align="center" bgcolor="#FFFFFF"><%=rs1("jg2")%></td>
          <td width="75" height="20" align="center" bgcolor="#FFFFFF"><%=rs1("sl")%></td>
        </tr>
        <%rs1.movenext
loop
rs1.close
set rs1=nothing%>
        <tr align="right" valign="middle" bgcolor="#FFFFE6"> 
          <td height="20" colspan="3" bgcolor="#FFFFFF">运费：<%=rs("peisong_rmb")%>元&nbsp; 总计： <%=rs("je")%> 元&nbsp;&nbsp;&nbsp; </td>
        </tr>
    </table></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF"> 
      <table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr bgcolor="#FFFFFF"> 
          <td height="35" colspan="6" align="center"><font color="#FF3300" size="3">会员个人信息</font></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="10%" height="20" align="center">姓名</td>
          <td width="19%" height="20"><%=rs("name")%></td>
          <td width="10%" height="20" align="center">邮编</td>
          <td width="11%" height="20" align="center"><%=rs("yb")%></td>
          <td width="10%" height="20" align="center">配送/支付</td>
          <td width="40%" height="20"><%=rs("peisong_fs")%></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="10%" height="20" align="center">电话</td>
          <td height="20" colspan="3"><%=rs("tel")%></td>
          <td width="10%" height="20" align="center">email</td>
          <td width="40%" height="20"><a href=mailto:<%=rs("mail")%>><%=rs("mail")%></a></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="20" align="center">地址</td>
          <td height="20" colspan="5"><%=rs("dz")%></td>
        </tr>
    </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
      <table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr>
          <td width="94" valign="middle" bgcolor="#FFFFFF">产品脱销方案：</td>
          <td width="504" height="20" valign="middle" bgcolor="#FFFFFF"><%=rs("tx")%></td>
        </tr>
        <tr>
          <td valign="middle" bgcolor="#FFFFFF">会员订单备注：</td>
          <td height="20" valign="middle" bgcolor="#FFFFFF"><%=rs("bz")%></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">
	<table width="650" height="50" border="0" align="center" cellpadding="0" cellspacing="0" id=ads style="DISPLAY: ">
  <form name="form2" method="post" action=?je=<%=rs("je")%>&x=yes>
    <tr> 
      <td align="center" valign="middle" bgcolor="#FFFFFF"><input name="id" type="hidden" id="id" value="<%=request("id")%>"> 
        <OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
        </OBJECT>
        <input name="button" type=submit class="go-wenbenkuang"  onclick="javascript:window.history.go(-1)" value=OK，发货>
        <input type=button class="go-wenbenkuang" onClick="return checkQtys(this.form);" value=直接打印> 
        <input type=button class="go-wenbenkuang" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置> 
        <input type=button class="go-wenbenkuang" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览> 
        <input name="button" type=button class="go-wenbenkuang"  onclick="javascript:window.history.go(-1)" value=返回上页>      </td>
    </tr>
    
  </form>
</table>
	</td>
  </tr>
</table>

</body>
</html>
<%
rs.close
set rs=nothing
if request("x")="yes" and request("id")<>"" then
conn.execute("Update huiyuan set je2=je2+("&shopnet("je")&"*"&my_je07&") where huiyuan=(select huiyuan from cart where id="&shopnet("id")&")")
conn.execute("Update cart set cl = 1 where id="&shopnet("id")&"")
Response.redirect "ddindex.asp"
end if
conn.close
set conn=Nothing
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
%>
