좋은 페이지 넘김 효과 code_ASP 튜토리얼에 대한 간략한 분석

<%PageShowSize=5'페이지당 몇 개의 페이지가 표시됩니까?

MyPageSize=10'각 페이지에 몇 개의 기사가 표시됩니까?

IfNotIsNumeric(요청(페이지))OrIsEmpty(요청(페이지))OrRequest(페이지)<=0Then

마이페이지=1

또 다른

MyPage=Int(Abs(요청(페이지)))

엔디프

setrs=server.CreateObject(ADODB.RecordSet)

rs.Source=선택*fromNewsorderbyNewsIDdesc

rs.Openrs.소스,콘,3,1

IfNotrs.eofthen

rs.PageSize=내페이지크기

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.이동다음

엔디프

다음

%>

</tr></table>

<테이블>

<tr>

<tdcolspan=2align=centerheight=30>총 <%=total%> 항목, 현재 개수 <%=Mypage%>/<%=Maxpages%>

페이지

<%

URL=index.asp?

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

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

ifPageNextSize>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>

엔디프

ifMyPage-1>0그러면

Prev_Page=내페이지-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='&Prev_Page&page'>이전 페이지</a>

엔디프

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=페이지쇼크기

또 다른

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>

또 다른

응답.쓰기<B>[&PageLink&]</B>

엔디프

IfPageLink=MaxPagesThenExitfor

다음