제목 : (3)출력 리스트(BoardList.asp)에 사용되는 고급 페이징 함수
<%
Sub AdvancedPaging(PageNo, NumPage)'PageNo:현재페이지, NumPage:전체페이지
%>
<!--이전 10개, 다음 10개 페이징 처리 시작-->
<FONT style="font-size: 9pt;">
<font color="#c0c0c0">[</font>
<% If PageNo > 10 Then %>
<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=<%= ((PageNo - 1) \ 10) * 10 %>">◀</a>
<% Else %>
<font color="#c0c0c0">◁</font>
<% End If %>
<font color="#c0c0c0">|</font>
<% For i = (((PageNo - 1) \ 10) * 10 + 1) To ((((PageNo - 1) \ 10) + 1) * 10)
If i > NumPage Then
Exit For
End If
If i = Int(PageNo) Then
%>
<b><%= i %></b> <font color="#c0c0c0">|</font>
<% Else %>
<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=<%= i %>"><%= i %></a> <font color="#c0c0c0">|</font>
<% End If %>
<% Next %>
<% If CInt(i) < CInt(NumPage) Then %>
<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=<%= ((PageNo - 1) \ 10) * 10 + 11 %>">▶</a>
<% Else %>
<font color="#c0c0c0">▷</font>
<% End If %>
<font color="#c0c0c0">]</font>
</FONT>
<!--이전 10개, 다음 10개 페이징 처리 종료-->
<%
End Sub
%>