221.214.14.186/221.214.14.186.tar/221.214.14.186/zb/Notepad-zb/chkPage.inc

Text File | 2005-12-26 | 491b | 26 lines

<%
function getPageCount( pageCount, RecordCount, rcPerPage)
    pageCount=RecordCount/rcPerPage
    pageCount=int(pageCount)
    if (RecordCount mod rcPerPage)>0 then
        PageCount=PageCount +1
    end if
    if pageCount<1 then
        pageCount=1
    end if
    getPageCount=pageCount
end function

function getPage(page,pageCount)
    if page="" or not isNumeric(page) then
        page=1
    else
        page=int(page)
    end if
    if page>pageCount then
        page=pageCount
    end if
    getPage=page
end function

%>