<%=Page%>/<%=rs.PageCount%>
<%a=6 '要显示的页码数 page 当前页码 pagecount 总页码数
if page>a-1 and rs.PageCount >a Then '如果当前页大于 要显示的页数 或 记录总数 大于 要显示的页数.
if (page+int((a-1)/2))>rs.PageCount then
pagenow = rs.PageCount - a+1
else
pagenow = page - int((a-1)/2)
end if
for i = 1 to a
If pagenow=page Then
response.write "- "&pagenow&"
"
Else
response.write "- "&pagenow&"
"
End If
pagenow = pagenow + 1
next
else
if rs.PageCount < a then
for i = 1 to rs.PageCount
If i=page Then
response.write "- "&i&"2
" '当前页码显示
Else
response.write "- "&i&"
"
End If
next
else
for i = 1 to a
If i=page Then
response.write "- "&i&"
" '当前页码显示
Else
response.write "- "&i&"
"
End If
next
end if
end if
%>