靜態分頁函數

 

'============================================  '函數名：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