静态分页函数

最新推荐文章于 2019-01-10 10:31:00 发布

china_skag

最新推荐文章于 2019-01-10 10:31:00 发布

阅读量712

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： function

本文链接：https://blog.youkuaiyun.com/china_skag/article/details/6915360

ASP 专栏收录该内容

34 篇文章

订阅专栏

'============================================  
'函数名：HtmlPage 
'作  用：静态分页函数 
'参  数：PageName------文件名（如qlwz_2.html中的qlwz） 
'参  数：intPageNow------现在的页数 
'参  数：intPageCount------总共有几页 
'============================================ 
  
Function HtmlPage(PageName,intPageNow,intPageCount)  
Dim isEnd,intStartPage,intEndPage  
isEnd = False  
    intStartPage=(intPageNow\10)*10+1  
    IF (intPageNow mod 10=0) then intStartPage=(intPageNow\10)*10-9  
    intEndPage=intStartPage+9  
    IF intPageNow>10 then  
        HtmlPage = HtmlPage&"<a href="""&PageName&".html"" title=""第一页"" style=""text-decoration:none"">?</a>"  
        HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intPageNow-1&".html"" page=""1"" title=""上一页"" style=""text-decoration:none;"">?</a>"  
        HtmlPage = HtmlPage&" <a href="""&PageName&"_"&intStartPage-1&".html"" title=""前十页"" style=""text-decoration:none""><</a>"  
    End IF  
    For intStartPage = intStartPage To intEndPage  
        If intStartPage = intPageNow Then  
            HtmlPage = HtmlPage&"<strong>"& intStartPage &"</strong>"  
        ElseIf intStartPage = 1 Then  
            HtmlPage = HtmlPage&"<a href="""&PageName&".html"">"& intStartPage &"</a>"  
        Else  
            HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intStartPage&".html"">"& intStartPage &"</a>"  
        End If  
        If intStartPage >= intPageCount Then  
            isEnd = True  
            Exit For  
        End IF  
    Next  
    If Not isEnd Then  
        HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intPageNow+1&".html"" title=""下一页"" page=""3"" style=""text-decoration:none"">?</a>"  
        HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intStartPage&".html"" title=""后十页""></a>"  
        HtmlPage = HtmlPage&"<a href="""&PageName&"_"&intPageCount&".html"" title=""最后一页"" style=""text-decoration:none"">?</a>"  
    End If  
Response.write HtmlPage  
End Function