<% set rs=server.createobject("adodb.recordset") sqltext="select * from baomuxinxi where sfsh=true and diqu=106 order by tjwz desc,sxsj desc,id desc" rs.open sqltext,conn,1,1 MaxPerPage=20 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 currentpage > 1 then%>第<%=Cstr(CurrentPage)%>页<%else%><%end if%> - 上海保姆网
您的位置：首页>>需求信息>>虹口保姆>>信息列表
虹口各类别： 早出晚归 住家保姆 月嫂 育儿嫂 育婴师 护工 早教 管家 涉外保姆 高端保姆 钟点工 其它保姆
上海各区域：
快速搜信息：
关键词：
 类别： 　区域： 　性质：　
<% 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 %>
<% Response.write "目前" Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条虹口保姆信息　　" Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & "　" If currentpage > 1 Then response.write "首页　" Response.write "上一页" Else Response.write "上一页 " End if If currentpage < Rs.PageCount Then Response.write "下一页" Response.write "尾页" Else Response.write "" Response.write "下一页" End if %>
<% End sub rs.close %>