El siguiente párrafo es el código básico de paginación:
<% sql = "Seleccione …………………………… omitir el conjunto de instrucciones SQL RS = Server.CreateObject (" ADODB.RecordSet ") Rs.open SQL, Conn, 1, 1 Si no Rs.EOF entonces las páginas = 30 'Definir el número de registros de registros por página RS rs.pagesize = Pagas' Define el número de cuanto a los registros se muestran por lo que se muestran por la página. Las páginas se pueden dividir en la página total = request.queryString ("página") 'El número de páginas pasadas a través del navegador' si la declaración pertenece al proceso básico de solución de problemas si isEtimty (página) o cint (página) < 1 entonces página = 1 1 de los demás cint (página) > Allpages Page = Allpages final si rs.AbSolutepage = página no es rs.eOf y páginas > > > > Page de todas las páginas = Allves finalizas de las altas. Salida aquí …………… < % Páginas = páginas - 1 Rs.MoVENEXT bucle else Respuesta.write ("¡No hay contenido en la base de datos!") Fin si Rs.Clase establece RS = nada %>El sistema ya ha paginado los datos. Echemos un vistazo a la definición de la función de paginación que se discute esta vez.
<% subpagurl (purl) dim eurl txts = request.ServerVariAnbles ("url") txts = izquierda (txts, instrrev (txts, "/", len (txts))-1) eurl = "http: //"; & Request.serverVariAnbles ("server_name") & txts para i = 1 a allpages txt = "" txt = "< strong>" txt = txt & "< a href =" & eurl & purl & "page =" & i & ">" if i = cint (página) luego txt = txt & "< font color = 'bb0000000000'>" " Cint (página) luego txt = txt & "</font>" txt = txt & "</a> ∥ </strong>" Response.write (txt) siguiente final sub %>Guarde la copia del código de función de paginación anterior en un archivo ASP. Use incluir para introducirlo en la página que necesita usar para llamarlo cuando llame ("/el nombre del archivo que llamó?") Está bien. Por ejemplo, si desea llamarlo en mi página de noticias, es <%call ("/news.asp?")%>
Lo que acabamos de ver es limitado, lo que significa que en la primera pieza de código, excepto el contenido de la consulta SQL y el contenido de salida, las otras variables que declaran el conjunto de registros no se pueden cambiar, de lo contrario no podrán ejecutar. De hecho, este programa es irrelevante. Lo más importante es que esta función de paginación se puede llamar en cualquier hoja ASP.