Le paragraphe suivant est le code de pagination de base:
＜% SQL = "SELECT ………………………… omettre le jeu de instructions SQL RS = Server.CreateObject (" Adodb.recordSet ") Rs.Open SQL, Conn, 1, 1 Si ce n'est Rs.Eof Pages = 30 'Définir le nombre de dossiers affichés par page Rs.pageSize = pages' Define le nombre de dossiers affiché Les pages peuvent être divisées en page totale = request.QueryString ("page") 'Le nombre de pages transmis par l'instruction du navigateur' Si l'instruction appartient au processus de dépannage de base si IsEmpty (page) ou Cint (page) ＜ 1 alors page = 1 Elseif Cint (page) ＞ allpages alors Page = AllPages finit si Rs.absolutepage = Page Do tandis de faire est la sortie ici …………… ＜% pages = pages - 1 Rs.MovEnext Loop Else Response.Write ("Il n'y a pas de contenu dans la base de données!") Fin si Rs.Close set rs = rien%>Le système a déjà paginait les données. Jetons un coup d'œil à la définition de la fonction de pagination qui est discutée cette fois.
＜% sous-pageurl (purl) dim eurl txts = request.servervariables ("url") txts = left (txts, instrrev (txts, "/", len (txts)) - 1) eurl = "http: //"; & Request.ServerVariables("server_name") & txts For i =1 to allpages txt = "" txt = "＜strong>" txt = txt & "＜a href=" & eUrl & pUrl & "page="&i & ">" if i = Cint(Page) then txt = txt & "＜font color='bb0000'>" txt = txt & (i) if i = Cint (page) puis txt = txt & "＜ / font>" txt = txt & "＜/a> ∥ ＜ / Strong>" Response.write (txt) Sext End Sub%>Enregistrez la copie de code de fonction de pagination ci-dessus dans un fichier ASP. Utiliser Inclure pour l'introduire dans la page que vous devez utiliser pour l'appeler chaque fois que l'appel ("/ le nom de fichier que vous avez appelé?") Est OK. Par exemple, si vous souhaitez l'appeler dans ma page de nouvelles, c'est <% appelez ("/ news.asp?")%>
Ce que nous venons de voir est limité, ce qui signifie que dans le premier morceau de code, à l'exception du contenu de requête SQL et du contenu de sortie, les autres variables qui déclarent que l'ensemble d'enregistrements ne peut pas être modifié, sinon ils ne pourront pas s'exécuter. En fait, ce programme n'est pas pertinent. La chose la plus importante est que cette fonction de pagination peut être appelée dans n'importe quelle feuille ASP.