첫 번째는 레코드세트 생성입니다. 간단한 페이징 코드 복사 코드는 다음과 같습니다.
<%
rs=server.createobject(adodb.recordset) 설정
exce=sql 'SQL 쿼리문
rs.open exce,conn,1,1
%>
그런 다음 페이징 속성 설정이 있습니다.
<%
rs.PageSize=3 '페이지 번호 설정
pagecount=rs.PageCount '총 페이지 수를 가져옵니다
page=int(request(page)) '페이지 번호 수신
if page<=0 then page=1 '판사
요청(페이지)=이면 페이지=1인 경우
rs.AbsolutePage=page '이 페이지의 페이지 번호 설정
%>
마지막으로 본문의 페이징 표시
<%
rs.bof 및 rs.eof인 경우
응답.쓰기(NULL)
또 다른
i=1에서 rs.PageSize까지
response.write rs(이름)
응답.쓰기(<시간>)
rs.movenext
다음
종료하면
%>
<p>
<%page=1이고 page=pagecount가 아닌 경우%>
홈|이전 페이지
<a href=log1.asp?page=<%=page+1%>>다음 페이지</a>|
<a href=log1.asp?page=<%=pagecount%>>마지막 페이지</a>
<%elseif 페이지<>1이고 페이지가 아님=pagcount 다음%>
<a href=log1.asp?page=1>홈페이지</a>|
<a href=log1.asp?page=<%=page-1%>>이전 페이지</a>|
<a href=log1.asp?page=<%=page+1%>>다음 페이지</a>|
<a href=log1.asp?page=<%=pagecount%>>마지막 페이지</a>
<%elseif page=pagecount then%>
<a href=log1.asp?page=1>홈페이지</a>|
<a href=log1.asp?page=<%=page-1%>>이전 페이지</a>|
다음 페이지|
마지막 페이지
<%다음 경우 종료%>