유용한 함수(페이징 함수)4
Posted by Albert 4932Day 21Hour 8Min 13Sec ago [2011-10-18]
'------------------------------------------------------------------------------
Sub sPageList(byVal iPage, byVal iTotalPage) 'PAGE LIST
'------------------------------------------------------------------------------
Dim iTempPage, iTempCnt, vPageStr,k
vPageStr = ""
iTempPage = 1+int((11-1)/10)*10
echo iPage
iTempCnt = 0
If iTotalPage > 1 Then
vPageStr = vPageStr & "<a href=""javascript:goList('1');"" class='first'><img src='/images/common/btn/btn_first.gif' alt='처음'></a>"
Else
vPageStr = vPageStr & "<a href=''' class='first'><img src='/images/common/btn/btn_first.gif' alt='처음'></a>"
End If
k = 0
Do Until iTempPage > iTotalPage
' echo k
If iTempPage>10 AND iTempCnt=0 Then
vPageStr = vPageStr & "<a style='cursor:pointer;' class='prev' OnClick=""javascript:goList('" & iTempPage-1 & "');"" title='"&iTempPage-1&"'>" & "<img src='/images/common/btn/btn_prev.gif' alt='이전'>" &"</a>" & vbCrLf
iTempCnt=1
Else
vPageStr = vPageStr & "<a style='cursor:pointer;' class='prev' href=''' title='"&iTempPage-1&"'>" & "<img src='/images/common/btn/btn_prev.gif' alt='이전'>" &"</a>" & vbCrLf
iTempCnt=1
End if
If iTempPage=Cint(iPage) Then
vPageStr = vPageStr & "<strong>" & iTempPage & "</strong>" & vbCrLf
Else
vPageStr = vPageStr & "<a style='cursor:pointer;' OnClick=""javascript:goList('" & iTempPage & "');"">[" & iTempPage & "]</a> " & vbCrLf
End If
If(iTempPage Mod 10)=0 And iTempPage+1 <iTotalPage Then
vPageStr = vPageStr & "<a style=""cursor:pointer;"" OnClick=""javascript:goList('" & iTempPage+1 & "');"" title='"&iTempPage+1&"' class='next'>" & "<img src='/images/common/btn/btn_next.gif' alt='다음'>"&"</a> " & vbCrLf
iTempPage = iTotalPage
Else
vPageStr = vPageStr & "<a href=''' title='다음' class='next'>" & "<img src='/images/common/btn/btn_next.gif' alt='다음'>"&"</a> " & vbCrLf
iTempPage = iTotalPage
End If
k = k + 1
iTempPage = iTempPage + 1
Loop
If iTotalPage > 1 Then
vPageStr = vPageStr & "<a href=""javascript:goList('"&iTotalPage&"');"" class='last' ><img src='/images/common/btn/btn_last.gif' alt='마지막'></a> "
Else
vPageStr = vPageStr & "<a href=''' class='last' ><img src='/images/common/btn/btn_last.gif' alt='마지막'></a> "
End If
If iTotalPage <> 0 Then
Response.Write vPageStr
End If
End Sub
'------------------------------------------------------------------------------
Sub uPageList(byVal iPage, byVal iTotalPage) 'PAGE LIST
'------------------------------------------------------------------------------
Dim iTempPage, iTempCnt, vPageStr,ppage,npage
vPageStr = ""
ppage = int(iPage) - 1
npage = int(iPage) + 1
iTempPage = 1+int((iPage-1)/10)*10
iTempCnt = 0
ppage = getif(ppage <= 0 , 1, ppage)
npage = getif(npage >= Cint(iTotalPage) , iTotalPage, npage)
If iTotalPage > 1 Then
vPageStr = vPageStr & "<a href=""javascript:goList('1');"" class='first'><img src='/images/common/btn/btn_first.gif' alt='처음'></a>"
Else
vPageStr = vPageStr & "<a href=''' class='first'><img src='/images/common/btn/btn_first.gif' alt='처음'></a>"
End If
If Cint(iPage)>10 Then
vPageStr = vPageStr & "<a style='cursor:pointer;' class='prev' OnClick=""javascript:goList('" & ppage & "');"" title='이전'>" & "<img src='/images/common/btn/btn_prev.gif' alt='이전'>" &"</a>" & vbCrLf
Else
vPageStr = vPageStr & "<a style='cursor:pointer;' class='prev' href=''' title='이전'>" & "<img src='/images/common/btn/btn_prev.gif' alt='이전'>" &"</a>" & vbCrLf
End If
Do Until iTempPage > iTotalPage
iTempCnt=1
If iTempPage=Cint(iPage) Then
vPageStr = vPageStr & "<strong>" & iTempPage & "</strong>" & vbCrLf
Else
vPageStr = vPageStr & "<a style='cursor:pointer;' OnClick=""javascript:goList('" & iTempPage & "');"">" & iTempPage & "</a> " & vbCrLf
End If
iTempPage = iTempPage + 1
Loop
vPageStr = vPageStr & "<a href=""javascript:goList('"&npage&"');"" title='다음' class='next'>" & "<img src='/images/common/btn/btn_next.gif' alt='다음'>"&"</a> " & vbCrLf
If iTotalPage > 1 Then
vPageStr = vPageStr & "<a href=""javascript:goList('"&iTotalPage&"');"" class='last' ><img src='/images/common/btn/btn_last.gif' alt='마지막'></a> "
Else
vPageStr = vPageStr & "<a href=''' class='last' ><img src='/images/common/btn/btn_last.gif' alt='마지막'></a> "
End If
If iTotalPage <> 0 Then
Response.Write vPageStr
End If
End Sub