ASP分页代码三

<!--#include file="conn.asp" --> '数据库位置，应用分页程序文件已有的不用加

 

<%'---------------------------------------------------------
   '本程序适合access数据库asp程序分页，其它类型数据库可参考。
   '效果：740)this.width=740" border=undefined>     
   '有明确注释，直接套用，需修改的部位不多。
   '可自由修改使用本程序，但敬请保留本版权信息
   '博大多媒体工作室    http://www.ip126.com
   '------------------------------------------------------------
%>

<% '=============打开数据库表，要以这种方式打开   
set rs=server.CreateObject("adodb.recordset")  
rs.open "select * from urls where urltype=1  and userlink=1  order by fincount desc",conn,1,1
%>

<%'=============分页定义开始，要放在数据库打开之后
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
r=cint(rs.RecordCount) '记录总数
rowcount = 10 '设置每一页的数据记录数，可根据实际自定义
rs.pagesize = rowcount '分页记录集每页显示记录数
maxpagecount=rs.pagecount '分页页数
page=request.querystring("page")
  if page="" then
  page=1
  end if
rs.absolutepage = page
rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
'=============分页定义结束%>

<%'===========循环体开始
do while not rs.eof and rowcount%>

<!---此处为内容循环输出---->

<%
rowcount=rowcount-1
rs.movenext
loop
end if
end if
 '===========循环体结束%>
 
 
<%'===========显示分页的过程调用，要放在数据库打开后、释放资源前
call listPages() 
rs.close  '释放资源
set rs=nothing%>

 

 <%'==========分页过程开始，也可单独创建一文件在本文件前包含调用
 sub listPages() '定义过程开始%>
 <form method=bPost action=<%=request.ServerVariables("script_name")%>>
       <tr  align="left">
       <td colspan="17" bgcolor=<%=tColor1%> class=tdc width="738" height="22" > <%if pagestart=1 then%><FONT face=webdings><span style="color: #FF0000">9</span></font><%else%>
<a href=<%=request.ServerVariables("script_name")%>?page=1 title="首页"><FONT
 face=webdings><span >9</span></font></a><%end if%>

            <% for i=pagestart to pageend
            if i=0 then
            i=1
            end if
            strurl="<a href="&request.ServerVariables("script_name")&"?page="&i&" title='到"&i&"页'>"&i&"</a>"
response.write strurl
response.write " "
 next
            %>
            <%if pageend=maxpagecount then%><FONT
 face=webdings><span style="color: #FF0000">:</span></font>
<%else%><a href=<%=request.ServerVariables("script_name")%>?page=<%=maxpagecount%> title="尾页"><FONT
 face=webdings><span >:</span></font></a><%end if%>&nbsp;&nbsp; 页次:<font color=red><%=page%></font>/<%=maxpagecount%>页&nbsp;&nbsp;   <%=rs.pagesize%>个网址/页&nbsp;&nbsp; 共有网址:<%=r%>&nbsp;&nbsp;  <input type='text' name='page' size=2 maxlength=10 class=smallInput value=<% = page %>><input type='submit'  class='contents' value='GO'></form>  </td></tr>
<%end sub '定义过程结束
'==========分页过程结束%>