asp分页的一个类(3)


        else
            response.write  firstPageTag
            response.write  previewPageTag
        end if
        response.write " "
        dim CurrentStartPage,i
        i = 1
        CurrentStartPage=(Cint(MyPage_PageAbsolute)\10)*10+1
        if Cint(MyPage_PageAbsolute) mod 10=0 then
            CurrentStartPage = CurrentStartPage - 10
        end if
        while i<11 and CurrentStartPage<MyPage_PageTotal+1
            if CurrentStartPage < 10 then
                FormatCurrentStartPage = "0" & CurrentStartPage
            else
                FormatCurrentStartPage = CurrentStartPage
            end if
            response.write  "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&CurrentStartPage&"'>"&FormatCurrentStartPage&"</a> "
            i = i + 1
            CurrentStartPage = CurrentStartPage + 1
        wend
        if MyPage_PageAbsolute<(MyPage_PageTotal-10) then
            response.write  "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&(MyPage_PageAbsolute+10)&"'>"&nextPageTag&"</a>"
            response.write  "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&MyPage_PageTotal&"'>"&LastPageTag&"</a>"
        else
            response.write  nextPageTag
            response.write  LastPageTag

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3051.html