열에 레코드 집합을 표시하고 페이징을 구현하는 테이블 데모

저자：Eve Cole 업데이트 시간：2009-06-24 17:04:30

<%
'데이터베이스를 엽니다
conn = Server.CreateObject("ADODB.Connection") 설정
strconn="드라이버={sql 서버};서버=localhost;데이터베이스=northwind;uid=sa;pwd=sa;"
conn.strconn 열기
'이 페이지의 주소를 알아보세요
희미한 파일 이름, 위치
fileName = Request.ServerVariables("script_name")
위치 = InstrRev(파일 이름,"/")+1
fileName = Mid(파일명,포지션)
' www.downcodes.com 레코드 세트 열기
rs=server.CreateObject("adodb.recordset")를 설정합니다.
rs.open "직원 ID 설명에 따라 직원 순서에서 titleofcourtesy,firstname,photopath 선택",conn,1,1
%>

<테이블 너비="90%" height="300" border="0" align="center">
<%
그렇지 않은 경우(rs.bof 및 rs.eof)
페이지=4
rs.pagesize=페이지
isempty(Request.QueryString("page"))가 아니면
thispage=clng(Request.QueryString("페이지"))
또 다른
이 페이지=1
종료하면
rscount=rs.recordcount
thispage=""이면 thispage=1입니다.
thispage<1이면 thispage=1인 경우
if (thispage-1)*pages>rscount then
(rscount mod 페이지)=0이면
이 페이지=rscount페이지
또 다른
이 페이지=rscountpages+1
종료하면
종료하면
if(rscount mod 페이지)=0이면
모든페이지=rscount페이지
또 다른
모든페이지=rscount페이지+1
종료하면
rs.absolutepage=이 페이지
나는=1
%>
<tr>
<%do rs.eof 및 페이지가 아닌 동안>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" width="100" height="100" border="0"></a><br>
<%=rs("titleofcourtesy")&rs("이름")%> </td>
<%
'열 분할은 주로 다음과 같은 판단으로 수행됩니다. 이 예에서는 한 줄에 두 개의 열이 표시됩니다.
(i mod 2) =0이면 그때
%>
</tr><tr>
<%다음 경우 종료%>
<%
페이지 = 페이지 - 1
rs.movenext
나=나+1
고리
종료하면
%>

</table>


<테이블 너비="90%" 테두리="0" 정렬="중앙">
<tr>
<td> <가운데>
총 <%=allpages%> 페이지 현재 페이지 <%= thispage %> 
<% if thispage<>1 then %>
<a href="<%=filename&"?page=1"%>">홈페이지</a> <a href="<%=filename&"?page="&(thispage-1)%>">이전 페이지 </a>
<% 종료 조건 %>
<% if thispage<>allpages then %>
<a href="<%=filename&"?page="&(thispage+1)%>">다음 페이지</a> <a href="<%=filename&"?page="&allpages&""%>" >마지막 페이지</a>
<% 종료 조건 %>
</center></td>
</tr>
</table>