제목 : (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
%>