zoukankan      html  css  js  c++  java
  • ASP.NET 的一個vb.net的分頁Function

       Public Sub Pagination2(ByVal PageCount As Integer, Optional ByVal UrlStr As String = "")
            Dim WzPage, PageNum As Integer
            If UrlStr = "" Then
                If Len(Request("Page")) <> 0 Then
                    WzPage = CLng(Request("Page"))
                Else
                    WzPage = 1
                End If

                If WzPage <= 0 Then WzPage = 1

                PageNum = (WzPage \ 10) * 10 + 1

                If WzPage Mod 10 = 0 Then PageNum = (WzPage \ 10) * 10 - 9
                Response.Write("<font face=""Webdings"">")
                Response.Write("<a href=""?Page=1"" title=""首頁"">9</a>")
                Response.Write("<a href=""?Page=" & PageNum - 1 & """ title=""前十頁"">7</a>")
                Response.Write("</font><font face=""Arial"">")
                For PageNum = PageNum To PageNum + 9
                    If PageNum = WzPage Then
                        Response.Write("<b>")
                        Response.Write(" [" & PageNum & "] ")
                        Response.Write("</b>")
                    Else
                        Response.Write(" <a href=""?Page=" & PageNum & """>")
                        Response.Write("" & PageNum & "")
                        Response.Write("</a> ")
                    End If
                    If PageNum >= PageCount Then Exit For
                Next
                Response.Write("</font><font face=""Webdings"">")
                Response.Write("<a href=""?Page=" & PageNum & """  title=""後十頁"">8</a>")
                Response.Write("<a href=""?Page=" & PageCount & """  title=""尾頁"">:</a>")
                Response.Write("</font>")
            Else
                If Len(Request("Page")) <> 0 Then
                    WzPage = CLng(Request("Page"))
                Else
                    WzPage = 1
                End If

                If WzPage <= 0 Then WzPage = 1

                PageNum = (WzPage \ 10) * 10 + 1

                If WzPage Mod 10 = 0 Then PageNum = (WzPage \ 10) * 10 - 9
                Response.Write("<font face=""Webdings"">")
                Response.Write("<a href=""?" & UrlStr & "&Page=1"" title=""首頁"">9</a>")
                Response.Write("<a href=""?" & UrlStr & "&Page=" & PageNum - 1 & """ title=""前十頁"">7</a>")
                Response.Write("</font><font face=""Arial"">")
                For PageNum = PageNum To PageNum + 9
                    If PageNum = WzPage Then
                        Response.Write("<b>")
                        Response.Write(" [" & PageNum & "] ")
                        Response.Write("</b>")
                    Else
                        Response.Write(" <a href=""?" & UrlStr & "&Page=" & PageNum & """>")
                        Response.Write("" & PageNum & "")
                        Response.Write("</a> ")
                    End If
                    If PageNum >= PageCount Then Exit For
                Next
                Response.Write("</font><font face=""Webdings"">")
                Response.Write("<a href=""?" & UrlStr & "&Page=" & PageNum & """  title=""後十頁"">8</a>")
                Response.Write("<a href=""?" & UrlStr & "&Page=" & PageCount & """  title=""尾頁"">:</a>")
                Response.Write("</font>")
            End If
        End Sub

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    BZOJ1877: [SDOI2009]晨跑
    SPFA的两个优化:SLF与LLL
    BZOJ1858: [Scoi2010]序列操作
    java线程基础巩固---如何捕获线程运行期间的异常
    java线程基础巩固---如何给你的应用程序注入钩子程序
    类的命名空间与卸载详解及jvisualvm使用
    okhttp拦截器之RetryAndFollowUpInterceptor&BridgeInterceptor分析
    okhttp初识拦截器
    类加载器双亲委托机制实例深度剖析
    类加载器重要方法详解
  • 原文地址:https://www.cnblogs.com/Athrun/p/554440.html
Copyright © 2011-2022 走看看