黄毛片在线观看,亚洲日韩国产第一区,亚洲尤物视频网

'**************************************************
'函數名：ShowPage
'作  用：顯示“上一頁下一頁”等信息
'參  數：sFileName  ----鏈接地址
'       TotalNumber ----總數量
'       MaxPerPage  ----每頁數量
'       ShowTotal   ----是否顯示總數量
'       ShowAllPages ---是否用下拉列表顯示所有頁面以供跳轉。有某些頁面不能使用，否則會出現JS錯誤。
'       strUnit     ----計數單位
'返回值：“上一頁下一頁”等信息的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  "nbsp;nbsp;"
    end if
    strUrl=JoinChar(sfilename)
      if CurrentPage2 then
        strTemp=strTemp  "首頁上一頁nbsp;"
      Else
        strTemp=strTemp  "a href='"  strUrl  "page=1'>首頁/a>nbsp;"
        strTemp=strTemp  "a href='"  strUrl  "page="  (CurrentPage-1)  "'>上一頁/a>nbsp;"
      end if

      if CurrentPage>=TotalPage then
        strTemp=strTemp  "下一頁尾頁"
      Else
        strTemp=strTemp  "a href='"  strUrl  "page="  (CurrentPage+1)  "'>下一頁/a>nbsp;"
        strTemp=strTemp  "a href='"  strUrl  "page="  TotalPage  "'>尾頁/a>"
      end if
       strTemp=strTemp  "nbsp;頁次：strong>font color=red>"  CurrentPage  "/font>/"  TotalPage  "/strong>頁 "
        strTemp=strTemp  "nbsp;b>"  maxperpage  "/b>"  strUnit  "/頁"
    if ShowAllPages=True then
        strTemp=strTemp  "nbsp;nbsp;轉到第input type='text' name='page' size='3' maxlength='5' value='"  CurrentPage  "' onKeyPress=""if (event.keyCode==13) window.location='"  strUrl  "page="  "'+this.value;""'>頁"
         'strTemp  = strTemp "nbsp;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

標簽：優質小號延邊那曲銅川河池蘇州電商邀評新鄉

巨人網絡通訊聲明：本文標題《ShowPage 顯示“上一頁下一頁”等信息的封裝代碼》，本文關鍵詞 ShowPage,顯示,上一頁,下,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

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

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