asp最常用的分页函数

    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
     response.write "<p align='center'>还没找到文章</p>"
  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<totalput then
       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()
  %>
  <tr>
    <td height="20" class="blueback2"><div align="center">ID</div></td>
    <td class="blueback2"><div align="center"><a href="javascript:selectall()"><font color="#FFFFFF">选择</font></a></div></td>
    <td width="355" class="blueback2"><div align="center">信息标题</div></td>