<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%If shopnet("abc")="" then%><body onLoad="show(c81),show(c82)"><%elseif shopnet("abc")="huiyuan" then%><body onLoad="show(c41),show(c42)"><%End if%>
<!--#include file="top.asp"-->
<!--#include file="../include/page.asp" -->
<%hy "login.asp"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="22" colspan="2">您的位置： <A href="../index.asp">首页</A> &gt;&gt; <a href="index.asp">会员中心</a>&nbsp;<%if shopnet("abc")="huiyuan" then%>&gt;&gt; 店铺会员 <%else%>&gt;&gt; 订单管理<%end if%></td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
<td width="560" height="280" valign="top">
<%Select case request("abc")
case "huiyuan"
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from huiyuan where userid="&myuserid&" order by sj DESC"
rs.open sql,conn,1,1

page1("20")%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
        <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF">店铺会员</font></td>
        <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
      </tr>
    </table>
        <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><a href="/user/rikeeshopindex.asp">店铺状态</a></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
      </td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4" bgcolor="1E88C1"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      <br>
      <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr valign="middle"> 
          
		  <td width="97" height="21" align="center" background="../image/bk.gif" bgcolor="#CCCCCC">会员账号</td>
          <td width="93" height="21" align="center" background="../image/bk.gif" bgcolor="#CCCCCC">真实姓名</td>
          <td width="149" height="21" align="center" background="../image/bk.gif" bgcolor="#CCCCCC">注册时间</td>
          <td width="131" height="21" align="center" background="../image/bk.gif" bgcolor="#CCCCCC">邮箱</td>
          <td width="76" height="21" align="center" background="../image/bk.gif" bgcolor="#CCCCCC">购物总金额</td>
        </tr>
<%
  if rs.eof then
  response.write "<tr><td colspan=5 align=center bgcolor=white height=21 valgin=bottom >没有店铺会员！</td></tr>"
  else	

i=1
while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle"> 
          <td width="97" height="21" align="center" valign="middle" bgcolor="#FFFFFF"><a href="javascript:void window.showModelessDialog('../zhanneixin/fa.asp?huiyuan=<%=rs("huiyuan")%>','','scroll:0;status:0;help:0;resizable:0;dialogWidth:420px;dialogHeight:280px')"><%=rs("huiyuan")%></a></td>
          <td width="93" height="21" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("name")%></td>
          <td height="21" valign="middle" bgcolor="#FFFFFF"><div align="center"><%=rs("sj")%></div></td>
          <td height="21" valign="middle" bgcolor="#FFFFFF"><div align="center"><%=rs("mail")%></div></td>
          <td width="76" height="21" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("je")%>元</td> 
        </tr>
<%i=i+1
rs.MoveNext                                              
wend %>
        <tr valign="middle"> 
          <td height="21" colspan="6" align="center" background="../image/bk1.gif"> 
            <%page2("abc=huiyuan&")
rs.close:set rs=nothing
end if 
%> </td>
        </tr>
      </table> 

