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

更新時間：2007年09月01日 22:20:54 作者：

'**************************************************
'函數(shù)名：ShowPage
'作  用：顯示“上一頁下一頁”等信息
'參  數(shù)：sFileName  ----鏈接地址
'       TotalNumber ----總數(shù)量
'       MaxPerPage  ----每頁數(shù)量
'       ShowTotal   ----是否顯示總數(shù)量
'       ShowAllPages ---是否用下拉列表顯示所有頁面以供跳轉(zhuǎn)。有某些頁面不能使用，否則會出現(xiàn)JS錯誤。
'       strUnit     ----計數(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 & "下一頁尾頁"
      Else
        strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一頁</a> "
        strTemp=strTemp & "<a href='" & strUrl & "page=" & TotalPage & "'>尾頁</a>"
      end if
       strTemp=strTemp & " 頁次：<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>頁 "
        strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/頁"
    if ShowAllPages=True then
        strTemp=strTemp & "  轉(zhuǎn)到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) window.location='" & strUrl & "page=" & "'+this.value;""'>頁"
         'strTemp  = strTemp &" <Input type=""button""  onClick=""window.location.href='" & strUrl & "page='+document.all.page.value;""  name=button1  value=GO >"
    end if
    strTemp=strTemp & "</td></tr></table>"
    ShowPage=strTemp
end function