response.Write "alert('网络超时或者您还没有登录请登录');window.location.href='../login.asp';"
response.End
else
if session("flag")>2 then
response.Write "您没有此项目管理权限！"
response.End
end if
end if
%>
订单管理
单位名称、联系人
所定产品名称
订单ID
产品名称
类型
拟购数量
订单状态
删除
keywords=request("keywords")
keywords2=request("keywords2")
xs=request("xs")
if keywords"" then
sql="select * from tuangou where (danwei like '%"&keywords&"%' or forname like '%"&keywords&"%') order by tgtime desc"
else if keywords2"" then
sql="select * from tuangou where productname like '%"&keywords2&"%' order by tgtime desc"
else
if xs"" then
sql="select * from tuangou where "&xs&" order by tgtime desc "
else
sql="select * from 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 %>
response.write "批发"
else
if rs("rad")=2 then
response.write "集团采购"
end if
end if %>
[
response.write "尚未处理"
else
if rs("action")="1" then
response.write "已发货"
else
if rs("action")="2" then
response.write "货已到"
end if
end if
end if %>
]
删除
i=i+1
rs.MoveNext
loop
%>
if rs.recordcount0 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 "[<<] "
uming_i=1
for ii=p*10+1 to P*10+10
if ii=page then
response.write "["+Cstr(ii)+"] "
else
response.write "["+Cstr(ii)+"] "
end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii response.write(" 跳页： ")
end if%>
>>自定义显示：
尚未处理
已发货
货已到
