[ClassASP] 페이징(페이지 목록/리스트) > 온라인강의

본문 바로가기
 
 
 
오늘 1,202
어제 1,202
최대 2,526
전체 3,621,181

최근 방문자

1929
2036
1954
1859
1202
1202
14 15 16 17 18 19
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

select * from g5_menu where me_use = '1' and me_link like '%lecture%'
온라인강좌 홈 > 온라인강좌 > 온라인강좌

Oracle | [ClassASP] 페이징(페이지 목록/리스트)

페이지 정보

작성일2013-12-25 23:39 조회13,147회 댓글0건

본문

1. list.asp 내용

<!--#include virtual="function.asp"-->
<html>
<head>
</head>

<body>
<%
intTCnt = 0          ' 전체 게시물수
intPageCnt = 0    ' 전체 페이지수
intPageSize = 20    ' 한번에 보여줄 게시물수
intPageView = 10    ' 한번에 보여줄 페이지수

intPage = request("page")
If intPage = "" Then
  intPage = 1
End If

strURL = "?idx=" & idx

SQL = " select count(*) as totCnt from aaa a INNER JOIN bbb b ON a.aIDX=b.IDX  "
SQL = SQL & " Where a.aIDX = b.IDX and a.aIDX = " & idx

Set oRs = Conn.Execute(SQL)
intTCnt = CDbl(oRs("totCnt"))

oRs.close
'response.write intTCnt
'response.write strSql

If intTCnt > 0 Then
  If (intTCnt Mod intPageSize) = 0 Then
    intPageCnt = Int(intTCnt / intPageSize)
  Else
    intPageCnt = Int(intTCnt / intPageSize) + 1
  End If
End If


startRow = (intPage - 1) * intPageSize + 1
endRow = startRow + intPageSize - 1

SQL = " SELECT * FROM "
SQL = SQL & " (select / *+index_desc(a aaa_PK)* / rownum rnum "
' order by 정렬 필요없을때
'SQL = SQL & " , a.*, b.bname from aaa a INNER JOIN bbb b ON a.aIDX=b.IDX "
' order by 정렬 필요할때
SQL = SQL & " , a.*, b.bname from  "
SQL = SQL & " (select * from aaa order by send_date desc) a "
SQL = SQL & "  INNER JOIN bbb b ON a.aIDX=b.IDX "
' order by 정렬 끝
SQL = SQL & " Where a.aIDX = b.IDX and a.aIDX = " & idx
SQL = SQL & " and rownum<=" &endRow& ") "
SQL = SQL & " where rnum>= " & startRow
'response.write SQL

Set Rs = Conn.Execute(SQL)

If rs.bof And rs.eof Then
  response.write ""
Else
  cnt  = 0
  Do Until rs.eof
            cnt = cnt + 1
%>

반복내용

<%
  rs.movenext
  Loop
end if
%>


<%
' 페이징 호출
Call PageList(intPage, intPageCnt, intPageView, strURL)
%>
</body>
</html>


2. function.asp  내용

<%
' Paging Function 시작
Sub PageList(Page, PageCnt, PageNum, p_URL)

  Dim s_Page
  Dim iCnt, jCnt
  Page       = CInt(Page)
  PageCnt  = CInt(PageCnt)
  PageNum = CInt(PageNum)

  If Page Mod PageNum = 0 Then
    s_Page = int(Page / PageNum) - 1
  Else
    s_Page = int(Page / PageNum)
  End If


  If PageCnt > 0 Then

    If Page > 1 Then
      Response.Write "<a href='" & p_URL & "&page=1'><img src=""/img/icon_first.gif"" border=""0"" align=""absmiddle"" /></a>"
    Else
      Response.Write "<img src=""/img/icon_first.gif"" border=""0"" align=""absmiddle"" />"
    End If

    response.write "&nbsp; "

    If s_Page >= 1 Then
      Response.Write "<a href='" & p_URL & "&page=" & ((s_Page - 1) * PageNum) + 1 & "'><img src=""/img/icon_prev.gif"" hspace=""3"" border=""0"" align=""absmiddle"" /></a>"
    Else
      Response.Write "<img src=""/img/icon_prev.gif"" hspace=""3"" border=""0"" align=""absmiddle"" />"
    End If

    response.write "&nbsp; "

    iCnt = s_Page * PageNum + 1
    jCnt = 1

    For jCnt = iCnt To (iCnt + PageNum) - 1
      If CStr(jCnt) = CStr(Page) Then
        Response.Write "<b>" & jCnt & "</b>"
      Else
        Response.Write "<a href='" & p_URL & "&page=" & jCnt & "'>" & jCnt & "</a>"
      End If

      If jCnt = PageCnt Or jCnt = (iCnt + PageNum) - 1 Then
        Exit For
      Else
        Response.Write " | "
      End If
    Next

    response.write "&nbsp;"


    If ((s_Page + 1 ) * PageNum) < PageCnt Then
      Response.Write "<a href='" & p_URL & "&page=" & ((s_Page + 1) * PageNum) + 1 & "'><img src=""/img/icon_next.gif"" hspace=""3"" border=""0"" align=""absmiddle"" /></a>"
    Else
      Response.Write "<img src=""/img/icon_next.gif"" hspace=""3"" border=""0"" align=""absmiddle"" />"
    End If

    response.write "&nbsp; "

    If Page < PageCnt Then
      Response.Write "<a href='" & p_URL & "&page=" & PageCnt & "'><img src=""/img/icon_last.gif"" border=""0"" align=""absmiddle"" /></a>"
    Else
      Response.Write "<img src=""/img/icon_last.gif"" border=""0"" align=""absmiddle"" />"
    End If
  Else
    Response.Write "&nbsp;"
  End If

End Sub
' Paging Function 끝

%>


참고자료
http://blog.naver.com/myheredity/130073111279
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


목록

Total 2,122건 1 페이지
온라인강의 목록
번호 제목
2122
2121
2120
2119
2118
2117
2116
2115
2114
2113
2112
2111
2110
2109
MySQL Not Acceptable (up.2017-11-02 17:42) Hit.237
2108
2107
2106
2105
2104
2103
2102
2101
2100
2099
2098
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호:119-05-36414 (08394) 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
전화: 070-7600-3500 팩스:02-865-3528 개인정보관리:정창용 mail@happyjung.com 에스크로확인
개인정보취급방침
COPYRIGHT 2001~2017 해피정닷컴. All rights reserved. 통신판매신고:2014-서울구로-0074
 
모바일 버전으로 보기