www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_subr.asp
<!--#include file="conn.asp"--> <!--#include file="ad_chk.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href=inc/css.css rel=STYLESHEET type=text/css> <body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5"> <% if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>2 then response.write "你没有这个权限!" response.end end if %> <% if request("action")="fu" then sub_id=request("sub_id") set rs=server.createobject("adodb.recordset") sql="select * from venshop_sub where sub_id="&sub_id&"" rs.open sql,conn,1,3 if rs.eof then response.write "没有这个订单" else rs("sub_fu")=request("sub_fu") rs("sub_tousu")=2 rs.update end if rs.close set rs=nothing call editok(editt,"ad_subr.asp","ad_subr.asp") else page=request("page") if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) set rs=server.createobject("adodb.recordset") sql="select * from venshop_sub where sub_tousu>0 order by sub_tousu ASC" rs.open sql,conn,1,1 if rs.eof then response.write "暂且没有任何订单" response.end 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%> <table border="0" cellpadding="5" cellspacing="0" class="st"> <tr><td colspan="6" class="sa">共<font color=red><%=totalpage%></font>页 第<%=page%>页 <%if page-1>0 then%><a href="ad_subp.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%> <%if page+1<=totalpage then%><a href="ad_subp.asp?page=<%=page+1%>">下一页</a><%else%>下一页<%end if%></td></tr> <tr><td class="s0">订单号</td> <td class="s0">订单状态</td> <td class="s0">订货人</td> <td class="s0">投诉说明</td> <td class="s0">投诉处理状态</td> <td class="s0">处理说明</td></tr> <%i=0 do while not rs.eof and (i<rs.pagesize) i=i+1%> <form action="ad_subr.asp?action=fu&sub_id=<%=rs("sub_id")%>" method=post><tr> <td class="s<%=i mod 2%>"><a href=ad_submore.asp?sub_id=<%=rs("sub_id")%>><%=rs("sub_number")%></a> </td> <td class="s<%=i mod 2%>"><%if rs("sub_zt")=0 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> <td class="s<%=i mod 2%>"><%=rs("sub_name")%> </td> <td class="s<%=i mod 2%>"><%=rs("sub_you")%> </td> <td class="s<%=i mod 2%>"><%if rs("sub_tousu")=2 then%>已处理<%else%><font color="#FF0000">未处理</font><%end if%></td> <td class="s<%=i mod 2%>"><input type="text" name="sub_fu" size="20" value="<%=rs("sub_fu")%>" class=input><input type="submit" value="提交" class=input></td></tr></form> <%rs.movenext loop end if rs.close set rs=nothing%> <tr><td colspan="6" class="sa">共<font color=red><%=totalpage%></font>页 第<%=page%>页 <%if page-1>0 then%><a href="<%=filename%>?page=<%=page-1%>&zt=<%=request("zt")%>">上一页</a><%else%>上一页<%end if%> <%if page+1<=totalpage then%><a href="<%=filename%>?page=<%=page+1%>&zt=<%=request("zt")%>">下一页</a><%else%>下一页<%end if%> </td></tr></table> <%end if%><!--#include file="ad_bottom.asp"-->