asp最常用的分页函数

复制代码 代码如下:

    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
     response.write "还没找到文章

"
  else
   totalPut=rs.recordcount
   maxperpage=18
   if currentpage<1 then
    currentpage=1
    end if
   if (currentpage-1)*maxperpage>totalput then
      if (totalput mod maxperpage)=0 then
      currentpage=totalput\maxperpage
      else
      currentpage=totalput\maxperpage+1
      end if
   end if
    if currentpage=1 then
    showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
    showcontent()
    showpage totalput,maxperpage,"infotype.asp?id="&request("id")
    else
       if (currentpage-1)*maxperpage       rs.move (currentpage-1)*maxperpage
       dim bookmark
       bookmark=rs.bookmark
       showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
       showcontent
       showpage totalput,maxperpage,"infotype.asp?id="&request("id")
       else
       currentpage=1
       showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
       showcontent
       showpage totalput,maxperpage,"infotype.asp?id="&request("id")
       end if
    end if 
end if
%>
<%
  sub showcontent()
  %>
  
    ID

    选择

    信息标题

    更新日期

    点击