Uma breve análise de um bom tutorial de código de efeito de virada de página_ASP

<%PageShowSize=5'Quantas páginas são exibidas por página?

MyPageSize=10'Quantos artigos são exibidos em cada página?

IfNotIsNumeric(Request(página))OrIsEmpty(Request(página))OrRequest(página)<=0Então

Minha página=1

Outro

MinhaPágina=Int(Abs(Solicitação(página)))

Endif

setrs=servidor.CreateObject(ADODB.RecordSet)

rs.Source=select*fromNewsorderbyNewsIDdesc

rs.Openrs.Source,conn,3,1

IfNotrs.eofthen

rs.PageSize=MeuTamanhoPágina

MaxPages=rs.PageCount

rs.absolutepage=MinhaPágina

total=rs.RecordCount

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

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

<%

fori=1tors.PageSize

ifnotrs.EOFentão

%>

<trbgcolor=#FFFFFF>

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

<%

rs.MoveNext

fim

próximo

%>

</tr></tabela>

<tabela>

<tr>

<tdcolspan=2align=centerheight=30>Total <%=total%> itens, número atual <%=Mypage%>/<%=Maxpages%>

Página

<%

url=index.asp?

PageNextSize=int((MinhaPágina-1)/PageShowSize)+1

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

ifPageNextSize>1então

PagePrev=PageShowSize*(PageNextSize-1)

Response.write<aclass=blackhref='&Url&page=&PagePrev&'title='Previous&PageShowSize&page'>Página anterior</a>

Response.write<aclass=blackhref='&Url&page=1'title='Page 1'>Topo da página</a>

fim

ifMyPage-1>0then

Prev_Page=MinhaPágina-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='&Prev_Page&page'>Página anterior</a>

fim

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=PáginaShowSize

Outro

PageSizeShow=Maxpages-PageShowSize*(PageNextSize-1)

Endif

IfPageSizeShow<1ThenPageSizeShow=1

forPageCounterSize=1toPageSizeShow

PageLink=(PageCounterSize+PageNextSize*PageShowSize)-PageShowSize

ifPageLink<>MinhaPáginaEntão

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

outro

Resposta.Write<B>[&PageLink&]</B>

fim

IfPageLink=MaxPagesThenExitfor

Próximo