当前位置：Gxlcms > PHP教程 > 一个分页函数：显示“上一页下一页”等

时间：2021-07-01 10:21:17 帮助过：29人阅读

'**************************************************
'函数名：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 = "

If ShowTotal = True Then

strTemp = strTemp & "共 " & totalnumber & " " & strUnit & " "

End If

If ShowMaxPerPage = True Then

strUrl = JoinChar(sfilename) & "MaxPerPage=" & MaxPerPage & "&"

Else

strUrl = JoinChar(sfilename)

End If

If CurrentPage = 1 Then

strTemp = strTemp & "首页上一页 "

Else

strTemp = strTemp & "首页 "

strTemp = strTemp & "上一页 "

End If

If CurrentPage >= TotalPage Then

strTemp = strTemp & "下一页尾页"

Else

strTemp = strTemp & "下一页 "

strTemp = strTemp & "尾页"

End If

strTemp = strTemp & " 页次：" & CurrentPage & "/" & TotalPage & "页 "

If ShowMaxPerPage = True Then

strTemp = strTemp & " " & strUnit & "/页"

Else

strTemp = strTemp & " " & MaxPerPage & "" & strUnit & "/页"

End If

If ShowAllPages = True Then

If TotalPage > 20 Then

strTemp = strTemp & " 转到第页"

Else

strTemp = strTemp & " 转到："

End If

strTemp = strTemp & "

一个分页函数：显示“上一页下一页”等

人气教程排行