- '**************************************************
- '函數名：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 & " "
- 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 & " 轉到第<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
ShowPage 顯示“上一頁 下一頁”等信息的封裝代碼
2019-10-09 14:12asp代碼網 ASP教程
ShowPage 顯示“上一頁 下一頁”等信息的封裝代碼
延伸 · 閱讀
- 2024-12-13小米 Vela 系統代碼正式開源，OpenVela 上線 GitHub
- 2024-12-13篡改代碼并攻擊大模型，前實習生被字節跳動起
- 2024-12-13《暗黑破壞神2：重制版》添加wasd移動功能 結果
- 2024-12-13Windows 版網絡備份工具 NetBackup 曝提權漏洞，黑客
- 2024-12-13蘋果 tvOS 18.2 隱藏代碼顯示 Apple TV 將獲得史努比
- 2024-11-06AMD用戶有福了！幾行代碼讓FSR2性能暴漲228%
精彩推薦
- ASP教程
asp+javascript實現404頁的處理轉換
asp+javascript實現404頁的處理轉換...
- ASP教程
asp 采集實戰代碼
最近實在是太流行采集了，本人是不喜歡采集的，但對采集的原理我卻很有興趣進行研究，拿到了網上采集常用函數，對其進行了一番研究，并實戰，結果...
- ASP教程
asp Access數據備份,還原,壓縮類代碼
asp Access數據備份,還原,壓縮類實現代碼，大家可以參考下。...
- ASP教程
asp 標記字符串中指定字符變色不區分大小寫
今天遇到這種問題，單純的使用replace函數不行，他會改變原有的字符串的大小寫,在網上找到相關的代碼，自己備份下...
- ASP教程
ASP常用函數:getpy()
ASP常用函數:getpy()...
- ASP教程
JScript中遍歷Request表單參數集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數集合的方法,本文以遍歷Request.QueryString集合為例給出了實現代碼,需要的朋友可以參考下...
- ASP教程
asp之基于adodb.stream的文件操作類
asp之基于adodb.stream的文件操作類...
- ASP教程
ASP.NET 數據源
數據源 一個 data sourse 控件與數據綁定的控件相互作用，并隱藏了復雜的數據的聯編過程。這些是提供數據給 data bound 控件的工具，并且支持如插入，刪除...
