一个分页函数:显示“上一页 下一页”等
Libérer: 2016-07-25 09:02:51
original
1816 Les gens l'ont consulté
-
-
'**************************************************
- '函数名: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
- ?>
-
复制代码
|
Déclaration de ce site Web
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn
Derniers articles par auteur
-
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