给你个看看
'''''
<%
exec="select * from kq"
set rs=server.createobject("adodb.recordset")
rs.CursorLocation = 3
rs.PageSize = 10
rs.CacheSize = 5
rs.open exec,conn,1,1
%>
<%
if request("pages0")="" then
pages0=1
else
pages0=cint(request("pages0"))
end if
if request("pages1")="" then
pages1=1
else
pages1=cint(request("pages1"))
end if
if not rs.eof then
rs.AbsolutePage=pages1
end if
if not rs.eof then
recPerpage=0
%>
''''''''
<%do while not rs.EOF and recPerpage<rs.pageSize%>
'''''''
<%
rs.MoveNext
recPerpage=recPerPage+1
loop
end if
%>
<tr class=NMTable>
<td align=right colspan="8">
<a href="admin_kqcx1.asp?pages1=1"><font color="#FFFF00">首页</font></a><font color="#FFFF00">
</font>
<a href="admin_kqcx1.asp?pages1=<%if pages1>1 then Response.Write pages1-1 else Response.Write 1 end if%>">
<font color="#FFFF00">上页</font></a><font color="#FFFF00">
</font>
<a href="admin_kqcx1.asp?pages1=<%if rs.pagecount > 0 then if cint(pages1) < rs.PageCount then Response.Write cint(pages1)+1 else Response.Write rs.PageCount end if else response. write 1 end if%>">
<font color="#FFFF00">下页</font></a><font color="#FFFF00">
</font>
<a href="admin_kqcx1.asp?pages1=<%if rs.PageCount > 0 then response.Write rs.PageCount else response.Write 1 end if%>">
<font color="#FFFF00">末页</font></a><font color="#FFFF00">
第<%=pages1%>页
共<%=rs.PageCount%>页<%=rs.RecordCount%>条记录
</font>