<%
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if

MaxPerPage=18 '###每页显示条数


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

str="DSN=jgds;UID=sa"
con.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jgds;Data Source=."

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%>-&gt;&gt;</a> ]<%    
end sub%>
<%
end if

rs.close
con.close
set rs=nothing
set con=nothing
%>