'페이지함수'에 해당되는 글 1건

  1. 2010.03.24 asp - paging 함수 by 잠수콩

asp - paging 함수

플밍_ASP 2010.03.24 12:35



 Function GetPageList(ByVal CurPage, ByVal PageCount, ByVal PageScale, ByVal Parametter, ByVal DesignType)
  Dim Path, PrevPage, NextPage, LastPage, FirstPage, PageStr
  Dim FirstImg, NextImg, LastImg, PrevImg
  Dim FromPage, ToPage, i

  Select Case DesignType
  
   Case "Text"
    FirstImg = "◀◀"
    PrevImg = "◀"
    NextImg = "▶"
    LastImg = "▶▶"
   
   Case Else
    FirstImg = "<img src='/images/common/pgbtn_pprev.gif' align='absmiddle'>"
    PrevImg = "<img src='/images/common/pgbtn_prev.gif' align='absmiddle'>"
    NextImg = "<img src='/images/common/pgbtn_next.gif' align='absmiddle'>"
    LastImg = "<img src='/images/common/pgbtn_nnext.gif' align='absmiddle'>"
  End Select


  '링크 문자열
  Path = Request.ServerVariables("PATH_INFO") & "?Page="
  FromPage = Int((CurPage - 1) / PageScale) * PageScale + 1
  If PageCount > FromPage + (PageScale - 1) Then
   ToPage = FromPage + (PageScale - 1)
  Else
   ToPage = PageCount
  End If

  '첫페이지
  FirstPage = "<a href='" & Path & "1" & Parametter & "'>" _
   & FirstImg & "</a>"

  ' 이전 10개 표시
  If Int((CurPage - 1) / PageScale) > 0 Then
   PrevPage = "<a href='" & Path & (FromPage - 1) & Parametter & "'>" _
   & PrevImg & "</a>"
  Else
   PrevPage = PrevImg
  End If

  '페이지 네비게이션 표시
  For i = FromPage To ToPage
   If i = Int(CurPage) Then
    PageStr = PageStr & " <b>" & i & "</b> "
   Else
    PageStr = PageStr & " <a href='" & Path & i & Parametter & "'>" & i & "</a> "
   End If
  Next

  '다음 10개 표시
  If ToPage < PageCount Then
   NextPage = "<a href='" & Path & (ToPage + 1) & Parametter & "'>" _
    & NextImg & "</a>"
  Else
   NextPage = NextImg
  End If

  '마지막 페이지   
  LastPage = "<a href='" & Path & PageCount & Parametter & "'>" _
    & LastImg & "</a>"
    
  GetPageList = FirstPage & " " & PrevPage & " " & PageStr & " " & NextPage & " " & LastPage
 End Function

저작자 표시 비영리 변경 금지
신고

'플밍_ASP' 카테고리의 다른 글

ASP TimeOut Error(408 Error)  (0) 2010.04.01
sql - ADO Data Types  (0) 2010.03.25
asp - paging 함수  (0) 2010.03.24
asp - sql injection 방지 function  (0) 2010.03.24
ASP - SQL 페이징 처리 함수  (0) 2010.02.04
ASP - 윈도우2003 파일 업로드 게시판 구현시 수정사항  (0) 2009.07.01
Posted by 잠수콩