set rs=server.createobject("adodb.recordset")
rs.open "select * from kind ",con,1,1
if rs.eof and rs.bof then
response.write "无记录!"
else
totalPut=rs.recordcount
rs.move (currentPage-1)*MaxPerPage
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
do while not rs.eof
response.write rs(1)&"<br>"
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<br>
<%
call page()
sub page()%> 页次：<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,当前记录
<b><%=totalPut%></b>个
<%
pageno=currentPage
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
%>
[ <%if cint(pageno)>1 then%><a href=urls.asp?k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a
href=urls.asp?page=<%=pageno-1%>><%end if%><-</a><%
pp=cint(pageno)-3
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=urls.asp?page=<%=pno%>><%=pno%></a><%end
if%>
<%
if p>=7 then exit for
next%> <%if cint(pageno)< mpage then%> <a href=urls.asp?page=<%=pageno+1%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a
href=urls.asp?page=<%=mpage%>><%end if%>->></a> ]<%
end sub%>
<%
end if
rs.close
con.close
set rs=nothing
set con=nothing
%>
