asp数字分页源码

[lvqinghou100]

asp数字分页源码，在线等

[lindy258]

<%
Dim rs,sqlstr
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from news"
rs.Open sqlstr,conn,1,1
Dim filepath
filepath=Request.ServerVariables("path_info")
Dim page,recordsperpage
recordsperpage=10
page=Trim(Request.QueryString("page"))
rs.Pagesize=recordsperpage
If Not IsEmpty(page) Then
If Not IsNumeric(page) Then
page=1
Else
page=Clng(page)
End If
If page>=rs.Pagecount Then
page=rs.Pagecount
Elseif page<=0 Then
page=1
Else
rs.AbsolutePage=page
End If
Else
page=1
End If
rs.AbsolutePage=page
%>


<%
Do While rs.Eof=False and recordsperpage>0
%>


<%Response.Write rs("news_id")%>
<%Response.Write rs("news_title")%>
<%Response.Write rs("news_author")%>

<%
recordsperpage=recordsperpage-1'
rs.MoveNext
Loop
%>
<%
If rs.Bof and rs.Eof Then
%>

对不起,暂时无新闻

<%End If%>


<%If page<=1 Then %> [首页][上一页]
<%Else%>
<a href="<%=filepath%>?page=<%=1%>">[首页]</a>
<a href="<%=filepath%>?page=<%=page-1%>">[上一页]</a>
<%End If%>
<%If page>=rs.Pagecount Then%>
[下一页][尾页]
<%Else%>
<a href="<%=filepath%>?page=<%=page+1%>">[下一页]</a>
<a href="<%=filepath%>?page=<%=rs.Pagecount%>">[尾页]</a>
<%End If%></td>
<td height="20">
[页次:<font color="red"><b><%=page%></b></font>/<%=rs.Pagecount%>页][共<font color="red"><b><%=rs.Recordcount%></b></font>篇 <font color="red"><b><%=rs.Pagesize%></b></font>篇/每页]

做个链接http://www.znzncn.com