洗涤机械-定单管理
<% set rs=server.createobject("adodb.recordset") sqltext="select * from baoxiu where flag=0 order by id desc" rs.open sqltext,conn,1,1 dim MaxPerPage MaxPerPage=20 '假如没有数据时 If rs.eof and rs.bof then call showpages response.write "

恭喜，我公司产品质量很好，目前均没有报修！请返回！

" response.end End if '取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call showpages call list If Rs.recordcount > MaxPerPage then call showpages end if '显示帖子的子程序 Sub list()%>
 共有如下未处理定单     *查看已处理报修*
<% if not rs.eof then i=0 do while not rs.eof %>
<% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %>
姓名 公司名称 故障设备 报修日期 电话 操作

<%=rs("name")%>

 <%=rs("company")%> <%=rs("shebei")%>

<%=rs("post")%>

<%=rs("phone")%>

 '" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#D4D0C8'"> '" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver="this.style.backgroundColor='#FFC864'" onMouseOut="this.style.backgroundColor='#D4D0C8'">

 


<% End sub rs.close conn.close %>
　 <% '显示翻页的子程序 sub showpages()%>
<% response.write "
" %>

<% Response.write "分页-" If currentpage > 1 Then response.write "首页-" Response.write "前页-" Else Response.write "首页-" Response.write "前页-" End if If currentpage < Rs.PageCount Then Response.write "后页-" Response.write "尾页  " Else Response.write "后页-" Response.write "尾页  " End if Response.write "页次:" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " Response.write "" & Cstr(MaxPerPage) & "" & "条记录/页 " & "共" & "" & Cstr(Rs.RecordCount) & "" & "条记录  " response.write "

" response.write "转到： " response.write "  " %>
<%end sub%>