分页效果为：

...[1][2][3][4][5]...

<%

这里写读取数据代码

page=cint(request("page"))

total=rs.RecordCount ´全部数据计数

pageSize=10 ´每页显示数量

rs.pagesize=pageSize

m=cint(rs.pagecount)

if page="" then

page=1

elseif page<1 then

page=1

end if

if cint(request("page"))>m then

page=m

end if

page=cint(page)

if not rs.eof then

rs.absolutepage=page

end if

if m>page+3 then

endpage=page+3

else

endpage=m

end if

if page>4 then

pagetitle=pagetitle & " " & "...."

end if

for i=page-3 to endpage

if not i<1 then

if i = page then

pagetitle=pagetitle & " " & "<B>[" & i & "]</B>"

else

pagetitle=pagetitle & " " & "[" & "<a href="XXX.asp?page="" & i & ">" & i & "<a>" & "]"

end if

end if

next

if page+3 < m then

pagetitle=pagetitle & " " & "...."

end if

maxpage=rs.pagecount ´全部页数计数

%>

<% while not rs.eof and pageSize>0 %>

这里写显示数据代码

<% if not rs.eof then

rs.movenext

end if

pageSize=pageSize-1

wend

rs.close

set rs=nothing

%>

共<%=maxpage%>页 <%=pagetitle%>