<%case "x_dingdan"
id=shopnet("id")
page=shopnet("page")
Select case Request("x")
   case "a"
        jg=Request("jg")
		if jg=1 or not(isnumeric(jg)) then
		jg=0
		else
		jg=1
		end if
		conn.execute("Update cart set jg ="&jg&" where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&id&"")
		Response.redirect "?page="&page&""
   case "b"
        zt=Request("zt")
		if zt<>0 or not(isnumeric(zt)) then
		zt=0
		else
		zt=1
		end if
		conn.execute("Update cart set zt ="&zt&" where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&id&"")
		Response.redirect "?page="&page&""
End Select
'//默认显示
case else
key1=shopnet("key1")
key2=shopnet("key2")
xs=shopnet("xs")
  if key1<>"" then 
   sql="select * from cart where userid="&myuserid&" and over<>1 and (name like '%"&key1&"%' or dz like '%"&key1&"%') order by sj desc"
elseif key2<>"" then 
   sql="select * from cart where userid="&myuserid&" and over<>1 and bh like '%"&key2&"%' order by sj desc "
   else  
   if xs<>""then
   sql="select * from cart where userid="&myuserid&" and over<>1 and "&xs&" order by sj desc "
    else
   sql="select * from cart where userid="&myuserid&" and over<>1 order by sj desc "
   end if
   end if
Set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,1

page1("10")%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
        <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF">订单管理</font></td>
        <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
      </tr>
    </table>
        <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="telorder.asp">电话订单</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
      <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="sh.asp">送货清单</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4" bgcolor="1E88C1"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="570" border="0" align="center" cellpadding="0" cellspacing="0">
        <form name="form1" method="post" action="?">
    <tr align="left" valign="middle"> 
      <td width="50%" height="35"> 
        <div align="center">客户名称、地址: 
          <input name="key1" type="text" class="wenbenkuang" size="10">
          <input name="Submit22" type="submit" class="go-wenbenkuang" value="查找">
        </div></td>
      <td width="50%">客户订单号: 
        <input name="key2" type="text" class="wenbenkuang" size="10"> <input name="Submit23" type="submit" class="go-wenbenkuang" value="查找"></td>
    </tr></form>
  </table>
      <table width="570" border="0" align="center" bgcolor="#efefef" cellpadding="0" cellspacing="1">
        <tr bgcolor="#f1f1f1" valign="middle" align="center"> 
          <td width="130" height="21" valign="middle" background="../image/bk.gif"> <div align="center">客户订单号</div></td>
          <td width="135" height="21" valign="middle" background="../image/bk.gif"> <div align="center">订单产生时间</div></td>
          <td width="74" height="21" valign="middle" background="../image/bk.gif"> <div align="center">受理状态</div></td>
          <td width="72" height="21" valign="middle" background="../image/bk.gif">发货状态</td>
          <td width="74" height="21" valign="middle" background="../image/bk.gif">状态</td>
          <td width="78" height="21" valign="middle" background="../image/bk.gif">完成状态</td>
        </tr>
        <%
  if rs.eof then
  response.write "<tr><td colspan=6 align=center bgcolor=white height=21 valgin=bottom >您当前没有订单！</td></tr>"
	else	
		i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr bgcolor="#FFFFFF" valign="middle" align="center"> 
          <td width="130" height="21" valign="middle" ><a href="dingdan_xiangxi.asp?id=<%=rs("id")%>" target="_blank"><%=rs("bh")%></a></td>
          <td width="135" height="21" valign="middle"><%=rs("sj")%> </div></td>
          <td width="74" height="21" valign="middle" ><%if rs("cl")=1 then 
		   response.write "已发货"
		   ElseIf rs("cl")=0 then 
		   response.write "<font color=red>尚未受理</font>"
		   Else 
           response.write "<font color=red>已受理</font>"
		   end if %></td>
          <td width="72" height="21" valign="middle" ><%if rs("jg")=1 then 
		   response.write "货已到"
		   else
		   response.write "<font color=red>货没到</font>"
		     end if %></td>
          <td width="74" height="21" valign="middle" ><%Select case rs("zt")
   case "0"
        response.write "有效"
   case "1"
	response.write "<font color=red>已作废</font>"
   case "2"
	response.write "<font color=red>会员取消</font>"
End Select
%></td>
          <td width="78" height="21" valign="middle" >
              <%if rs("over")="1" then response.write "<font color=red>完成</font>" else response.write "<font color=red>未完成</font>"
%>
</td>
        </tr>
        <%i=i+1
rs.MoveNext                                              
loop%>
        <tr bgcolor="#FFFFFF" valign="middle" align="center"> 
          <td height="21" colspan="6" valign="middle" background="../image/bk1.gif" > <%page2("keywords="&keywords&"&keywords2="&keywords2&"&keywords3="&keywords3&"&xs="&xs&"&")
rs.close:%></td>
        </tr><%end if%>
      </table>
<form name="form2" method="post" action="?">
        <div align="center">
          <input type="radio" name="xs" value="cl=0">尚未受理
    <input type="radio" name="xs" value="cl=1">已发货
    <input type="radio" name="xs" value="jg=0">货没到
    <input type="radio" name="xs" value="jg=1">货已到
    <input type="radio" name="xs" value="zt=0">有效 
    <input type="radio" name="xs" value="zt=1">已作废 
    <input name="Submit3" type="submit" class="go-wenbenkuang" value="显示">
  </div>
</form>
<%End Select%>
</td>
  </tr>
</table>
<br>
<!--#include file="../bottom.asp"-->
