复制代码 代码如下:

<%

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

exce="sql" 'sql 查询语句

rs.open exce,conn,1,1

%>

然后是分页属性的设置

<%

rs.PageSize=3 ‘设置页码

pagecount=rs.PageCount '获取总页码

page=int(request("page")) '接收页码

if page<=0 then page=1 '判断

if request("page")="" then page=1

rs.AbsolutePage=page '设置本页页码

%>

最后是body里的分页显示

<%

if rs.bof and rs.eof then

response.write("NULL")

else

for i=1 to rs.PageSize

response.write rs("name")

response.write("<hr>")

rs.movenext

next

end if

%>

<p>

<%if page=1 and not page=pagecount then%>

首页|前一页

<a href="log1.asp?page=<%=page+1%>">后一页</a>|

<a href="log1.asp?page=<%=pagecount%>">末页</a>

<%elseif page<>1 and not page=pagcount then%>

<a href="log1.asp?page=1">首页</a>|

<a href="log1.asp?page=<%=page-1%>">前一页</a>|

<a href="log1.asp?page=<%=page+1%>">后一页</a>|

<a href="log1.asp?page=<%=pagecount%>">末页</a>

<%elseif page=pagecount then%>

<a href="log1.asp?page=1">首页</a>|

<a href="log1.asp?page=<%=page-1%>">前一页</a>|

下一页|

末页

<%end if%>