www.gusucode.com > 凡人网络购物系统 2008源码程序 > orders.asp

    <!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top">
<!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div>
</td>
<td valign="top" class="all_c_td">

<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr><td class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置： <a href="index.asp">首页</a> >>&nbsp;我的订单列表</td></tr>
</table>


<table border="0" cellpadding="0" cellspacing="0" class="useri">
<tr><td height="150">

<%if Request.Cookies("venshop")("user_name")="" and Request.Cookies("venshop")("guest")="" then
response.redirect "login.asp?comurl=orders.asp"
response.end
else
if Request.Cookies("venshop")("user_name")<>"" then
user_name=Request.Cookies("venshop")("user_name")
chklogin(user_name)
elseif Request.Cookies("venshop")("guest")<>"" then
user_name=Request.Cookies("venshop")("guest")
end if%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="30" colspan="5">
	<p style="margin:5px; "><a href="orders.asp">所有订单</a>:&nbsp;
<a href="<%=filename%>?zt=1">未处理</a>&nbsp;
<a href="<%=filename%>?zt=0">无效订单</a>&nbsp;
<a href="<%=filename%>?zt=-1">等待付款订单</a>&nbsp;
<a href="<%=filename%>?zt=2">已付款</a>&nbsp;
<a href="<%=filename%>?zt=3">已收款</a>&nbsp;
<a href="<%=filename%>?zt=4">已发货</a>&nbsp;
<a href="<%=filename%>?zt=5">已收货</a></td>
	</tr>
<tr>
	<td class="cartshowa" width="5">　</td>
	<td class="cartshowa">订单号</td>
	<td class="cartshowa">日期</td>
	<td class="cartshowa">投诉</td>
	<td class="cartshowa">状态</td>
	</tr>
<%page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
zt=request("zt")
set rs=server.createobject("adodb.recordset")
if zt<>"" then
sql="select * from venshop_sub where sub_name='"&user_name&"' and sub_zt="&zt&" order by sub_id DESC"
else
sql="select * from venshop_sub where sub_name='"&user_name&"' order by sub_id DESC"
end if
rs.open sql,conn,1,1
if rs.eof then
    response.write "<tr><td align=center height=50 colspan=5>暂且没有任何订单</td></tr>"
    rs.close
    set rs=nothing
else
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1
%>
<tr>
<td class="cartshow<%=(i mod 2)%>" width="5">　</td>
<td class="cartshow<%=(i mod 2)%>"><a href="#" onclick="javascript:window.open('submore.asp?sub_id=<%=rs("sub_id")%>','newwindow','toolbar=no,scrollbars=yes,resizable=no,top=0,left=0,width=650,height=600');"><%=rs("sub_number")%></a></td>
<td class="cartshow<%=(i mod 2)%>"><%=right(year(rs("sub_date")),2)%>-<%=month(rs("sub_date"))%>-<%=day(rs("sub_date"))%></td>
<td class="cartshow<%=(i mod 2)%>"><%if rs("sub_tousu")=1 then%>已投诉，管理员尚未处理<%elseif rs("sub_tousu")=2 then%><p style="line-height: 150%; margin-top: 3px; margin-bottom: 3px">投诉：<%=rs("sub_you")%><br>回复：<%=rs("sub_fu")%></p><%else%><a href="#" onclick="javascript:window.open('tousu.asp?sub_id=<%=rs("sub_id")%>&sub_number=<%=rs("sub_number")%>','newwindow','toolbar=no,scrollbars=yes,resizable=no,top=0,left=0,width=420,height=180');">投诉</a><%end if%></td>
<td class="cartshow<%=(i mod 2)%>">
<%if rs("sub_zt")=0 then response.write "无效订单"%>
<%if rs("sub_zt")=1 then response.write "未处理"%>
<%if rs("sub_zt")=-1 then response.write "已处理等待客户付款"%>
<%if rs("sub_zt")=2 then response.write "已付款等待发货"%>
<%if rs("sub_zt")=3 then response.write "已收款发货中"%>
<%if rs("sub_zt")=4 then response.write "已发货注意收货"%>
<%if rs("sub_zt")=5 then response.write "已收货（归档）"%></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
end if
%></table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td colspan="5" height="30" class="sortb">
<p style="line-height: 150%; margin-left: 10px; margin-right: 5px; margin-top: 5px; margin-bottom: 5px">第<%=page%>页/共<%=totalpage%>页&nbsp;&nbsp;
<%if page-1>0 then%><a href="<%=filename%>?page=<%=page-1%>&zt<%=request("zt")%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%><a href="<%=filename%>?page=<%=page+1%>&zt<%=request("zt")%>">下一页</a><%else%>下一页 <%end if%></td></tr><tr>
<td colspan="5" height="30"><p style="line-height: 150%; margin-left: 10px; margin-right: 5px; margin-top: 5px; margin-bottom: 5px">
提示一：收货后请在订单详情中修改订单状态为已收货，谢谢合作<br>
提示二：点击订单号查看详情<br>
提示三：未收到货或其它订单相关问题，可以进行订单投诉，请说明原因</td></tr></table>

<%end if%>
</td></tr></table>

</td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->