ASP 分页

<%

set conn=server.createobject("adodb.connection")

str="provier=microsoft.jet.oledb.4.0;data source="& server.mappath("test.mdb")

conn.open str 

dim sql 

set sql="select * from article " 

set rs=server.createobject("adodb.recordset") 

rs.open sql,conn,3,1 

rs.pagesize=15  -------每页显示15条记录 

if not isempty(request("page"))  then

   pagenum=cint(request("page"))

else

   pagenum=1

end if  

rs.absolutepage= pagenum                       ----------指定当前页,页码 

thispage=request.servervariables("script_name")

%> 

<table >

<tr>

<td>文章标题</td>

<td>阅览次数</td>

<td>发表时间</td>

</tr>

<%do while not rs.eof %> 

<tr>

<td>

<a href="showarticle.asp?id=<%rs("id")"%>  targe="_blank">

<% if len(rs("title"))>15 then) %>

<%=left(rs("title"),14)%>...

<%else%>

<%=rs("title")%>

<%end if %>

</a>

</td> 

<td> <%=rs("viewcount")%></td> 

<td> <%=rs("addtime")%></td>

</tr>

<%n=n+1

rs.movenext

if n>=pagesize then exist do  end if  

loop %>

</table> 

<table>

<tr>

<td>本版共<%=rs.recordsetcount%>篇文章,页次:<%=pagenum%>/<%=rs.pagecount%>

<%if pagecount<>1 then %>

<a href="<%=thispage %>?page=1"> 首页</a>

<a href="<%=thispage %>?page=<%=pagenum-1%>"> 上一页</a>

<%end if%>

<%if pagecount<>rs.pagecount then %> 

<a href="<%=thispage %>?page=<%=pagenum+1%>"> 下一页</a>

<a href="<%=thispage %>?page=<%=rs.pagecount%>"> 尾页</a>

<% end if %>

<td >

</tr>

</table > 

<%

rs.close

set rs=nothing

set conn=nothing

%>