<% '---------------------确定是否具有查看在线订单的权利------------------------------- dim cls if session("admin")="" then response.redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "order") if cls <= 0 then %> <% end if end if end if '------------------------确定权利结束--------------------------------------- %> 管理中心——>订单管理
当前位置: 网站管理中心--订单管理
<% '-------------------- order by title begin ---------------- action = request("action") '-------------------- order by title end ---------------- %> <%if action="" then%>
<%'---------------------在线订单搜索工具栏开始------------------------------%>
状态 订单编号 昨天 今天 所有
<%'--------------------在线订单搜索工具栏结束------------------------------%>
<% 'status = session("status") 'ordertime = session("ordertime") 'men = session("men") dim rs,msg_per_page dim sql msg_per_page = 20 '定义每页显示记录条数 set rs = server.createobject("adodb.recordset") sql = "select a.*,b.* from OrderList a,OrderStatustype b where a.del=false and a.Status=b.Status " if request("status")<>"" then sql = sql + " and a.Status='"&request("status")&"'" if request("ordertime")="today" then sql = sql + " and a.OrderTime = Date()" if request("ordertime")="yesterday" then sql = sql + " and a.OrderTime= Date()-1" if request("men")<>"" then sql= sql+ " and a.Ordernum like '%"&trim(request("men"))&"%'" sql= sql+" order by OrderTime desc" '按照下单日期显示 rs.cursorlocation = 3 '使用客户端游标，可以使效率提高 rs.pagesize = msg_per_page '定义分页记录集每页显示记录数 rs.open sql,conn,1,1 if err.number<>0 then '错误处理 response.write "


数据库操作失败：" & err.description err.clear else if not (rs.eof and rs.bof) then '检测记录集是否为空 totalrec = RS.RecordCount 'totalrec：总记录条数 if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数 n = rs.recordcount\msg_per_page 'n:总页数 else n = rs.recordcount\msg_per_page+1 end if currentpage = request("page") 'currentpage:当前页 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头 rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数 dim i dim k do while not rs.eof and rowcount>0 %> <% response.write "" rowcount=rowcount-1 rs.movenext loop else response.write "" end if end if rs.close conn.close set rs=nothing set coon=nothing %>
订单编号 数量 产品名称 收货人 下单时间 状态 选
"&_ rs("OrderNum")&""&_ rs("OrderSum")&""&rs("Discount")&""&rs("RecName")&""&rs("OrderTime")&_ ""&rs("StatusDefine")&"

无满足条件订单
<% call listPages() else end if %> <% '-------------------以下是页面需要调用的过程----------------------- if action="cls" then response.write "


这里是产品类别管理


" else end if if action="list" then yanzheng=request("ID") call Orderdetail() end if if action="删除" then delid=replace(request("id"),"'","") call orderdel() end if '-------------------end ----------------------- %>
<% '-----------------------分页显示代码开始---------------------------------- sub listPages() if n <= 1 then exit sub if currentpage = 1 then%> 首页 <%else%> ?page=1">首页 ?page=<%=currentpage-1%>">前页 <%end if if currentpage = n then%> 后页 <%else%> ?page=<%=currentpage+1%>">下页 ?page=<%=n%>">末页 <%end if%> 总:<%=currentpage%>/<%=n%>页  总共:<%=totalrec%>个产品 [<%=msg_per_page%>产品/页] <% end sub '---------------------------分页显示代码结束--------------------------------- %> <% sub Orderdetail() '如果是从修改提交的显示详细信息，先写入内容，否则直接显示 if request.form("modify")="ok" then yanzheng=request("yanzheng") set rs=Server.Createobject("ADODB.RecordSet") sql="select * from OrderList where ordernum="&yanzheng&"" rs.Open sql,conn,1,3 'if request("RecName")<>"" then rs("RecName") = request("RecName") 'if request("Reccomp")<>"" then rs("Reccomp") = request("Reccomp") 'if request("Recfax")<>"" then rs("Recfax") = request("Recfax") 'if request("RecPhone")<>"" then rs("RecPhone") = request("RecPhone") 'if request("LastModifytime")<>"" then rs("LastModifytime") = date() 'if request("Recmail")<>"" then rs("Recmail") = request("Recmail") 'if request("RecAddress")<>"" then rs("RecAddress") = request("RecAddress") 'if request("Zipcode")<>"" then rs("Zipcode") = request("Zipcode") 'if request("Notes")<>"" then rs("Notes") = request("Notes") if request("Memo")<>"" then rs("Memo") = request("Memo") if request("Status") <>"" then rs("Status") = request("Status") rs.update if request("send")="1" then response.write "修改成功" else response.write "------修改成功,正在将信息发送到客户的邮箱，请稍候!------" response.write "" end if rs.close set rs=nothing response.write "
" response.end end if sqlinfo = "select * from OrderList where ordernum="&yanzheng&"" set rsorder=Server.Createobject("ADODB.RecordSet") rsorder.Open sqlinfo,conn,1,3 if rsorder.eof and rsorder.bof then response.write "
对不起!订单错误，请您仔细检查!

如果还有问题，请联系网站管理员
" response.write "
" response.end else %> "> "> "> "> ">
订单号: <%=rsorder("OrderNum")%>
产品编号： " size="40" maxlength="40">
产品名称： " size="40" maxlength="40">
订购数量： " size="40" maxlength="40">
单位名称： " disabled size="40" maxlength="40">
姓　　名： " disabled size="40" maxlength="40">
电　　话： " disabled size="40" maxlength="40">
传　　真： " disabled size="40" maxlength="40">
邮　　箱： " disabled size="30" maxlength="30">
地　　址： " disabled size="30" maxlength="30">
支付类型： <%=rsorder("Paytype")%>
顾客说明：
处理备忘：
此处填写信息以便与客户保持沟通。如：产品已寄出，预计3日天到达，请注意查收。
发送到邮箱： 是     否 (是否将处理备忘信息发送到客户指定邮箱)
状态修改 <% '显示状态类型表 set rs2=server.createobject("adodb.recordset") sql="select * from OrderStatusType Order by Status asc" rs2.Open sql,conn,1,1 if rs2.bof and rs2.eof then response.write "" else response.write "" end if %>
      返回上一页
<% Total = 0 set rsorder=nothing end sub %> <% sub orderdel() if Delid="" or isnull(Delid) then response.write "


操作失败，没有选择合适参数!点击返回

" else set rs=server.createObject("ADODB.Recordset") sql="select * from OrderList where OrderNum in ("&Delid&")" rs.open sql,conn,1,3 if err.number<>0 then '错误处理 response.write "数据库操作失败：" & err.description err.clear else if rs.eof and rs.bof then response.write "" else Do while not rs.eof rs("del")=true rs.update rs.movenext loop Set rs8=Server.CreateObject("ADODB.Recordset") sqldel="select * from OrderList where OrderNum in ("&Delid&")" rs8.open sqldel,conn,1,3 end if response.write "" rs.close conn.close set rs=nothing set conn=nothing end if end if end sub %>