一個分頁函數:顯示「上一頁 下一頁」等
WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB
發布: 2016-07-25 09:02:51
-
-
'************************************************** - '函数名:ShowPage
- '作 用:显示“上一页 下一页”等信息
- '参 数:sFileName ----链接地址
- ' TotalNumber ----总数量
- ' MaxPerPage ----每页数量
- ' CurrentPage ----当前页
- ' ShowTotal ----是否显示总数量
- ' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。
- ' strUnit ----计数单位
- ' ShowMaxPerPage ----是否显示每页信息量选项框
- '返回值:“上一页 下一页”等信息的html代码
- '**************************************************
- Function ShowPage(sfilename, totalnumber, MaxPerPage, CurrentPage, ShowTotal, ShowAllPages, strUnit, ShowMaxPerPage)
- 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 = " "
- ShowPage = strTemp
- End Function
- ?>
-
复制代码
|
本網站聲明
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn
作者最新文章
-
2024-10-22 09:46:29
-
2024-10-13 13:53:41
-
2024-10-12 12:15:51
-
2024-10-11 22:47:31
-
2024-10-11 19:36:51
-
2024-10-11 15:50:41
-
2024-10-11 15:07:41
-
2024-10-11 14:21:21
-
2024-10-11 12:59:11
-
2024-10-11 12:17:31