最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
经典asp分页程序代码
时间：2022-07-02 23:08:07 编辑：袖梨 来源：一聚教程网
经典asp分页程序代码
<%
Class Cls_Page
'**************************************************
'函数名：ShowPage
'作 用：显示分页
'参 数：如下
'strFileName : ?后面的文件,如xxx.asp?page=
'xTotalNum : 总数
'xPageCount : 总页数
'xMaxPerPage : 每页显示数量
'xCurrentPage : 当前页数
'xPageName : 当前页面名
'xUnitName : 分类单位名称,如"篇,条,幅"
'xShowStyle : 显示分页的样式
'返回值：分页
'**************************************************
Public Function ShowPage(strFileName,xTotalNum,xPageCount,xMaxPerPage,xCurrentPage,xPageName,xUnitName,xShowStyle)
strUrl = ClsMain.JoinChar(strFileName)
Dim i,PageStr
If xTotalNum > 0 Then
If xPageCount >= 1 Then
Select Case xShowStyle
Case "1" '分页样式1:列出所有页码的页号，页码较少时可以使用
PageStr = PageStr & "
PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
For i=1 To xPageCount
If i = xCurrentPage Then
PageStr = PageStr & " [" & i & "]"
Else
PageStr = PageStr & " [" & i & "]"
End If
Next
PageStr = PageStr & "
Case "2" '分页样式2:显示首页、上一页、下一页、末页，均为符号和转到页的输入框
PageStr = PageStr & "
PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
If xCurrentPage > 1 Then
PageStr = PageStr & " |‹"
PageStr = PageStr & " «"
Else
PageStr = PageStr & " |‹"
PageStr = PageStr & " «"
End If
If xCurrentPage < xPageCount Then
PageStr = PageStr & " »"
PageStr = PageStr & " ›|"&vbcrlf
Else
PageStr = PageStr & " »"
PageStr = PageStr & " ›|"&vbcrlf
End If
PageStr = PageStr & " javascript:this.focus();this.select()"" onKeyDown=""javascript: if(window.event.keyCode == 13) window.location.href='" & strUrl & "page='+this.value"">"&vbcrlf
PageStr = PageStr & " "&vbcrlf
PageStr = PageStr & "
Case "3" '分页样式3:显示首页、上十页、下十页、尾页以及中间一段页码
PageStr = PageStr & "
PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
p = (xCurrentPage - 1) 10
If xCurrentPage = 1 Then
PageStr = PageStr & " |‹"
Else
PageStr = PageStr & " |‹"
End If
If p * 10 > 0 Then
PageStr = PageStr & " «"
End If
For i=(p * 10 + 1) To (p * 10 + 10)
If i = xCurrentPage Then
PageStr = PageStr & " [" & i & "]"
Else
PageStr = PageStr & " " & i & ""
End If
If i = xPageCount Then Exit For
Next
If i < xPageCount Then PageStr = PageStr & " »"
If xCurrentPage = xPageCount Then
PageStr = PageStr & " ›|"
Else
PageStr = PageStr & " ›|"
End If
PageStr = PageStr & "
Case "4" '分页样式4:显示首页和尾页的页码、中间显示一部分页码
PageStr = PageStr & "
PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
If xCurrentPage > 4 Then PageStr = PageStr & " [1] ... "
If xCurrentPage < PageCount - 3 Then PageTo = xCurrentPage + 3 Else PageTo = xPageCount
For i=xCurrentPage - 3 To PageTo
If i >= 1 Then
If i = xCurrentPage Then
PageStr = PageStr & " [" & i & "]"
Else
PageStr = PageStr & " [" & i & "]"
End If
End If
Next
If xCurrentPage < xPageCount - 3 Then PageStr = PageStr & " ... " & xPageCount & ""
PageStr = PageStr & "
Case "5" '分页样式5:显示首页、上一页、下一页、末页，均为汉字和转到页的选择列表
PageStr = PageStr & "
PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
If xCurrentPage > 1 Then
PageStr = PageStr & " 首页"
PageStr = PageStr & " 上一页"
Else
PageStr = PageStr & " 首页"
PageStr = PageStr & " 上一页"
End If
If xCurrentPage < xPageCount Then
PageStr = PageStr & " 下一页"
PageStr = PageStr & " 末页"&vbcrlf
Else
PageStr = PageStr & " 下一页"
PageStr = PageStr & " 末页"
End If
PageStr = PageStr & " " & xUnitName & "/页"&vbcrlf
PageStr = PageStr & " 转到:"&vbcrlf
PageStr = PageStr & "
Case "6" '分页样式5:显示首页、上一页、下一页、末页，数字页和转向文本框
PageStr = PageStr & "
PageStr = PageStr & "全部"&xPageName&"：" & xTotalNum &"" & xUnitName & ""
PageStr = PageStr & " 页次：" & xCurrentPage & "/" & xPageCount & ""
PageStr = PageStr & " "&xMaxPerPage&xUnitName&"/页"
p = (xCurrentPage - 1) 10
If xCurrentPage = 1 Then
PageStr = PageStr & " |‹"
Else
PageStr = PageStr & " |‹"
End If
If p * 10 > 0 Then
PageStr = PageStr & " «"
End If
For i=(p * 10 + 1) To (p * 10 + 10)
If i = xCurrentPage Then
PageStr = PageStr & " [" & i & "]"
Else
PageStr = PageStr & " [" & i & "]"
End If
If i = xPageCount Then Exit For
Next
If i < xPageCount Then PageStr = PageStr & " »"
If xCurrentPage = xPageCount Then
PageStr = PageStr & " ›|"&vbcrlf
Else
PageStr = PageStr & " [›|]"&vbcrlf
End If
PageStr = PageStr & " 转到：页"&vbcrlf
PageStr = PageStr & "
End Select
End If
Else
PageStr = " "&vbcrlf
End If
ShowPage = PageStr
End Function
End Class
%>