ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : (3)출력 리스트(BoardList.asp) 기능 추가 : 페이징 처리(기본/고급)
글번호: 188
작성자: 레드플러스
작성일: 2004/04/27 오후 11:10:00
조회수: 7450
파일: boardlist(1).asp (2 KB) / 전송수: 1848
<%
'--------------------------------------------------
' Title : Basic 보드
' Program Name : boardlist.asp
' Program Description : 글 리스트 페이지
' Include Files : None
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
'[1] 변수 선언
'Option Explicit
Dim objCon: Dim objRs: Dim strSql
Dim Page: Page = 1'//
If Request("Page") <> "" Then
    Page = Request("Page")'넘겨져온 페이지 값이 담긴다.
End If
Dim PageCount'//총 페이지 수 저장
'[2] 인스턴스 생성
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] 오픈
objCon.Open(Application("CONNECTION_STRING"))
'[4] 레코드셋 객체의 인스턴스 생성
Set objRs = Server.CreateObject("ADODB.RecordSet")
'[5] 명령어 실행
strSql = "Select * From Basic Order By Num Desc"
objRs.PageSize = 5'//페이지 사이즈 결정
objRs.Open strSql, objCon, 1'//1 또는 3으로 지정
'[6] 출력
If objRs.BOF Or objRs.EOF Then
    Response.Write("데이터가 없습니다.")
Else
    PageCount = objRs.PageCount'//총 페이지 값 저장
    objRs.AbsolutePage = Page'//
    Call ShowRecordSet(objRs)
End If
'[7] Close()
objRs.Close(): objCon.Close()
'[8] Nothing
Set objRs = Nothing: Set objCon = Nothing
%>
<%
Sub ShowRecordSet(objRs)
%>

    <center><h3>기본 게시판 리스트</h3></center>

    <table border=1 width="100%">
    <tr>
        <TD>번호</TD>
        <TD>제목</TD>
        <TD>작성자</TD>
        <TD>작성일</TD>
        <TD>조회수</TD>
    </tr>
<%
    Dim i: i = 1'//페이지 사이즈 카운트. 초기식
    Do Until objRs.EOF Or i > objRs.PageSize'//조건식
%>
    <TR onmouseover="this.style.backgroundColor='yellow';" onmouseout="this.style.backgroundColor='';">
        <TD><%=objRs("Num")%></TD>
        <TD><a href="./boardview.asp?Num=<%=objRs("Num")%>"><%=objRs("Title")%></a></TD>
        <TD><%=objRs("Name")%></TD>
        <TD><%=objRs("PostDate")%></TD>
        <TD><%=objRs("ReadCount")%></TD>
    </TR>
<%
        objRs.MoveNext()
        i = i + 1'//증감식
    Loop
%>
    <table>
<%
End Sub
%>
<form action="" method="get">
페이지 이동 : <input type="text" name="Page" size=3>
<input type="submit" value="이동">
</form>
<form action="./boardsearchlist.asp" method="post">

검색어 : <input type="text" name="SearchQuery">

<select name="SearchField">
    <option value="Title">제목</option>
    <option value="Name">이름</option>
    <option value="Content">내용</option>
</select>

<input type="submit" value="검색">

</form>

<br>

<a href="./boardwrite.asp">글쓰기</a>



<hr>

<%
If Page > 1 Then
%>
    <a href="./boardlist.asp?Page=<%=Page-1%>">
    [이전]
    </a>
<%
Else
%>
    <a href="#" style="color:silver;">
    [이전]
    </a>
<%
End If
Response.Write("[" & Page & "/" & PageCount & "]")
If CInt(Page) < CInt(PageCount) Then
%>
    <a href="./boardlist.asp?Page=<%=Page+1%>">
    [다음]
    </a>
<%
Else
%>
    <a href="#" style="color:silver;">
    [다음]
    </a>
<%
End If
%>

<hr>

<!-- #include file="./boardfunction.asp" -->
<%
Call AdvancedPaging(Page, PageCount)
%>

 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 21. 파일 업로드 연습 - 관리자 2002-03-21 7257
  20. 기본형 게시판 작성 프로젝트 - 관리자 2001-07-08 7446
  1. 기본형 게시판 테이블 설계(Basic.sql) (1) Basic.sql(2 KB) 레드플러스 2004-04-20 5557
  2. 입력 페이지 설계 - 레드플러스 2004-04-22 5350
  (1)입력 폼(BoardWrite.asp) boardwrite.asp(861 Byte(s)) 레드플러스 2004-04-22 6185
  (2)입력 처리(BoardWriteProcess.asp) boardwriteprocess.asp(1 KB) 레드플러스 2004-04-22 5292
  입력 처리(BoardWriteProcess.asp) 기능 추가 : 태그/작은따옴표 등... boardwriteprocess(1).asp(2 KB) 레드플러스 2004-04-22 7150
  3. 출력 페이지 설계 - 레드플러스 2004-04-22 5204
  (3)출력 리스트(BoardList.asp) boardlist.asp(1 KB) 레드플러스 2004-04-22 5605
  페이징 연습 페이징.asp(966 Byte(s)) 레드플러스 2004-04-22 5188
현재글 (3)출력 리스트(BoardList.asp) 기능 추가 : 페이징 처리(기본/고급) boardlist(1).asp(2 KB) 레드플러스 2004-04-27 7450
  (3)출력 리스트(BoardList.asp)에 사용되는 고급 페이징 함수 boardfunction.asp(1 KB) 레드플러스 2004-04-27 5587
  4. 세부 출력 페이지 설계 - 레드플러스 2004-04-22 5344
  (4)세부 출력 페이지(BoardView.asp) boardview.asp(1 KB) 레드플러스 2004-04-22 5598
  세부 출력 페이지(BoardView.asp) 기능 추가 : 조회수 증가 boardview(1).asp(1 KB) 레드플러스 2004-04-27 8082
  5. 수정 페이지 설계 - 레드플러스 2004-04-22 5045
  (5)수정 폼 페이지(BoardModify.asp) boardmodify.asp(1 KB) 레드플러스 2004-04-22 5365
  (6)수정 처리 페이지(BoardModifyProcess.asp) boardmodifyprocess.asp(1 KB) 레드플러스 2004-04-22 5415
  6. 삭제 페이지 설계 - 레드플러스 2004-04-22 4986
  (7)삭제 폼 페이지(BoardDelete.asp) boarddelete.asp(774 Byte(s)) 레드플러스 2004-04-22 5210
  (8)삭제 처리 페이지(BoardDeleteProcess.asp) boarddeleteprocess.asp(1 KB) 레드플러스 2004-04-22 5117
  7. 검색 페이지 설계 - 레드플러스 2004-04-22 5103
  (9)검색 페이지(BoardSearchList.asp) boardsearchlist.asp(1 KB) 레드플러스 2004-04-22 5380
다음글 19. FSO(File System Object) : 파일(File) 처리 - 관리자 2001-03-03 9752
 
손님 사용자 Anonymous (손님)
로그인 Home