ShowPage 顯示“上一頁下一頁”等信息的封裝代碼

2024-05-04 10:57:47

字體：大中小

供稿：網(wǎng)友

'**************************************************
'函數(shù)名：ShowPage
'作  用：顯示“上一頁下一頁”等信息
'參  數(shù)：sFileName  ----鏈接地址
'       TotalNumber ----總數(shù)量
'       MaxPerPage  ----每頁數(shù)量
'       ShowTotal   ----是否顯示總數(shù)量
'       ShowAllPages ---是否用下拉列表顯示所有頁面以供跳轉(zhuǎn)。有某些頁面不能使用，否則會出現(xiàn)JS錯誤。
'       strUnit     ----計(jì)數(shù)單位
'返回值：“上一頁下一頁”等信息的HTML代碼
'**************************************************
function ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
    dim TotalPage,strTemp,strUrl,i

    if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then
        ShowPage=""
        exit function
    end if
    if totalnumber mod maxperpage=0 then
        TotalPage= totalnumber / maxperpage
      Else
        TotalPage= totalnumber / maxperpage+1
      end if
    if CurrentPage>TotalPage then CurrentPage=TotalPage

      strTemp= "<table align='center'><tr><td>"
    if ShowTotal=true then
        strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "  "
    end if
    strUrl=JoinChar(sfilename)
      if CurrentPage<2 then
        strTemp=strTemp & "首頁上一頁 "
      Else
        strTemp=strTemp & "<a href='" & strUrl & "page=1'>首頁</a> "
        strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一頁</a> "
      end if

      if CurrentPage>=TotalPage then
        strTemp=strTemp & "下一頁尾頁"

上一篇：asp下的風(fēng)訊用的SQL通用防注入模塊提供了

下一篇：asp分頁生成html的程序腳本代碼