Une brève analyse d'un bon tutoriel code_ASP sur l'effet de rotation de page

<%PageShowSize=5'Combien de pages sont affichées par page ?

MyPageSize=10'Combien d'articles sont affichés sur chaque page ?

IfNotIsNumeric(Request(page))OrIsEmpty(Request(page))OrRequest(page)<=0Then

MaPage=1

Autre

MaPage=Int(Abs(Requête(page)))

Fin

setrs=server.CreateObject(ADODB.RecordSet)

rs.Source=select*fromNewsorderbyNewsIDdesc

rs.Openrs.Source,conn,3,1

IfNotrs.eofthen

rs.PageSize=MaTaillePage

MaxPages=rs.PageCount

rs.absolutepage=MaPage

total=rs.RecordCount

%><bodylink=#000000vlink=#000000alink=#000000>

<tablewidth=100%border=0cellpadding=0cellspacing=1bgcolor=#000000style=border-collapse:collapse>

<%

fori=1tors.PageSize

ifnotrs.EOFthen

%>

<trbgcolor=#FFFFFF>

<tdwidth=63%height=30><%=trim(rs(title))%></td>

<%

rs.MoveNext

fin

suivant

%>

</tr></table>

<tableau>

<tr>

<tdcolspan=2align=centerheight=30>Total <%=total%> éléments, nombre actuel <%=Mypage%>/<%=Maxpages%>

Page

<%

url=index.asp?

PageNextSize=int((MaPage-1)/PageShowSize)+1

Pagetpage=int((total-1)/rs.PageSize)+1

siPageNextSize>1alors

PagePrev=PageShowSize*(PageNextSize-1)

Response.write<aclass=blackhref='&Url&page=&PagePrev&'title='Previous&PageShowSize&page'>Page précédente</a>

Response.write<aclass=blackhref='&Url&page=1'title='Page 1'>Haut de la page</a>

fin

siMaPage-1>0alors

Précédent_Page=MaPage-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='&Prev_Page&page'>Page précédente</a>

fin

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=PageShowTaille

Autre

PageSizeShow=Maxpages-PageShowSize*(PageNextSize-1)

Fin

SiPageSizeShow<1ThenPageSizeShow=1

forPageCounterSize = 1toPageSizeShow

PageLink=(PageCounterSize+PageNextSize*PageShowSize)-PageShowSize

ifPageLink<>MyPageThen

Réponse.write<aclass=blackhref='&Url&page=&PageLink&'>[&PageLink&]</a>

autre

Réponse.Write<B>[&PageLink&]</B>

fin

IfPageLink=MaxPagesThenExitpour

Suivant