<%
'Programa de página
'total_records número total de registros
'everypage_records muestra el número de registros por página
' página_actual número de página actual
' url La URL que se pasará, que puede contener variables que se pasarán, como "list.asp?" o "list.asp?keyword=key&"
' La llamada al programa es relativamente simple, pero aún es más problemática que PHP. Sigue trabajando duro
sub show_page(total_records,everypage_records,current_page,url)
si esNumeric (total_records) entonces.
registros_totales=Int(registros_totales)
demás
registros_totales=0
terminar si
si es numérico (everypage_records) entonces
registros_cadapágina=Int(registros_cadapágina)
si eachpage_records<=0 entonces
registros_cadapágina=10
terminar si
demás
registros_cadapágina=10
terminar si
si es numérico (página_actual) entonces
página_actual=Int(página_actual)
demás
página_actual=1
terminar si
'Obtiene el número total de páginas, es decir, la última página
si total_records mod eachpage_records=0 entonces
última_página=Int(registros_totales/registros_cada_página)
demás
última_página=Int(total_records/cada_página_registros)+1
terminar si
'Determinar si página_actual cumple con el estándar y adjuntar el valor a la página
si página_actual>=última_página entonces
página=última_página
elseif página_actual<=1 entonces
página=1
demás
página=página_actual
terminar si
'Página anterior
si página<=0 entonces
preparación=0
demás
preparación=página-1
terminar si
'Página siguiente
si página = última página entonces
página siguiente=0
demás
página siguiente=página+1
terminar si
'Comenzar a grabar en esta página
primer recuento=prepg*cadapágina_registros
'Fin del registro de esta página
si nextpg>=1 entonces
último recuento=(siguientepg-1)*cadapágina_registros
demás
último recuento=registros_totales
terminar si
'Iniciar paginación del código de barras de navegación
navegación de página=""
páginanav1=""
pagenav=pagenav&"Mostrar los registros <b>"&firstcount&"-"&lastcount&"</b> en total <b>"&total_records&"</b> registros"
pagenav1=pagenav1&"Mostrar los registros <b>"&firstcount&"-"&lastcount&"</b> en total <b>"&total_records&"</b> registros"
si última_página>1 entonces
'Cuando hay portada y contraportada
pagenav=pagenav&" <a href='"&url&"page=1'>Página de inicio</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>Página de inicio</a> "
si prepg>=1 entonces
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>Página anterior</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>Página anterior</a> "
demás
pagenav=pagenav&"página anterior"
pagenav1=pagenav1&"página anterior"
terminar si
si nextpg>=1 entonces
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>Página siguiente</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>Página siguiente</a> "
demás
pagenav=pagenav&"página siguiente"
pagenav1=pagenav1&"página siguiente"
terminar si
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 a la 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&" a la página <tipo de entrada=nombre del texto=text101 id=text101 valor="&página&" tamaño=3><tipo de entrada=nombre del botón=botón101 valor=seguir haciendo clic= ' ventana.ubicación="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" total "&last_page&" páginas"
terminar si
terminar sub
%>