asp最常用的分页函数

答案：
[复制此代码]CODE:

    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=>    <td width="355" class="blueback2"><div align="center">信息标题</div></td> 
    <td width="84" class="blueback2"><div align="center">更新日期</div></td> 
    <td width="40" class="blueback2"><div align="center">点击</div></td> 
    <td width="55" class="blueback2"><div align="center">添加人</div></td> 
    <td width="44" class="blueback2"><div align="center">编辑</div></td> 
    <td width="43" class="blueback2"><div align="center">删除</div></td> 
    <td width="62" class="blueback2"><div align="center">生成[<a href=>  </tr>   
  <% 
  i=1 
   do while not rs.eof 
%> 
  <tr> 
    <td width="39" height="25" bgcolor="#D6DFF7"><div align="center"><%=rs("id")%></div></td> 
    <td width="34" bgcolor="#D6DFF7"><div align="center"> 
           <input type="checkbox" name="dxyid" value="<%=rs("id")%>"> 
     </div></td> 
    <td bgcolor="#D6DFF7"><a href=>    strcounts=truelen(thetitle1) 
    response.write thetitle1 
    %></a></td> 
    <% 
    datetime=rs("datetime") 
    yname=year(datetime) 
mname=month(datetime) 
if len(mname)<2 then mname="0"&mname 
dname=month(datetime) 
if len(dname)<2 then dname="0"&dname 
foldername=yname&mname 
    %> 
    <td bgcolor="#D6DFF7"><div align="center"><a href=>    <td bgcolor="#D6DFF7"><div align="center"><%=rs("hits")%></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"><%=rs("author")%></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"><a href=>    <td bgcolor="#D6DFF7"><div align="center"><a href=>    <td bgcolor="#D6DFF7"><div align="center"><a href=>  </tr> 
  <% 
  i=i+1 
   if i>maxperpage then exit do 
  rs.movenext   
  loop 
  %> 
  <tr> 
    <td height="20" class="blueback2"><div align="center">ID</div></td> 
    <td class="blueback2"><div align="center"><a href=>    <td class="blueback2"><div align="center">信息标题</div></td> 
    <td class="blueback2"><div align="center">更新日期</div></td> 
    <td class="blueback2"><div align="center">点击</div></td> 
    <td class="blueback2"><div align="center">添加人</div></td> 
    <td class="blueback2"><div align="center">编辑</div></td> 
    <td class="blueback2"><div align="center">删除</div></td> 
    <td class="blueback2"><div align="center">生成</div></td> 
  </tr> 
  <% 
  end sub     
  %> 
  <tr> 
    <td height="20" colspan="9" bgcolor="#D6DFF7"><label> 
       <input type="button" name="dxydo" value="全选" onClick="javascript:selectall()"> 
        <input type="submit" name="dxydo" value="删除" onClick="{if(confirm('确定要删除选择的信息吗')){document.formselect.submit();return true;}return false;}"> 
         <input type="submit" name="dxydo" value="生成"> 
         <input type="submit" name="dxydo" value="移动"> 
    </label></td> 
    </tr> 
    <% 
    function showpage(totalnumber,maxperpage,filename) 
    %> 
  <tr> 
    <td height="20" colspan="9" bgcolor="#D6DFF7"> 
    <% 
dim n 
if totalnumber mod maxperpage=0 then 
n=totalnumber\maxperpage 
else 
n=totalnumber\maxperpage+1 
end if 
%> 
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条， 
当前页<%=currentpage%>/<%=n%>  
        <%if currentpage<2 then%> 
        [首页] [上一页] 
        <%else%> 
        <a href=>        <%end if%><% if n-currentpage<1 then%> 
        [下一页] [尾页]<%else%><a href=>        <%end if%> 
        转到：<select name="dd" class="sle"  
onChange="location.href=>     <%for j=1 to n 
     if currentpage=j then 
     %><option value="<%=filename%>&page=<%=j%>" selected><%=j%></option> 
     <% 
     else 
     %> 
     <option value="<%=filename%>&page=<%=j%>"><%=j%></option> 
     <% 
     end if 
     next 

上一个：asp:生成静态页面函数
下一个：简单分页函数一 常用