gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/tuangou/index.asp
<%if session("bjxadmin")="" then response.Write "<script LANGUAGE='javascript'>alert('网络超时或者您还没有登录请登录');window.location.href='../login.asp';</script>" response.End else if session("flag")>2 then response.Write "<p align=center><font color=red>您没有此项目管理权限!</font></p>" response.End end if end if %> <!--#include file="conn.asp"--> <html> <head> <title>订单管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="../images/css.css" rel="stylesheet" type="text/css"> </head> <body text="#000000"> <div align="center"><br> </div> <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0"> <form name="form1" method="post" action="?"> <tr align="center" valign="top"> <td width="40%"> <div align="center">单位名称、联系人 <input name="keywords" type="text" class="wenbenkuang" size="15"> <input name="Submit2" type="submit" class="go-wenbenkuang" value="查找"> </div></td> <td width="40%">所定产品名称 <input name="keywords2" type="text" class="wenbenkuang" size="15"> <input name="Submit22" type="submit" class="go-wenbenkuang" value="查找"> </td> <td width="20%"> </td> </tr></form> </table> <table width="98%" border="0" align="center" bgcolor="#CCCCCC" cellpadding="0" cellspacing="1"> <tr bgcolor="#f1f1f1" valign="middle" align="center"> <td width="107" height="20"> <div align="center">订单ID</div></td> <td width="162" height="20"> <div align="center">产品名称</div></td> <td width="162">类型</td> <td width="162">拟购数量</td> <td width="225" height="20">订单状态</td> <td width="101">删除</td> </tr> <% set rs=server.createobject("adodb.recordset") keywords=request("keywords") keywords2=request("keywords2") xs=request("xs") if keywords<>"" then sql="select * FROM BJX_tuangou where (danwei like '%"&keywords&"%' or forname like '%"&keywords&"%') order by tgtime desc" else if keywords2<>"" then sql="select * FROM BJX_tuangou where bookname like '%"&keywords2&"%' order by tgtime desc" else if xs<>"" then sql="select * FROM BJX_tuangou where "&xs&" order by tgtime desc " else sql="select * FROM BJX_tuangou order by tgtime desc " end if end if end if rs.open sql,conn,3,1 if rs.eof then response.write "没有订单!" end if rs.pagesize = 20 if request("page")="" or isempty(request("page")) then page = 1 else page=int(request("page")) end if if page>rs.pagecount then page=rs.pagecount end if if not rs.BOF then Rs.Move Rs.PageSize*(page-1) end if i=1 do while not rs.eof and i<=rs.pagesize %> <tr bgcolor="#6a7f9a" valign="middle" align="center"> <td width="107" > <a href="detailor.asp?id=<% =rs("tgid")%>"> <% =rs("tgid")%> </a></td> <td width="162"> <div align="center"><a href="detailor.asp?id=<% =rs("tgid")%>"> <% =rs("bookname")%> </a> </div></td> <td width="162"><%if rs("rad")=1 then response.write "<font color=red>批发</color>" else if rs("rad")=2 then response.write "集团采购" end if end if %></td> <td width="162"><% =rs("shuliang")%></td> <td width="225">[ <%if rs("action")="0" then response.write "<font color=red>尚未处理</color>" else if rs("action")="1" then response.write "已发货" else if rs("action")="2" then response.write "货已到" end if end if end if %> ]</td> <td width="101"><a href="del.asp?tgid=<% =rs("tgid")%>">删除</a></td> </tr> <% i=i+1 rs.MoveNext loop %> <tr bgcolor="#6a7f9a" valign="middle" align="center"> <form name=form method=post action=?keywords=<%=request("keywords")%>&keywords2=<%=request("keywords2")%>&xs=<%=request("xs")%>> <td height="30" colspan="6" > <% if rs.recordcount<>0 then if page-1 mod 10=0 then p=(page-1) \ 10 else p=(page-1) \ 10 end if response.write "页次:"& page &"/"& rs.pagecount &"页 每页"& rs.pagesize &" 共"& rs.recordcount &"条记录"&_ " 分页:" if p*10>0 then response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&p*10&"' title=上十页>[<<]</a> " uming_i=1 for ii=p*10+1 to P*10+10 if ii=page then response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> " else response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&ii&"'>["+Cstr(ii)+"]</a> " end if if ii=rs.pagecount then exit for uming_i=uming_i+1 next if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?keywords="&keywords&"&keywords2="&keywords2&"&xs="&xs&"&page="&ii&"' title=下十页>[>>]</a> " response.write(" 跳页:<input type=text name=page size=2 maxlength=3 class=wenbenkuang> <input type=submit name=Submit value=Go class=go-wenbenkuang>") end if%> </td></form> </tr> </table> <form name="form2" method="post" action="index.asp"> <div align="center">>>自定义显示: <input type="radio" name="xs" value="action=0"> 尚未处理 <input type="radio" name="xs" value="action=1"> 已发货 <input type="radio" name="xs" value="action=2"> 货已到 <input name="Submit" type="submit" class="go-wenbenkuang" value="显示"> </div> </form> </body> </html>