Nous vous avons déjà parlé du programme de pagination plus tôt. Ici, nous vous en fournissons un et analysons-le, et vous pouvez avoir de nouveaux gains.
La copie de code est la suivante:
<%
`` Le programme suivant fait partie du code du système d'articles de technologie de programmation sur mon site Web, en se concentrant sur la mise en évidence de la pagination, afin que d'autres codes inutiles soient effacés, vous pouvez les modifier et les appliquer
onerrorResumeNext 'empêche les utilisateurs de modifier les URL à volonté pour provoquer des erreurs
IfRequest.QueryString ("page") = "" thenpage = 1: else: page = cint (request.QueryString ("page")) '' le nombre de pages vers la page URL =?
setLink1 = server.createObject ("Adodb.Connection") 'Base de données de connexion
link1.open "provider = Microsoft.Jet.oledb.4.0; DataSource =" & Server.Mappath ("Database 1.MDB")
setrs = server.createObject ("adodb.recordSet")
Rs.open "SELECT * From Tableau 1", Link1,1,1 'Ces phrases définissent le curseur de l'ensemble d'enregistrements, le nombre d'enregistrements stockés par page et les paramètres de page actuels, ce qui est très important.
Rs.PageSize = 13
Rs.Absolutepage = Page
iFerr.Number <> 0Then 'empêche les utilisateurs de modifier malicieusement les URL et la base de données sans erreurs d'enregistrement
"Erreur d'exception s'est produite" Response.Write
réponse.
endire
%>
<Basetarget = '_ Blank'> <! - Faites apparaître le contenu dans une nouvelle fenêtre ->
<tableborder = 1>
<%
fori = 0tors.pagesize-1 'affiche le contenu de données spécifique. i + (page * 13-13) +1 Cette solution montre le nombre spécifique après la pagination.
ifrs.eofthenexitfor
Response.Write "<Tr> <Td>" & i + (page * 13-13) +1 & ": <ahref = '" & rs ("connect") & "'> & rs (" auteur ") &" </a> </td> </tr> "
Rs.MovEnext
suivant
%>
<tr> <tdalign = droite>
<basetarget = '_ TOP'> <! - Faites en sorte que la connexion de pagination n'apparaît pas dans la nouvelle fenêtre. Ce qui suit est le programme complet du programme de pagination parfait sur lequel je souhaite me concentrer. Vous pouvez le modifier selon les besoins->
<%
Pagelen = Split (request.servervariables ("query_string"), "&") 'Obtenez l'URL du paramètre après l'URL? nombre
ifUbound (Pagelen) <1Then'si url est de type xxx.asp? Page = 1 ou xxx.asp, utilisez la méthode de pagination standard
ifpage> 1ThenResponse.write "<Ahref = 'A.asp? Page = 1'> Home </a> <Ahref = 'A.asp? Page =" & Page-1 & "'> Page précédente </a>": else: Response.Write "HomePage"
ifPage <Rs.pageCountTheNResponse.write "<ahref = 'a.asp? Page =" & page + 1 & "'> Page suivante </a> <ahref = 'a.asp? Page =" & Rs.PageCount & "'> Dernière page </a>": else: Response.write "Page" Next "
fori = 1tors.pageCount
ifi = pagethhenResponse.writei & "": else: réponse.write "<ahref = 'a.asp? Page =" & i & "'>" & i & "</a>"