asp 페이징 문제, 마지막 페이지가 멈췄습니다.

작은 예를 들어보세요

lt;

'데이터베이스에 연결

'SQL을 실행하고 원하는 SQL을 변경하세요

set rs=server.CreateObject("adodb.recordset")gt;

rs.open "id desc별 뉴스 순서에서 * 선택 ", conn, 1 , 3

아래 코드를 복사할 수 있습니다

'Paging

i=50

rs.pagesize=i

pu =request("pu")

만약 pu=""이면 pu=1

만약 cint(pu)lt;="0"이면 pu=1

cint(pu)gt; rs.pagecount이면 pu=rs.pagecount

rs.eof가 아니면 rs.absolutepage=cint(pu)

'기록 표시

rs.eof가 아닌 경우

rs.eof 및 i=gt가 아닌 동안 수행;1

response.write rs("field" )'표시 필드

'여기에서 원하는 내용을 변경하면 다른 곳에 복사할 수 있습니다.

rs.movenext

i=i-1

루프

끝

gt;

현재 lt;=pugt 페이지; .pagecountgt; 페이지 ;

*** lt;=rs.recordcountgt; 각 페이지lt;=igt;records; " ?pu=1"gt;홈 페이지lt;/agt;

lt;a href="?pu=lt;=cint(PU)-1gt;"gt;이전 페이지lt;/agt; /p>

lt;a href="?pu=lt;=cint(PU) 1gt;"gt;다음 페이지lt;/agt

lt;a href="? pu=lt ;=rs.pagecountgt;"gt;마지막 페이지lt;/agt;