Ya hemos hablado sobre el programa de paginación para usted anteriormente. Aquí le proporcionamos uno y lo analizamos, y puede tener nuevas ganancias.
La copia del código es la siguiente:
<%
'El siguiente programa es parte del sistema del sistema de artículos de tecnología de programación en mi sitio web, centrándose en resaltar la paginación, por lo que se eliminan otros códigos inútiles, puede modificarlos y aplicarlos
OnerrorResumEnext 'evita que los usuarios modifiquen URL a voluntad para causar errores
IfRequest.QueryString ("Page") = "" entonces Page = 1: else: Page = cint (request.queryString ("Page")) '' El número de páginas a la página URL =?
setLink1 = server.createObject ("ADODB.Connection") 'Base de datos de conexión
Link1.open "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" & Server.mappath ("Base de datos 1.MDB")
setrs = server.createObject ("ADODB.Recordset")
Rs.open "Seleccionar*de la Tabla 1", Link1,1,1 'Estas oraciones definen el cursor del conjunto de registros, el número de registros almacenados por página y la configuración de la página actual, lo cual es muy importante.
rs.pagesize = 13
Rs.AbsolutePage = Página
iferr.number <> 0Then 'evita que los usuarios modifiquen maliciosamente URL y base de datos sin errores de registros
Respuesta "Error de excepción".
respuesta.
endif
%>
<basetArget = '_ en blanco'> <!-Haz que el contenido aparezca en una nueva ventana->
<tableborder = 1>
<%
FORI = 0TORS.PAGESIZE-1 'Muestra el contenido de datos específico. I+(página*13-13) +1 Esta solución muestra el número específico después de la paginación.
IfRs.EofThenexitFor
Response.write "<tr> <td>" & i+(página*13-13) +1 & ": <ahref = '" & rs ("connect") & "'> & rs (" autor ") &" </a> </td> </tr> "
Rs.Movenext
próximo
%>
<tr> <tdalign = right>
<basetarget = '_ top'> <!-Haga que la conexión de paginación no aparezca en la nueva ventana. El siguiente es el programa completo del programa de paginación perfecto en el que quiero centrarme. Puede modificarlo según sea necesario->
<%
pagelen = split (request.serverVariables ("query_string"), "&") '¿Obtiene la URL de parámetros después de la URL? número
ifubound (Pagelen) <1Then'i la URL es del tipo XXX.asp? Page = 1 o xxx.asp, use el método de paginación estándar
ifPage> 1ThenResponse.Write "<ahref = 'a.asp? Page = 1'> Home </a> <ahref = 'a.asp? Page =" & Page-1 & "'> Página anterior </a>": else: Response.Write "HomePage"
ifpage <rs.pageCountThenResponse.write "<ahref = 'a.asp? Page =" & Page+1 & "'> Página siguiente </a> <ahref = 'a.asp? Page =" & rs.pageCount & "'> Última página </a>": else: Response.write "Página siguiente"
fori = 1Tors.pageCount
ifi = pagethenResponse.writei & "": else: respuesta.write "<ahref = 'a.asp? Page =" & i & "'>" & i & "</a>"