페이징 작업 PageSize > 기술자료

• 목록

<%
rs.PageSize = 19
paging_size = rs.PageSize + 1

If request("page") = "" then
  page = 1
else
  page = request("page")
end If

If IsEmpty(page) = false then
' https://www.happyjung.com/bbs/board.php?bo_table=lecture&wr_id=1411
  If IsNumeric(page) = false then
    page = 1
  end If
end if

'rs.open 아래쪽에 위치 시킨다
rs.absolutepage = page

recordcnt = rs.RecordCount
totalpage = rs.pagecount
PageSize = rs.pagesize

'페이지 넘기는 부분
Sub paging()
  If PageSize = "" then
    paging_size = 10
  else
    paging_size = PageSize
  end If

  now_paging_set = Int((page-1) / paging_size) ' 현재 페이징 셋(0~end)
  end_paging_set = Int((totalpage-1) / paging_size)  '마지막 페이징 셋(0~end)
  set_first_pagenum = CInt(((now_paging_set) * paging_size) + 1)  '페이징셋의 첫번째 페이지 
'  response.write now_paging_set &"/"& end_paging_set &"/"& set_first_pagenum &"/"& paging_size &"/"& totalpage

  If trim(now_paging_set) <> 0 then  '첫 페이징 셋이 아닐때 
    response.write "<a href='free_list.asp?page="&(now_paging_set - 1) * paging_size + 1&"&StartDate="&StartDate&"&EndDate="&EndDate&"'>◀ </a>"   '이전페이징셋
  end If
  response.write " | "

  for i=0 to 10-1 step 1
    set_pagenum = set_first_pagenum + i
    If set_pagenum =< totalpage then '마지막 페이지 이후는 출력하지 않는다
      If set_pagenum = Int(page) Then '현재 페이지에 해당하는 페이지번호는 강조해준다.
        Response.Write "<font color='red'>"& set_pagenum &"</font>"
      else
        response.write "<a href='free_list.asp?page="& set_pagenum &"&StartDate="& StartDate &"&EndDate="& EndDate &"'>"& set_pagenum &"</a>"
      end If
      response.Write " | "
    end If
  next

  If now_paging_set <> end_paging_set then
    response.Write "<a href='free_list.asp?page=" & (now_paging_set + 1) * paging_size + 1 &"&StartDate="&StartDate&"&EndDate="&EndDate&"'> ▶</a>"
  end If
end sub
%>


참고자료
http://www.cyworld.com/loanel/2698456 
http://blog.naver.com/kikky22/140040666763  ( 페이징 성능 향상 기법 MSSQL 쿼리 )