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> 
    <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="javascript:void(null)" onClick="window.open('cshengcheng.asp','','width=0,height=0')"><font color="#FFFFFF">归零</font></a>]</div></td> 
  </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="Article_show.asp?id=<%=rs("id")%>" target="_blank">[<%=rs("type_id")%>]<%thetitle1=rs("title") 
    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="<%=htmlfolder%><%=foldername%>/<%=rs("id")%>.htm" title="查看生成的静态页面" target="_blank"><%=rs("datetime")%></a></div></td> 
    <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="news_edit.asp?dxy_id=<%=rs("id")%>">修改</a></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"><a href="javascript:delxx(<%=rs("id")%>)">删除</a></div></td> 
    <td bgcolor="#D6DFF7"><div align="center"><a href="javascript:makehtml(<%=rs("id")%>)">生成(<a href="javascript:void(null)" onClick="window.open('cshengcheng.asp?id=<%=rs("id")%>','','width=0,height=0')"><%=rs("shengcheng")%>)</a></div></td> 
  </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="javascript:selectall()"><font color="#FFFFFF">选择</font></a></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> 
    <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="<%=filename%>"><font color="red">[首页]</font></a> <a href="<%=filename%>&page=<%=currentpage-1%>"><font color="red">[上一页]</font></a> 
        <%end if%><% if n-currentpage<1 then%> 
        [下一页] [尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>"><font color="red">[下一页]</font></a> <a href="<%=filename%>&page=<%=n%>"><font color="red">[尾页]</font></a> 
        <%end if%> 
        转到：<select name="dd" class="sle"  

onChange="location.href=this.options[this.selectedIndex].value"> 
     <%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 
     %> 
    </select> 
    </div>    </td> 
    </tr> 
    <% 
    end function 
    %> 
    <% 
    function showpage1(totalnumber,maxperpage,filename) 
    %> 
  <tr> 
    <td height="20" colspan="9" bgcolor="#D6DFF7"> 
    <% 
dim b 
if totalnumber mod maxperpage=0 then 
b=totalnumber\maxperpage 
else 
b=totalnumber\maxperpage+1 
end if 
%> 
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条， 

当前页<%=currentpage%>/<%=b%>  
     <% 
     dxystart=currentpage-5 
     if dxystart<1 then dxystart=1 
     dxyend=currentpage+5 
     if dxyend>b then dxyend=b 
     for dxy=dxystart to dxyend 
     if dxy=currentpage then 
     response.write "[<a href="&filename&"&page="&dxy&">"&"<font color=red>"&dxy&"</font>"&"</a>]"&" " 
     else 
     response.write "[<a href="&filename&"&page="&dxy&">"&dxy&"</font>"&"</a>]"&" " 
     end if 
     next 
     %>  
    </div>    </td> 
    </tr> 
    <% 
    end function 
    %> 
  </form> 
</table> 
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>