zoukankan      html  css  js  c++  java
  • ASP分頁Function

     

        Public Sub Pagination2(PageCount,UrlStr = "")
            Dim WzPage, PageNum
            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

    申明

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

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

  • 相关阅读:
    智能安全实验室-全能优化(Guardio) 3.8.0.493:系统默认字体大小
    智能安全实验室-杀马(Defendio) 2.6.0.453 :系统整合/增强隔离
    智能安全实验室-全能优化(Guardio) 3.8.0.498:新增3种恶意软件的清理
    智能安全实验室-杀马(Defendio) 2.5.0.425-自定义快捷方式
    智能安全实验室-全能优化(Guardio) 3.9.0.523:大量改进!
    智能安全实验室-全能优化(Guardio) 3.9.0.525:进程管理树状显示
    智能安全实验室-杀马(Defendio) 2.5.0.435 :改进系统扫描
    智能安全实验室-全能优化(Guardio) 3.8.0.495:新增15种恶意软件的清理
    智能安全实验室-杀马(Defendio) 2.6.0.466 :行为分析
    智能安全实验室-杀马(Defendio) 2.5.0.430 :自定义上报威胁
  • 原文地址:https://www.cnblogs.com/Athrun/p/554437.html
Copyright © 2011-2022 走看看