Dreamwerver에서 레코드 세트의 페이징 표시를 쉽게 구현할 수 있다는 것은 누구나 알고 있지만 생성된 코드가 실제로 매우 커서 웹 페이지의 표시 속도에 영향을 미치고 명확하지 않은 것 같습니다. 간단한 방법으로 달성한 기능은 어떻습니까? 물론 다음과 같은 간단한 코드를 사용하여 레코드 세트의 페이징 표시를 실현할 수 있습니다. 이제 모든 사람과 공유하겠습니다.
주요 코드는 다음과 같습니다:
<%
If rs1.recordcount>0 Then '레코드 세트가 비어 있지 않으면 레코드를 처리합니다. rs1.pagesize = 10 '각 페이지에 표시되는 레코드 수 설정 num=rs1.recordcount '총 레코드 수 pagenum=rs1.pagecount ' 총 페이지 수 page=request(" page") '페이지 번호의 원본 정보 가져오기' 페이지 번호의 원본 정보 처리 시작!
페이지가 ＜＞ ""인 경우
페이지 = cint(페이지)
err.number <> 0이면
오류가 발생했습니다.지우기
페이지=1
종료하면
페이지 < 1이면
페이지=1
종료하면
또 다른
페이지=1
다음과 같은 경우 종료
if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
페이지=1
종료하면
'페이지 번호 원본 정보 처리 끝! 현재 페이지 번호 설정 rs1.absolutepage = page
%>
<!--현재 페이지가 마지막 페이지인지 판단하고, 판단에 따라 기록의 반복 표시를 설정합니다-->
<% if page<>페이지 번호 then
lablenum=rs1.pagesize
또 다른
lablenum=num-(페이지-1)*rs1.pagesize
종료하면
i=1에서 labelnum까지
%>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><%=(rs1.Fields.Item("id").Value)%></div></td>
<td><div align="center"><%=(rs1.Fields.Item("name").Value)%></div></td>
<td><div align="center"><%=(rs1.Fields.Item("Address").Value)%></div></td>
<td><div align="center"><%=(rs1.Fields.Item("Category").Value)%></div></td>
<td><div align="center"><%=(rs1.Fields.Item("최종 수정").Value)%></div></td>
<td><div align="center"><%=(rs1.Fields.Item("Modifier").Value)%></div></td>
</tr>
<%
rs1.movenext
다음
%>
<!--현재 페이지의 레코드 표시가 종료되며, 다음 코드는 레코드 세트 페이징 링크 코드입니다-->
<테이블 너비="70%" border="0" align="center" cellpadding="0" cellpacing="0">
<tr>
<td 높이="35">
<div 정렬="오른쪽">
<글꼴 색상="#333333">
총 <%=num%>개의 링크가 있습니다|
<a href=linkadmin.asp?page=1>홈페이지</a> |
<%if page>1 then%><a href=linkadmin.asp?page=<%=page-1%>><%end if%>이전 페이지</a> |
<%if page<pagenum then%><a href=linkadmin.asp?page=<%=page+1%>><%end if%>다음 페이지</a> |
<a href=linkadmin.asp?page=<%=pagenum%>>마지막 페이지</a> |
페이지:<%=페이지%>/<%=페이지번호%>페이지 |
총 ＜%=pagenum%＞페이지</font>
</div>
</td>
</tr>
</테이블>
<!--레코드 세트 페이징 링크 코드가 종료되고, 레코드 세트가 비어 있을 때 다음 코드가 실행됩니다-->
<%다른%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="6"><div align="center"><% response.Write("표시할 결과가 없습니다!") %>
</div></td>
</tr>
<%
종료하면
rs1.닫기()
rs1 = 없음으로 설정
%>
좋습니다. 매우 간단합니다! 간단한 수정만 하면 웹페이지에 기록이 표시되는 위치에 삽입할 수 있습니다. 지금 시도해 보세요!