일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 | 31 |
- update
- 인젝션
- ERD
- VarType
- 정규식
- instr
- jdbc driver
- asp함수
- SPLIT
- JavaScript
- XML
- 자바기초
- javascript 한글입력체크
- injection
- xmldom
- join
- MSSQL보안
- sql순위
- WML
- sql업데이트
- tempDB
- VARIABLE
- array
- 이미지가로길이
- FileSystemObject
- 이미지세로길이
- sql랭킹
- wap
- 한글입력체크
- inner join
- Today
- Total
3초기억력
asp - paging 함수 본문
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 - sql injection 방지 function (0) | 2010.03.24 |
ASP - SQL 페이징 처리 함수 (0) | 2010.02.04 |
ASP - 윈도우2003 파일 업로드 게시판 구현시 수정사항 (0) | 2009.07.01 |