▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda

페이징(paging) 처리 함수

ASP 조회 수 8252 추천 수 0 2005.05.27 21:53:21
뭉충닷컴 *.101.175.159
<%
'==========================================================================
'// 페이징 처리 함수
'
'@param     cp      : 현재 페이지 번호
'@param     t_cnt   : 전체 게시물 수(전체 레코드수)
'@param     ln      : 페이지에서 보여줄 리스트 수 *) 이 값은 rs.PageSize 와 같아야함
'@param     param   : 파라미터 조합
'
'@ex        Call ShowPageNavigation(3,1000,10,"&srchfield=&srchtxt=")
'           -> default.asp?CP=3&srchkubun=&srchval=
'           -> 1000개의 레코드를 보여질 목록 10개를 기준으로 페이징바 생성
'==========================================================================
Public Function ShowPageNavigation(cp, t_cnt, ln, param)
    Dim nPREV, nCUR, nNEXT, i, szPage, nFirst, nLast, tp
    Dim pageLoc
    Dim retVal
    
    tp = getTotalPageSize(t_cnt, ln)
    
    nFirst  = "" : nLast    = ""
    nPREV   = (int((cp-1)/10)-1)*10+1
    nCUR    = (int((cp-1)/10))*10+1
    nNEXT   = (int((cp-1)/10)+1)*10+1

    '------------------------------------------
    '// 이전 10개 처리 부분
    if nPREV > 0 then
        pageLoc = "?CP=" & nPREV & param
        szPage = "<a href=""" & pageLoc & """><font color=black><이전10개</font></a> <font color=#c2c2c2>|</font>"
    else
        szPage = "<이전10개 <font color=#c2c2c2>|</font>"
    end if
    
    '------------------------------------------
    '// 중간 부분 페이징
    i = 1
    Do While i < 11 and nCUR <= tp
        if CInt(cp) = CInt(nCUR) then
            szPage = szPage & " <font color=#F96711>"&nCUR&" </font><font color=#c2c2c2>|</font>"
        else
            pageLoc = "?CP=" & nCUR & param
            szPage = szPage & " <a href=""" & pageLoc & """><font color=black>"&nCUR&"</font></a> <font color=#c2c2c2>|</font>"
        end if
        nCUR = nCUR + 1
        i = i + 1
    Loop
    
    '------------------------------------------
    '// 다음 10개 처리 부분
    if nNEXT <= tp then
        pageLoc = "?CP=" & nNEXT & param
        szPage = szPage & " <a href=""" & pageLoc & """><font color=black>다음10개></font></a>"
    else
        szPage = szPage & " 다음10개>"
    end if
    if CInt(tp) = 0 then
        retVal = ""
    else
        retVal = nFirst&" "&szPage&" "&nLast
    end if

    ShowPageNavigation = retVal
End Function

'==========================================================================
'// 전체 페이지수 얻기 - 페이징 함수(ShowPageNavigation와 연동)
'
'@param     t_cnt : 전체 게시물 수(전체 레코드수)
'@param     ln : 페이지에서 보여줄 리스트 수
'==========================================================================
Function getTotalPageSize(t_cnt, ln)
    Dim ret
    t_cnt = CDbl(t_cnt)
    ret = fix(t_cnt/ln)
    if (t_cnt mod ln) > 0 then
        ret = ret + 1
    end if
    getTotalPageSize = ret
End Function
%>
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
191 ASP asp에서 XML 다루는 여러가지 예제 file 뭉충닷컴 2006-05-08 8097
190 ASP XMLHTTP에서 데이타를 POST 로 보내기 뭉충닷컴 2006-04-27 8344
189 VB HTML 파일을 MHTML (웹보관 파일)로 만들기 file [1] 뭉충닷컴 2006-04-24 8490
188 Script 선택 영역만 웹페이지 다른 이름으로 저장하는 스크립트 뭉충닷컴 2006-04-21 6539
187 Script IE ActiveX 패치에 따른 embed 프로그램 처리 스크립트 뭉충닷컴 2006-04-17 6210
186 Script showModalDialog (dialogArguments) 뭉충닷컴 2006-04-14 15025
185 Script 폼검증시 필수입력해줘야 하는항목들 미리 표시해주기 뭉충닷컴 2006-03-22 5524
184 Script 자바스크립트 함수의 인자를 다른 방법으로 이용하기 뭉충닷컴 2006-03-12 6517
183 Script 웹페이지의 원하는 부분만 인쇄 뭉충닷컴 2006-03-04 6024
182 ASP asp에서 class 사용에 관한 강좌 링크 뭉충닷컴 2006-02-25 8292
181 Script asp의 replace를 자바스크립트로 나타내기 뭉충닷컴 2006-02-20 6958
180 Script 자바스크립트 기초 문법및 내장객체 설명 2 뭉충닷컴 2006-02-15 6556
179 Script 자바스크립트 기초 문법및 내장객체 설명 뭉충닷컴 2006-02-15 8391
178 VB 레지스트리 읽고/쓰는 예제 file 뭉충닷컴 2006-02-10 6388
177 Script [미완성] asp파일 변수 생성해주기 file [1] 뭉충닷컴 2006-02-06 5464
176 Script TDC에 관한 좋은 Articles - 슬금슬금 읽어두면 괜찮을듯 뭉충닷컴 2006-01-27 5539
175 VB ChartFX 를 VB에서 배포하기 [1] 뭉충닷컴 2006-01-25 9799
174 VB 이벤트뷰어 오류를 자동으로 메일로 보내기 뭉충닷컴 2006-01-21 6921
173 ASP 레코드셋 읽어서 변수 자동 생성 뭉충닷컴 2006-01-14 8482
172 ASP COM+ 를 asp 에서 이용할때 몇가지 정보들 뭉충닷컴 2006-01-13 7944
171 ASP Request 값들을 한번에 확인할수 있는 함수 뭉충닷컴 2006-01-03 8365
170 ASP SQL Injection 취약점을 이용한 해킹 뭉충닷컴 2006-01-03 10107
169 ASP asp 페이징 테스트 자료 file [9] 뭉충닷컴 2006-01-02 13343
168 Script 자바스크립트로 트리구조 쉽게! file 뭉충닷컴 2005-12-30 8579
167 Script 몇개의 함수로 이미지에 팝업보기 간편하게 하기 [1] 뭉충닷컴 2005-12-26 5566
166 ASP 특정 폴더의 하위 폴더와 파일들 전부 보여주기 뭉충닷컴 2005-12-22 8218
165 VB VB로 익스플로워(브라우저)의 팝업창 띄우기 [2] 뭉충닷컴 2005-12-09 11407
164 HTML 스타일 태그로 문자열 길이 조정하기 뭉충닷컴 2005-12-04 7131
163 Script 선택된 텍스트 값 읽어오기 뭉충닷컴 2005-11-12 5488
162 VB 레지스트리 읽어오기 - 프로그램 설치여부 검사 file 뭉충닷컴 2005-11-02 10984
161 DataBase ASP 페이지에서 데이터베이스 연결 작성: 연결 문자열 예제 뭉충닷컴 2005-10-27 8205
160 DataBase 두개의 mdb의 테이블 연결할때 암호가 걸려있을 경우 뭉충닷컴 2005-10-09 8236
159 VB debug.print 를 텍스트 파일에 저장시키기 뭉충닷컴 2005-10-06 6850
158 VB 엑셀(Excel)과 엑서스(Access) mdb 파일 서로 연동하기 뭉충닷컴 2005-10-06 18915
157 ASP 알집을 이용해서 서버상 asp로 zip압축하기 file 뭉충닷컴 2005-09-21 8452
156 VB FSO 이용안하고 API만을 이용해 파일 다루기 뭉충닷컴 2005-09-01 6458
155 VB DB와 트리구조 연동하는 간단한 샘플 뭉충닷컴 2005-08-31 8067
154 ASP base64 인코드, 디코드 - asp용 (한글 지원) 뭉충닷컴 2005-08-26 11332
153 ASP 여러가지 ASP 관련 함수 모음 뭉충닷컴 2005-08-26 8592
152 HTML Form이 get/post 일때의 Request 최대 Byte수 [3] 뭉충닷컴 2005-08-26 6368
151 Script 자바스크립트로 이미지 파일 사이즈 알아내기 뭉충닷컴 2005-08-25 9484
150 VB 폼의 제목표시줄 높이 or 메뉴 높이 뭉충닷컴 2005-08-15 6448
149 VB 압축 예제, zip, unzip file 뭉충닷컴 2005-08-11 6855
148 Script 파일업로드시 직접입력 못하게 뭉충닷컴 2005-07-07 5498
147 기타 익스플로워(Explorer) 버젼별 실행파일 [1] 뭉충닷컴 2005-07-02 5756
146 Script 체크박스(Checkbox)에서 체크 안된값도 넘겨주는 함수 뭉충닷컴 2005-06-23 10878
145 Script select 박스의 option에 속성준값 받아오기 [1] 뭉충닷컴 2005-06-20 6083
144 DataBase 엑서스의 테이블 목록 보기 뭉충닷컴 2005-06-19 8292
143 ASP 진수 변환 시키기 뭉충닷컴 2005-06-19 8460
142 ASP IIS에서 asp를 실행 못하는 경우 뭉충닷컴 2005-06-17 8336
141 Script type="file" 의 value값 지우기 뭉충닷컴 2005-06-15 7969
140 ASP 그냥 공부용으로만 볼것! 해킹할때 쓰는 asp 파일 file [1] 뭉충닷컴 2005-06-10 9244
139 ASP DateSerial 를 이용해 원하는 날짜 구하기 - 마지막 날짜, 첫째 날짜 뭉충닷컴 2005-06-09 8636
138 Script TEXTAREA에 탭(Tab) 기능 넣기 뭉충닷컴 2005-06-09 6683
137 ASP 순수 asp로 만든 업로드 컴퍼넌트 - 한글됨 file [1] 뭉충닷컴 2005-06-07 9092
136 ASP Request 를 폼의 히든(hidden) 값으로 자동 생성해주기 뭉충닷컴 2005-06-05 8474
135 VB 정규표현식 사용하기 뭉충닷컴 2005-05-30 6370
134 VB VB 프로그램을 정규 DLL로 만드는 프로그램 - api처럼 dll 사용 file 뭉충닷컴 2005-05-30 10366
» ASP 페이징(paging) 처리 함수 file 뭉충닷컴 2005-05-27 8252
132 VB 외부 실행 파일 강제 종료 하기 뭉충닷컴 2005-05-21 7339