<% call log_chk() %>
后台管理：>> 订单管理
<% dim mykey,CurrentPage,TotalPages MaxPerPage=10 Set rs1= Server.CreateObject ("ADODB.RecordSet") sql="select * from bdkhdg order by dg_time desc" rs1.open sql,conn,1,3 rs1.pagesize=MaxPerPage'定义每页记录数 'howmanyfields=rs.Fields.Count-1 If trim(Request("Page"))<>"" then CurrentPage= CLng(request("Page")) If CurrentPage> rs1.PageCount then CurrentPage = rs1.PageCount End If Else CurrentPage= 1 End If totalPut=rs1.recordcount 'totalput=总记录数 if CurrentPage<>1 then if (currentPage-1)*MaxPerPage < totalPut then rs1.move(currentPage-1)*MaxPerPage end if end if do while not rs1.eof and c<10%> <% c=c+1 rs1.movenext loop rs1.close set rs1=nothing %>
订单管理
选择 编号 姓名 产品名称 提交日期 状态
" /> <%=rs1("dg_id")%> <%=rs1("kh_name")%> "><%=left(rs1("cp_name"),25)%> ">[查看] <%=rs1("dg_time")%> <%if rs1("dg_open")=0 then%>未处理<%else%>已处理<%end if%> <%if rs1("dg_hf")<>"" then%>已说明<%else%>未说明<%end if%>
全选
<% '------------------------------------------------------页面跳转 dim n,k if (totalPut mod MaxPerPage)=0 then 'n表示总页数 n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if k=currentPage k=currentPage if k<>1 then response.write "["+"第一页] " response.write "["+"上一页] " else Response.Write "[第一页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"最后一页] " else Response.Write "[下一页] [最后一页]" end if '------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别 response.Write(" | 共"&n&"页 / "&totalPut&"条信息 / ") response.Write("当前第"&k&"页") response.Write(" ") response.Write(" ")%>