<%
'**********************************
'Función: multipage (números, perpage, curpage, url_add)
'Parámetros: números, número total de registros; Perpage, número de registros por página; Curpage, página actual; Url_add, otros parámetros de la página actual como? Action = List &
'Autor: Alixi
'Fecha: 2007/7/15
'Descripción: función de estilo de paginación universal ASP
'Ejemplo: Multipage (100,10,2, "? Action = List &")
'**********************************
FunctionMultipage (números, perpage, curpage, url_add)
Curpage = int (curpage)
Dimurl
Url = request.servervariables ("script_name") y url_add
Multipage = ""
Dimpage, offset, pagei
Ifint (números)> int (perpage) entonces
Página = 10
Compensación = 2
Dimpages, desde la página, la tapa
IfnumbersmodCint (perpage) = 0then
Páginas = int (números/perpage)
Demás
Páginas = int (números/perpage) +1
Endif
FromPage = Curpage-ofset
Topage = curpage+page-ofset-1
Ifpage> pagesthen
Frompage = 1
Topage = páginas
Demás
Iffrompage <1
Topage = curpage+1-lucha
Frompage = 1
If (topage-frompage) <pageand (topage-frompage) <pagesthentopage = page
El más de la opage> pagesthen
FromPage = Cursage Page+Topage
Topage = páginas
If (topage-frompage) <pageand (topage-frompage) <pagesthenFrompage = PAGES-PAGE+1
Endif
Endif
Multipage = "<ahref = '" & url & "página = 1'> <<</a>"
Forpagei = fromPagetotopage
Ifpagei <> curpagethen
Multipage = multipage & "<ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
Demás
Multipage = multipage y "<b> [" & pagei & "] </b>"
Endif
Próximo
Ifint (páginas)> int (página) entonces
Multipage = multipage & "... <ahref = '" & url & "page =" & Pages & "'> [" & Pages & "] >> </a>"
Demás
Multipage = multipage & "<ahref = '" & url & "page =" & Pages & "' >>> </a>"
Endif
Endif
Función final%>