<%
'***********************************
'Função: Multipage (números, perpagem, cuba, url_add)
Parâmetros: números, número total de registros; Perpagem, número de registros por página; Curpagem, página atual; Url_add, outros parâmetros da página atual, como? Action = List &
'Autor: Alixi
Data: 2007/7/15
'Descrição: função de estilo de paginação universal asp
'Exemplo: Multipage (100,10,2, "? Ação = Lista e")
'***********************************
FunctionMultiPage (números, perpagem, cuba, url_add)
Curpage = int (Curpage)
Dimurl
Url = request.Servervariables ("script_name") & url_add
MultiPage = ""
DIMPAGE, deslocamento, PageI
Ifint (números)> int (perpagem) então
Página = 10
Deslocamento = 2
DIMPAGENS, FROMPAGE, TOPAGE
IfnumbersModcint (perpagem) = 0then
Páginas = int (números/perpagem)
Outro
Páginas = int (números/perpagem) +1
Endif
FromPage = Offset Curpage
TOPAGE = CURPAGE+PÁGINA-OFFSET-1
IFPAGE> PAGESTHEN
Frompage = 1
TOPAGE = Páginas
Outro
SeFROMPAGE <1THEN
TOPAGE = CURPAGE+1 FROMPAGE
Frompage = 1
If (topage-frompage) <concurso e (topage-frompege) <pagesthentopage = página
ElseiftOpage> pagesthen
FromPage = Curpage-Pages+Topage
TOPAGE = Páginas
If (topage-frompage) <concurso e (topage-frompage) <pagesthenfrompage = páginas-página+1
Endif
Endif
MultiPage = "<ahref = '" & url & "página = 1'> <<</a>"
Forpagei = FromPageToToPage
Ifpagei <> curpageten
Multipage = Multipage & "<ahref = '" & url & "Page =" & Pagei & "'> [" & Pagei & "] </a>"
Outro
Multipage = Multipage & "<b> [" & Pagei & "] </b>"
Endif
Próximo
Ifint (páginas)> int (página) então
Multipage = Multipage & "... <ahref = '" & url & "Page =" & Pages & "'> [" & Pages & "] >> </a>"
Outro
Multipage = Multipage & "<ahref = '" & url & "Page =" & Pages & "' >>> </a>"
Endif
Endif
Função final%>