<%
'***********************************
' 프로그램명 : 페이징 클래스
' 제작 일자 : 2003.12.26
' 제작자 : 이상호(search_go@yahoo.co.kr)
' License : GPL(Gnu's Public License)
' 제작자 당부 : 본 페이징 클래스는 PHP 클래스에서 페이징
' 함수만을 빼서, ASP로 포팅했으며, 이에 대한 책임은 지지
' 않습니다.
%>
<%
Class Lib
'***** Property Define
Private strEndPage
Private strPage
Private strNumOfBlock
Private strQueryString
'**************
'***** 초기화 및 종료
Private Sub Class_Initialize()
' 페이지 초기화
If Request("page") = "" Then
strPage = CInt(1)
Else
strPage = CInt(Request("page"))
End If
End Sub
'**************
'***** Let Property Define
Public Property Let EndPage(str)
strEndPage = str
End Property
Public Property Let NumOfBlock(str)
strNumOfBlock = str
End Property
Public Property Let QueryString(str)
strQueryString = str
End Property
'**************
'***** Method Define
Public Function PageLink()
'이전 페이지가 존재할 경우
If strPage > 1 Then
Dim PrevLink
PrevLink = strPage - 1
Response.Write "pre "
End If
'다음 페이지가 존재할 경우
If strPage < strEndPage Then
Dim NextLink
NextLink = strPage + 1
Response.Write "next "
End If
'페이지 링크의 가운데 정렬을 위한 기준값 결정
Dim PageBase
PageBase = CInt(strNumOfBlock/2)
'이전 페이지 블록 결정
If PageBase < strPage+1 Then
Dim PrevBlockNo
PrevBlockNo = strPage - strNumOfBlock
If PrevBlockNo < 0 Then
PrevBlockNo = 1
End If
Response.Write "[Prev "&strNumOfBlock&"]"
Response.Write "[First].."
Else
Response.Write "[Prev "&strNumOfBlock&"]"
Response.Write "[First].."
End If
Dim Start
Start = 0
'페이지 링크 출력값 결정
Dim i
For i = 1 to strNumOfBlock
If PageBase < strPage+1 Then
Start = strPage - (PageBase)
End If
Dim RealPage
RealPage = Start + i
If strPage = RealPage-1 Then
Response.Write "["&RealPage&"]"
Elseif RealPage >= strEndPage Then
Exit For
Else
Response.Write "["&RealPage&"]"
End If
Next
'다음 페이지 블록 결정
If RealPage < strEndPage Then
Dim NextBlockNo
NextBlockNo = strPage+strNumOfBlock
If NextBlockNo > strEndPage Then
NextBlockNo = strEndPage
End If
Response.Write "..[Last]"
Response.Write "[Next "&strNumOfBlock&"]"
Else
Response.Write "..[Last]"
Response.Write "[Next "&strNumOfBlock&"]"
End If
End Function
'**************
End Class
%>