response.Write "alert('网络超时或您还没有登陆！');window.location.href='login.asp';"
response.End
else
if session("flag")>1 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 telorder where user_name='"&request.cookies("shopxp")("shjianame")&"' and (t_name like '%"&keywords&"%' or t_add like '%"&keywords&"%') order by dates desc"
else if keywords2"" then
sql="select * from telorder where user_name='"&request.cookies("shopxp")("shjianame")&"'and t_id in(select distinct t_id from telorder_goods where gname like '%"&keywords2&"%') order by dates desc"
else
if xs"" then
sql="select * from telorder where user_name='"&request.cookies("shopxp")("shjianame")&"' and "&xs&" order by dates desc "
else
sql="select * from telorder where user_name='"&request.cookies("shopxp")("shjianame")&"' order by dates 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("istate")="1" then
response.write "已发货"
else
if rs("istate")="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%>
>>自定义显示：
尚未处理
已发货
货已到
