Paginazione a blocchi.

[Mems]

Se a qualcuno può interessare, questo script visualizza i numeri di pagina relativi ad una paginazione in gruppi di N, nell'esempio in gruppi di 5.

<%
page = request.queryString("page")
if len(page) = 0 or (not isNumeric(page)) then page = 1
if isNumeric(page) then page = cLng(page)
if page < 1 then page = 1

pageCount = 25 	' ovvero rs.pageCount
limitPage = 5 	' indica quanti numeri di pagina visualizzare

limitPage = int(limitPage)

if limitPage < 3 then limitPage = 3

if pageCount > limitPage then

	if page > (limitPage - int(limitPage / 2)) then 
	iStart = page - int(limitPage / 2)
	iEnd = page + int(limitPage / 2)
	else
	iStart = 1
	iEnd = limitPage
	end if
	
	if iStart + limitPage > pageCount then iStart = pageCount - (limitPage - 1)
	
else
	
	iStart = 1
	iEnd = pageCount
	
end if
%>
<% 
	if page > (limitPage - int(limitPage / 2)) then 
%>
&laquo; Prima pagina 
<%
	end if
%>
<%
	for i = iStart to iEnd
		if i = page then
%>
<%=i%> 
<%
		else
%>
<%=i%>  
<%
		end if
		
		if i = pageCount then exit for
	next
%>
<%
	if iEnd < pageCount then
%>
Ultima pagina &raquo;
<%
	end if
%>