Краткий анализ хорошего руководства по эффекту перелистывания страниц code_ASP

<%PageShowSize=5'Сколько страниц отображается на одной странице?

MyPageSize=10'Сколько статей отображается на каждой странице?

IfNotIsNumeric(Запрос(страница))OrIsEmpty(Запрос(страница))OrRequest(страница)<=0Then

Моя страница=1

Еще

MyPage=Int(Abs(Запрос(страница)))

Эндиф

setrs=server.CreateObject(ADODB.RecordSet)

rs.Source=select*fromNewsorderbyNewsIDdesc

rs.Openrs.Source,conn,3,1

IfNotrs.eofthen

rs.PageSize=MyPageSize

MaxPages=rs.PageCount

rs.absolutepage=Моя страница

итог = 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

конец

следующий

%>

</tr></таблица>

<таблица>

<тр>

<tdcolspan=2align=centerheight=30>Всего <%=total%> элементов, текущее количество <%=Mypage%>/<%=Maxpages%>

Страница

<%

URL = index.asp?

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

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

если страницанекстразмер> 1, то

PagePrev=PageShowSize*(PageNextSize-1)

Response.write<aclass=blackhref='&Url&page=&PagePrev&'title='Previous&PageShowSize&page'>Предыдущая страница</a>

Response.write<aclass=blackhref='&Url&page=1'title='Page 1'>Верх страницы</a>

конец

еслиМояСтраница-1>0тогда

Prev_Page=Моя страница-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='&Prev_Page&page'>Предыдущая страница</a>

конец

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=PageShowSize

Еще

PageSizeShow=Maxpages-PageShowSize*(PageNextSize-1)

Эндиф

IfPageSizeShow<1ThenPageSizeShow=1

forPageCounterSize=1toPageSizeShow

PageLink=(PageCounterSize+PageNextSize*PageShowSize)-PageShowSize

ifPageLink<>MyPageThen

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

еще

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

конец

IfPageLink=MaxPagesThenExitfor

Следующий