<%
'Programa de página
' total_records número total de registros
'everypage_records exibe o número de registros por página
' current_page número da página atual
' url A URL a ser passada, que pode conter variáveis a serem passadas, como "list.asp?" ou "list.asp?keyword=key&"
' A chamada do programa é relativamente simples, mas ainda é mais problemática que o PHP. Continue trabalhando duro
sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records) then
.
registros_totais=Int(registros_totais)
outro
registros_totais=0
terminar se
se IsNumeric (everypage_records) então
everypage_records=Int(everypage_records)
se everypage_records<=0 então
cadapágina_records=10
terminar se
outro
cadapágina_records=10
terminar se
se IsNumeric (página_atual) então
página_atual=Int(página_atual)
outro
página_atual=1
terminar se
'Obtém o número total de páginas, ou seja, a última página
se total_records mod everypage_records=0 então
last_page=Int(total_records/everypage_records)
outro
last_page=Int(total_records/everypage_records)+1
terminar se
'Determine se current_page atende ao padrão e anexe o valor à página
se página_atual>=última_página então
página=última_página
elseif página_atual<=1 então
página=1
outro
página=página_atual
terminar se
'Página anterior
se página<=0 então
preparação=0
outro
preparação=página-1
terminar se
'Próxima página
se página=última_página então
próximapg=0
outro
próximapg=página+1
terminar se
'Começa a gravar nesta página
firstcount=prepg*everypage_records
'Fim do registro desta página
se próximapg>=1 então
lastcount=(nextpg-1)*everypage_records
outro
última contagem=total_records
terminar se
'Iniciar paginação do código de barras de navegação
pagenav=""
pagenav1=""
pagenav=pagenav&"Mostrar os <b>"&firstcount&"-"&lastcount&"</b> registros no total de <b>"&total_records&"</b> registros"
pagenav1=pagenav1&"Mostrar os <b>"&firstcount&"-"&lastcount&"</b> registros no total de <b>"&total_records&"</b> registros"
se última_página>1 então
'Quando há páginas de frente e de trás
pagenav=pagenav&" <a href='"&url&"page=1'>Página inicial</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>Página inicial</a> "
se preparação>=1 então
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>Página anterior</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>Página anterior</a> "
outro
pagenav=pagenav&"página anterior"
pagenav1=pagenav1&"página anterior"
terminar se
se próximapg>=1 então
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>Próxima página</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>Próxima página</a> "
outro
pagenav=pagenav&"próxima página"
pagenav1=pagenav1&"próxima página"
terminar se
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>Última página</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>Última página</a> "
pagenav=pagenav&"Ir para a página <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location="""&url&" página=""+text100.valor'>"
pagenav=pagenav&" total "&last_page&" página"
pagenav1=pagenav1&" para a página <input type=text name=text101 id=text101 value="&page&" size=3><input type=button name=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" total "&last_page&" páginas"
fim se
fim sub
%>